Subversion Repositories wimsdev

Rev

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

Rev 12701 Rev 14395
Line 31... Line 31...
31 
      error=sharing_sheet
 31 
      error=sharing_sheet
32 
      !exit
 32 
      !exit
33 
    !endif
 33 
    !endif
34 
  !endif
 34 
  !endif
35 
!endif
 35 
!endif
- 
 
 36 
tmpcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
- 
 
 37 
!for exa=1 to $tmpcnt
36 
examtest=!sh grep '\<$sheet\.' $wims_home/log/classes/$wims_class/exams/.exam[0-9]*
 38 
  examtest=!sh grep '\<$sheet\.' $wims_home/log/classes/$wims_class/exams/.exam$exa | grep -v ':'
37 
!if $examtest!=$empty
 39 
  !if $examtest!=$empty
- 
 
 40 
    !!supplementary check
- 
 
 41 
    tmp=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exa
- 
 
 42 
    !for tmp2=1 to $tmp
- 
 
 43 
      tmp_l=!record $tmp2 of wimshome/log/classes/$wims_class/exams/.exam$exa
- 
 
 44 
      tmp_l=!line 2 of $tmp_l
- 
 
 45 
      examtest=!sh echo '$tmp_l' | grep '\<$sheet\.'
- 
 
 46 
      !if $examtest!=$empty
38 
  error=sheet_in_exam
 47 
        error=sheet_in_exam $exa
- 
 
 48 
        !exit
- 
 
 49 
      !endif
39 
  !exit
 50 
    !next
40 
!endif
 51 
  !endif
- 
 
 52 
!next
- 
 
 53 
 
41 
worktest=!sh cd $wims_home/log/classes/$wims_class\
 54 
worktest=!sh cd $wims_home/log/classes/$wims_class\
42 
  list=`ls score | grep -v '\.exam$$'`\
 55 
  list=`ls score | grep -v '\.exam$$'`\
43 
  if [ ! -e "$$list" ]; then\
 56 
  if [ ! -e "$$list" ]; then\
44 
   cd score; awk 'length($$1)==17 && $$3==$sheet {print FILENAME; nextfile}' $$list\
 57 
    cd score; awk 'length($$1)==17 && $$3==$sheet {print FILENAME; nextfile}' $$list\
45 
  fi
 58 
  fi
46 
!if $worktest!=$empty
 59 
!if $worktest!=$empty
47 
  worktest2=!replace word supervisor by $ in $worktest
 60 
  worktest2=!replace word supervisor by $ in $worktest
48 
  worktest2=!trim $worktest2
 61 
  worktest2=!trim $worktest2
49 
  !if $confirm!=yes or (share iswordof $confirmed and $worktest2!=$empty)
 62 
  !if $confirm!=yes or (share iswordof $confirmed and $worktest2!=$empty)