Subversion Repositories wimsdev

Rev

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

Rev 7354 Rev 8255
Line 1... Line 1...
1
!! add exercise in a sheet
1
!! add exercise in a sheet
2
 
2
 
3
max_exo=64
3
max_exos=!defof MAX_EXOS in wimshome/public_html/bases/sys/define.conf
-
 
4
max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf
4
title_limit=50
5
title_limit=50
5
desc_limit=255
6
desc_limit=255
6
 
7
 
7
!if $scoring=yes
8
!if $scoring=yes
8
 !default require=10
9
 !default require=10
Line 51... Line 52...
51
 !if $picksheet=$empty
52
 !if $picksheet=$empty
52
  error=no_pick
53
  error=no_pick
53
  !exit
54
  !exit
54
 !endif
55
 !endif
55
 picksheet=$[floor($picksheet)]
56
 picksheet=$[floor($picksheet)]
56
 !if $picksheet=NaN or $picksheet<1 or $picksheet>min(64,$sheettot)
57
 !if $picksheet=NaN or $picksheet<1 or $picksheet>min($max_sheets,$sheettot)
57
  error=bad_sheet
58
  error=bad_sheet
58
  !exit
59
  !exit
59
 !endif
60
 !endif
60
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
61
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
61
 a=!line 1 of $sh
62
 a=!line 1 of $sh
62
 !if $a>0
63
 !if $a>0
63
  error=bad_sheet
64
  error=bad_sheet
64
  !exit
65
  !exit
65
 !endif
66
 !endif
66
 exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
67
 exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
67
 !if $exocnt>=$max_exo
68
 !if $exocnt>=$max_exos
68
  error=too_many_exos
69
  error=too_many_exos
69
  !exit
70
  !exit
70
 !endif
71
 !endif
71
 idesc=!singlespace $new_desc
72
 idesc=!singlespace $new_desc
72
 idesc=!char 1 to $desc_limit of $idesc
73
 idesc=!char 1 to $desc_limit of $idesc
Line 79... Line 80...
79
   require=0
80
   require=0
80
  !endif
81
  !endif
81
  !if NaN isin $weight
82
  !if NaN isin $weight
82
   weight=0
83
   weight=0
83
  !endif
84
  !endif
84
  !bound require between 0,1000 default 0
85
  !bound require between 0,$[10*$require_limit] default 0
85
  !bound weight between 0,10 default 0
86
  !bound weight between 0,10 default 0
86
 !endif
87
 !endif
87
 !for i=1 to $exocnt
88
 !for i=1 to $exocnt
88
  e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
89
  e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
89
  !distribute lines $e into wdi,win
90
  !distribute lines $e into wdi,win