Subversion Repositories wimsdev

Rev

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

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