Subversion Repositories wimsdev

Rev

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

Rev 17468 Rev 17471
Line 95... Line 95...
95
        fin=!char 2 to -1 of $(expir_user[$k])
95
        fin=!char 2 to -1 of $(expir_user[$k])
96
        fin=!text select 0123456789.: in $fin
96
        fin=!text select 0123456789.: in $fin
97
      !endif
97
      !endif
98
    !next k
98
    !next k
99
    !if $fin!=$empty
99
    !if $fin!=$empty
100
!!      date=!char 1 to 8 of $fin
100
      date=!char 1 to 14 of $fin
-
 
101
      !read date.phtml $date,noprint
101
      time_end=!char 10 to 14 of $fin
102
      time_end=$slib_out
102
    !endif
103
    !endif
103
  !endif
104
  !endif
104
  !! fin des modifications qui decoule de la limitation fixee par la feuille
105
  !! fin des modifications qui decoule de la limitation fixee par la feuille
105
!else
106
!else
106
  tmp=!record 0 of wimshome/$wims_sesdir/examdepend.$exam
107
  tmp=!record 0 of wimshome/$wims_sesdir/examdepend.$exam