Subversion Repositories wimsdev

Rev

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

Rev 2767 Rev 14271
Line 1... Line 1...
1 
numsheet=!listintersect $numsheet and $asheets
 1 
numsheet=!listintersect $numsheet and $asheets
2 
!if $numsheet=$empty
 2 
!if $numsheet=$empty
- 
 
 3 
  !reset listname
- 
 
 4 
  !for k in $asheets
- 
 
 5 
    current=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
- 
 
 6 
    current=!line 3 of $current
- 
 
 7 
    current=!replace internal , by $empty in $current
- 
 
 8 
    listname=!append item $k | $current to $listname
- 
 
 9 
  !next
3 
 !exit
 10 
  !exit
4 
!else
 11 
!else
5 
 key_title=!singlespace $keytitle
 12 
  key_title=!singlespace $keytitle
6 
 key_title=!char 1 to $title_limit of $key_title
 13 
  key_title=!char 1 to $title_limit of $key_title
7 
 nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$numsheet
 14 
  nbexo=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$numsheet
8 
 listdon=$empty
 15 
  listdon=$empty
9 
 tmp=$key_title
16 
  tmp=$key_title
10 
 !for k=1 to $nbexo
 17 
  !for k=1 to $nbexo
11 
  !if $key_title=$empty
 18 
    !if $key_title=$empty
12 
   tmp=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$numsheet
 19 
      tmp=!record $k of wimshome/log/classes/$wims_class/sheets/.sheet$numsheet
13 
   tmp=!line 5 of $tmp
 20 
      tmp=!line 5 of $tmp
14 
  !endif
 21 
    !endif
15 
  exodon=:1\
 22 
    exodon=:1\
16 
$numsheet.$k\
 23 
$numsheet.$k\
17 
$tmp\
 24 
$tmp\
18 
 
 25 
 
19 
 listdon=!append line $exodon to $listdon
 26 
    listdon=!append line $exodon to $listdon
20 
 !next k
 27 
  !next k
21 
 !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam $listdon
 28 
  !appendfile wimshome/log/classes/$wims_class/exams/.exam$exam $listdon
22 
 !reset job,numsheet
 29 
  !reset job,numsheet
23 
 !read var.proc
 30 
  !read var.proc
24 
!endif
 31 
!endif