Subversion Repositories wimsdev

Rev

Rev 9584 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !distribute item $wims_read_parm into slib_don,slib_option
  2. !default slib_don=$wims_now
  3. !let slib_day=!char 7 to 8 of $slib_don
  4. !let slib_month=!char 5 to 6 of $slib_don
  5. !let slib_year=!char 1 to 4 of $slib_don
  6. !let slib_hour=!char 10 to 17 of $slib_don
  7. !if $module_language=fr
  8.  !let slib_out=$slib_day/$slib_month/$slib_year
  9. !else
  10.  !let slib_out=$slib_year/$slib_month/$slib_day
  11. !endif
  12. !if notime notin $slib_option
  13.  !let slib_out=$slib_out - $slib_hour
  14. !endif
  15. $slib_out