Subversion Repositories wimsdev

Rev

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

Rev 17320 Rev 17323
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,adm/vote,adm/doc
 - 
 
15 
  !goto oldversion
 - 
 
16 
!endif
 - 
 
17 
!reset option_ y_ m_ d_
 14 
!reset option_ y_ m_ d_
18 
!if $mdate_!=$empty
 15 
!if $mdate_!=$empty
19 
  !set y_=!char 1 to 4 of $mdate_
 16 
  !set y_=!char 1 to 4 of $mdate_
20 
  !set m_=!char 5 to 6 of $mdate_
 17 
  !set m_=!char 5 to 6 of $mdate_
21 
  !set d_=!char 7 to 8 of $mdate_
 18 
  !set d_=!char 7 to 8 of $mdate_