Subversion Repositories wimsdev

Rev

Rev 10132 | Rev 12413 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10132 Rev 10714
Line 4... Line 4...
4 
v=!word 1 of $v
 4 
v=!word 1 of $v
5 
!if $v=$empty or $v notwordof 4
 5 
!if $v=$empty or $v<4
6 
 error=no_upload
 6 
 error=no_upload
7 
 !exit
 7 
 !exit
8 
!endif
 8 
!endif
9 
serial=!record 0 of wimshome/$wims_sesdir/upload/class/serial
 9 
serial=!record 0 of wimshome/$wims_sesdir/upload/class/serial
10 
serial=!word 1 of $serial
 10 
serial=!word 1 of $serial
Line 68... Line 68...
68 
   !for k=1 to $n
 68 
   !for k=1 to $n
69 
    u=!record $k of wimshome/$wims_sesdir/upload/class/.userlist
 69 
    u=!record $k of wimshome/$wims_sesdir/upload/class/.userlist
70 
    test=!defof user_exists in wimshome/log/classes/$wims_superclass/.users/$(u[3])
 70 
    test=!defof user_exists in wimshome/log/classes/$wims_superclass/.users/$(u[3])
71 
    !if $test!=$empty
 71 
    !if $test!=$empty
72 
     user_loginused=!append item $(u[3]) to $(user_loginused)
 72 
     user_loginused=!append item $(u[3]) to $(user_loginused)
73 
     !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]);
 73 
     !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]);
74 
    !else
 74 
    !else
75 
     user_ok=!append item $(u[3]) to $user_ok
 75 
     user_ok=!append item $(u[3]) to $user_ok
76 
    !endif
 76 
    !endif
77 
   !next k
 77 
   !next k
78 
   !sh cd $wims_home/$wims_sesdir/upload/class/;\
 78 
   !sh cd $wims_home/$wims_sesdir/upload/class/;\