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