Subversion Repositories wimsdev

Rev

Rev 16257 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16257 Rev 16821
Line 17... Line 17...
17
!bound job within log,llist,list,check,examcheck,erase default list
17
!bound job within log,llist,list,check,examcheck,erase default list
18
sdir=$wims_home/$wims_sesdir
18
sdir=$wims_home/$wims_sesdir
19
cdir=$wims_home/log/classes/$wims_class
19
cdir=$wims_home/log/classes/$wims_class
20
!bound $logsheet between integer 1 and $max_sheets default $
20
!bound $logsheet between integer 1 and $max_sheets default $
21
!bound $logexo between integer 1 and $max_exos default $
21
!bound $logexo between integer 1 and $max_exos default $
-
 
22
 
-
 
23
!if $job=log
-
 
24
  !read $job.proc
-
 
25
!endif
-
 
26
 
22
!if $job=erase
27
!if $job=erase
23
  !if $source!=$empty
28
  !if $source!=$empty
24
    !sh rm $cdir/$source
29
    !sh rm $cdir/$source
25
  !endif
30
  !endif
26
  job=list
31
  job=list
27
!endif
32
!endif
28
!if $job=log
-
 
29
  !if ($logsheet>0 and $logexo>0) or $checkuser=supervisor
-
 
30
    !if ($logsheet>0 and $logexo>0)
-
 
31
      ext1=$logsheet.$logexo
-
 
32
      ext2=-$ext1
-
 
33
      ext1=.$ext1
-
 
34
    !else
-
 
35
      !reset ext1 ext2
-
 
36
    !endif
-
 
37
 
33
 
38
    wimsnow=$wims_now
-
 
39
    !sh mkdir -p $cdir/exolog/$checkuser\
-
 
40
      cp $sdir/exolog$ext1 $cdir/exolog/$checkuser/$wimsnow-$wims_session$ext2\
-
 
41
      rm -f $sdir/exolog$ext1\
-
 
42
      list=`ls -r $cdir/exolog/$checkuser | tail -n +$[$wims_class_exolog+1]`\
-
 
43
      if [ ! -z "$$list" ]; then rm -f $cdir/exolog/$checkuser/$$list; fi
-
 
44
    job=list
-
 
45
    !! replace the name of images by rename by the true name when saving
-
 
46
    rename_list =!record 0 of wimshome/$wims_sesdir/.rename
-
 
47
    rename_list_cnt=!linecnt $rename_list
-
 
48
    !for l=1 to $rename_list_cnt
-
 
49
      rename_l=!line $l of $rename_list
-
 
50
      rename_l=!replace internal : by , in $rename_l
-
 
51
      rename_l=!replace internal ? by \? in $rename_l
-
 
52
      !sh perl -np -i -e 's:$(rename_l[2]):$(rename_l[1]):g' $cdir/exolog/$checkuser/$wimsnow-$wims_session$ext2
-
 
53
    !next
-
 
54
  !else
-
 
55
    job=llist
-
 
56
  !endif
-
 
57
!endif
-
 
58
 
34
 
59
!if $job iswordof check examcheck
35
!if $job iswordof check examcheck
60
  !if _check isin $wims_session
36
  !if _check isin $wims_session
61
    !if $checkexo!=file
37
    !if $checkexo!=file
62
      !default checkexo=$logcheck
38
      !default checkexo=$logcheck