Subversion Repositories wimsdev

!! ------- preparing date format

!! ------- preparing date format

d1=!text select char 0123456789 in $(deadline)$(timedeadline)

d1=!text select char 0123456789 in $(deadline)$(timedeadline)

d2=!text select char 0123456789 in $(soldate)$(timesoldate)

d2=!text select char 0123456789 in $(soldate)$(timesoldate)

now=!text select char 0123456789 in $wims_now

now=!text select char 0123456789 in $wims_now

now=!char 1 to 12 of $now

now=!char 1 to 12 of $now

!readproc adm/date.phtml $(deadline)

!readproc adm/date.phtml $(deadline)

tmp=!replace internal : by H in $timedeadline

tmp=!replace internal : by H in $timedeadline

!let date1=$l_date_out $wims_name_at $tmp

!let date1=$l_date_out $wims_name_at $tmp

!readproc adm/date.phtml $(soldate)

!readproc adm/date.phtml $(soldate)

tmp=!replace internal : by H in $timesoldate

tmp=!replace internal : by H in $timesoldate