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_