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