Subversion Repositories wimsdev

!! search old technical variable. variable without values are forget

!if $version_class>=5

  !exit

!endif

olddon=!record 0 of wimshome/s2/$wims_session/oldtechvar.don

!if $olddon=$empty or $subjob=$empty

    olddon=!sh cd $wims_home/log/classes/$tv_Sclass/.users/;\

grep -r user__ * | awk -F= '$$2!=""{print $$0}'

    olddon=!replace internal :!set user__ by , in $olddon

    olddon=!replace internal = by , in $olddon

    !if $olddon=$empty

        !writefile wimshome/s2/$wims_session/oldtechvar.don EMPTY

    !else

      !writefile wimshome/s2/$wims_session/oldtechvar.don $olddon

    !endif

!endif

!if EMPTY=$olddon

    !reset olddon

!endif

nb=!linecnt $olddon

!if $nb<=0

    error=nooldvar

    job=listvar

    !changeto $job.proc

    !exit

!endif

listclsuser=$empty

nuser=!recordcnt wimshome/log/classes/$wims_class/.userlist

!if $nuser>0

    !for k=1 to $nuser

      u=!record $k of wimshome/log/classes/$wims_class/.userlist

      listclsuser=!append item $(u[3]) to $listclsuser

    !next k

!endif

listlocalname=!item $tv_listlocal of $tv_listname

!! ------ description of used variables :

!! listforbname1 : contient les noms de variables non chargeables car affectés également à des participants extérieurs à la classe

!! listforbname2 : le nom est déjà utilisé comme une variable globale (non modifiable localement)

!! listforbname3 : nom de variable non exploitable ou liste des valeurs trop longue.

!! listnew : variable ajoutable en variable locale

!! listmodify : variable locale modifiable

!! listlogin_$name : contient la liste des logins contenant une valeur pour la variable name

!! listval_$name : liste des différentes valeurs trouvées pour la variable name

!for k=1 to $nb

    l=!line $k of $olddon

    !distribute item $l into varuser,varname,varval

    name2=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $varname

    name2=!nospace $name2

    n=!charcnt $name2

    !if $n>$MAXcharname or $n<1

      listforbname3=!listunion $listforbname3 and $varname

    !else

      varname=$name2

      !if $varname notitemof $tv_listallname

          # eventualy a new vartech

          listnew=!listunion $listnew and $varname

          # precheck condition of localisation (no participant use it outside class)

          !if $varuser notitemof $listclsuser

            listforbname1=!listunion $listforbname1 and $varname

          !endif

      !else

          !if $varname isitemof $listlocalname

            listmodify=!listunion $listmodify and $varname

          !else

            listforbname2=!listunion $listforbname2 and $varname

          !endif

      !endif

    !endif

!next k

listnew=!listcomplement $listforbname1 in $listnew

!! check list of value for new techvar

!for k in $listnew

    newval=!sh grep $k $wims_home/s2/$wims_session/oldtechvar.don

    newval=!column 3 of $newval

    newval=!listuniq $newval

    nb=!itemcnt $newval

    !if $nb>$MAXnbvalue

      listnew=!listcomplement $k in $listnew

      listforbname3=!listunion $listforbname3 and $k

    !endif

!next k

!! check list of value for modify techvar

!for k in $listmodify

    newval=!sh grep $k $wims_home/s2/$wims_session/oldtechvar.don

    newval=!column 3 of $newval

    num=!positionof item $techvar in $tv_listname

    don=!record $num of wimshome/log/classes/$wims_class/.techvar

    oldval=!line 2 of $don

    val=!listuniq $newval,$oldval

    nb=!itemcnt $val

    !if $nb>$MAXnbvalue

      listmodify=!listcomplement $k in $listmodify

      listforbname3=!listunion $listforbname3 and $k

    !endif

!next k

!!debug olddon : $olddon\

!!listforbname1 : $listforbname1\

!!listforbname2 : $listforbname2\

!!listforbname3 : $listforbname3\

!!listnew : $listnew \

!!listmodify : $listmodify

!if $listnew$listforbname1$listforbname2$listmodify=$empty

    error=nooldvar

    job=listvar

    !changeto $job.proc

    !exit

!endif

!! --------------------------- le processus make est à reprendre avec les nouvelles variables.

!if $subjob=make

   nb=!itemcnt $tv_listlocal

   !if $nb>=$MAXtechvar

     error=toomanytechvar

     !reset subjob

     !exit

   !endif

   !if $techvar notitemof $listnew

     error=oldvar_badvar

     !reset subjob

     !exit

   !endif

   num=!replace internal / by _ in $wims_class

   !increase nb

   num=$(num)_$nb

   liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don

   !if $liste=$empty

     error=oldvar_nouser

     !reset subjob

     !exit

   !endif

!! make the new technical variable

   listval=!column 3 of $liste

   listval=!listuniq $listval

   nbval=!itemcnt $listval

   !if $nbval>$MAXnbvalue

     error=badoldvaluesnb

     !reset subjob

     !exit

   !endif

   !fileappend wimshome/log/classes/$wims_class/.techvar :$techvar\

$listval

    !fileappend wimshome/log/classes/$tv_Sclass/.indextechvar :$techvar,$wims_class,$[$nb]

!! put value in participant file.

    nb=!linecnt $liste

    !for k=1 to $nb

      udon=!line $k of $liste

      !distribute item $udon into login,bb,val

      !setdef !set user_techvar_$num=$val in wimshome/log/classes/$tv_Sclass/.users/$login

      listlogin=!append item $login to $listlogin

    !next k

    !restart module=adm/class/techvar

!endif

!if $subjob=modify

    !if $techvar notitemof $listmodify

      error=oldvar_badvar

      !reset subjob

      !exit

    !endif

    liste=!sh grep $techvar $wims_home/s2/$wims_session/oldtechvar.don

    !if $liste=$empty

       error=oldvar_nouser

      !reset subjob

      !exit

    !endif

    nb=!linecnt $liste

    num0=!positionof item $techvar in $tv_listname

    num=$(tv_listtechvar[$num0;3])

    cls=!item $num0 of $tv_listcode

    !for k=1 to $nb

      udon=!line $k of $liste

      !distribute item $udon into login,bb,val

      !setdef !set user_techvar_$(cls)=$val in wimshome/log/classes/$tv_Sclass/.users/$login

      listlogin=!append item $login to $listlogin

    !next k

!! modify list of values (if necessary) of technical variable

    listval=!column 3 of $liste

    listval=!listuniq $listval

    don=!record $num of wimshome/log/classes/$wims_class/.techvar

    oldval=!line 2 of $don

    new=!listcomplement $oldval in $listval

    !if $new!=$empty

      nb=!recordcnt wimshome/log/classes/$wims_class/.techvar

      output=$empty

      !for k=1 to $nb

          tmp=!record $k of wimshome/log/classes/$wims_class/.techvar

          !if $k=$num

            tmp=!replace line number 2 by $oldval,$new in $tmp

          !endif

          output=!append line :$tmp to $output

      !next k

        !filewrite wimshome/log/classes/$wims_class/.techvar $output

    !endif

    !restart module=adm/class/techvar&job=userlist

!endif