Subversion Repositories wimsdev

!if $module!=adm/class/cdt

  !goto oldversion

!endif

!reset option_ y_ m_ d_

!if $mdate_!=$empty

  !set y_=!char 1 to 4 of $mdate_

  !set m_=!char 5 to 6 of $mdate_

  !set d_=!char 7 to 8 of $mdate_

  !set option_=$option_ min="$y_-$m_-$d_"

  !reset y_ m_ d_

!endif

!if $Mdate_!=$empty

  !set y_=!char 1 to 4 of $Mdate_

  !set m_=!char 5 to 6 of $Mdate_

  !set d_=!char 7 to 8 of $Mdate_

  !set option_=$option_ max="$y_-$m_-$d_"

  !reset y_ m_ d_

!endif

!if $default_!=$empty

  !set y_=!char 1 to 4 of $default_

  !set m_=!char 5 to 6 of $default_

  !set d_=!char 7 to 8 of $default_

  !set option_=$option_ value="$y_-$m_-$d_"

!endif

<input type="date" name="$name_" id="$name_" $option_>

!exit

:oldversion