Subversion Repositories wimsdev

Rev

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

Rev 17314 Rev 17315
Line 9... Line 9...
9 
!! "-1d","+1y"
 9 
!! "-1d","+1y"
10 
 
 10 
 
11 
!distribute line $wims_read_parm into default_,name_,date_
 11 
!distribute line $wims_read_parm into default_,name_,date_
12 
!distribute item $date_ into mdate_,Mdate_
 12 
!distribute item $date_ into mdate_,Mdate_
13 
 
 13 
 
14 
!if $module notitemof adm/class/cdt,adm/class/regclass,adm/class/config,adm/class/exam,adm/class/sheet,adm/class/freework,adm/class/sequence
 14 
!if $module notitemof adm/class/cdt,adm/class/regclass,adm/class/config,adm/class/exam,adm/class/sheet,adm/class/freework,adm/class/sequence,adm/vote
15 
  !goto oldversion
 15 
  !goto oldversion
16 
!endif
 16 
!endif
17 
!reset option_ y_ m_ d_
 17 
!reset option_ y_ m_ d_
18 
!if $mdate_!=$empty
 18 
!if $mdate_!=$empty
19 
  !set y_=!char 1 to 4 of $mdate_
 19 
  !set y_=!char 1 to 4 of $mdate_