Subversion Repositories wimsdev

!! ----------------------------- restore of user when replace or merge

 !read adm/class/userremain.proc

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

  !if $n>$dispo

   user_bad=refused

  !endif

  !if ($n>$dispo and $class_superclass!=$empty) or ($class_superclass=$empty and $n>$dispo+$m)

   user_bad=refused

   copy=!listcomplement user,score in $copy

   !if $m>0

    erase=user

   !endif

  !endif

 !if ($wims_supertype=4 or $wims_supertype=2) 

  !if $class_typename=class

   !if user isin $erase

    !for k=1 to $m

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

     t=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$(u[3])

     t=!listcomplement $wims_class in $t

     !setdef !set user_participate=$t in wimshome/log/classes/$wims_superclass/.users/$(u[3])

    !next k

   !endif

   !for k=1 to $n

    u=!record $k of wimshome/$wims_sesdir/upload/class/.userlist

    test=!defof user_exists in wimshome/log/classes/$wims_superclass/.users/$(u[3])

    !if $test!=$empty

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

     !sh rm -f $wims_home/$wims_sesdir/upload/class/.users/$(u[3])  $wims_home/$wims_sesdir/upload/class/score/$(u[3]) $wims_home/$wims_sesdir/upload/class/noscore/$(u[3]);

    !else

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

   !next k

   !sh cd $wims_home/$wims_sesdir/upload/class/;\

cp -pR .users $wims_home/log/classes/$wims_superclass/;

    !setdef !set user_participate=$wims_class in wimshome/log/classes/$wims_superclass/.users/$u

   !next k

  !endif

  !readproc adm/class/mkuserlist