Subversion Repositories wimsdev

Rev

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

Rev 5369 Rev 7198
Line 4... Line 4...
4 
thisyear=!char 1 to 4 of $today
 4 
thisyear=!char 1 to 4 of $today
5 
!if $class_expiration=$empty
5 
!if $class_expiration=$empty
6 
 !defread wimshome/log/classes/$wims_class/.def
 6 
 !defread wimshome/log/classes/$wims_class/.def
7 
!endif
 7 
!endif
8 
!if $class_expiration=$empty
 8 
!if $class_expiration=$empty
9 
 error=bad_class
 9 
 error=bad_class
10 
 !exit
 10 
 !exit
Line 24... Line 24...
24 
    !default up_$var=$($var)
 24 
    !default up_$var=$($var)
25 
    !set $var=$(up_$var)
 25 
    !set $var=$(up_$var)
26 
!next
 26 
!next
27 
 
 27 
 
28 
!if $gstep=2
 28 
!if $gstep=2
29 
!! need to check carefully namexevar vs. up_namevar (at some step we seem to
29 
!! need to check carefully namexevar vs. up_namevar (at some step we seem to
30 
!! be loosing the correction)(?? should this go outside the if $gstep=2)
 30 
!! be loosing the correction)(?? should this go outside the if $gstep=2)
31 
 !read adm/class/authchars
 31 
 !read adm/class/authchars
32 
 
 32 
 
33 
 !default namevar=$up_namevar
 33 
 !default namevar=$up_namevar
34 
 !set namevar=!nospace $namevar
 34 
 !set namevar=!nospace $namevar
Line 48... Line 48...
48 
 !endif
 48 
 !endif
49 
 !if $error!=$empty
 49 
 !if $error!=$empty
50 
    gstep=$[max(0,$gstep-1)]
 50 
    gstep=$[max(0,$gstep-1)]
51 
   !exit
 51 
   !exit
52 
 !endif
 52 
 !endif
53 
 !set up_namevar=$namevar
53 
 !set up_namevar=$namevar
54 
!for dato in numsess,namevar,defconnip
 54 
!for dato in numsess,namevar,defconnip
55 
 !setdef $dato=$($dato) \
 55 
 !setdef $dato=$($dato) \
56 
 in  $votedir/$vote.data
 56 
 in  $votedir/$vote.data
57 
!next
 57 
!next
58 
!endif
 58 
!endif