Subversion Repositories wimsdev

Rev

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

Rev 14315 Rev 14349
Line 1... Line 1...
1
 
1
 
2
!if $save!=$empty
2
!if $save!=$empty
-
 
3
  !if $jquery_defined=no
-
 
4
    d=!char 2,3 of $[100+abs(floor($dayup_expiration))]
-
 
5
    m=!char 2,3 of $[100+abs(floor($monthup_expiration))]
-
 
6
    y=!char 1 to 4 of $[abs(floor($yearup_expiration))]
-
 
7
    up_expiration=$(y)$(m)$(d)
-
 
8
  !endif
3
  !read scripts/setdef.proc
9
  !read scripts/setdef.proc
4
  !if $up_exotitleform!=$class_exotitleform
10
  !if $up_exotitleform!=$class_exotitleform
5
  !! change value of wims_exotitleform for connected student
11
  !! change value of wims_exotitleform for connected student
6
    !readproc adm/whoconnect 1
12
    !readproc adm/whoconnect 1
7
    !for k=1 to $wims_numpartconnected
13
    !for k=1 to $wims_numpartconnected