rt/webrt/Elements/SelectDate

   1 <INPUT NAME="<%$Name%>" VALUE="<%$Default%>" size=16>
   2
   3 <%init>
   4 unless ((defined $Default) or
   5         ($current <= 0)) {
   6         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
   7                                             localtime($current);
   8         $Default = sprintf("%04d-%02d-%02d %02d:%02d",
   9                            $year+1900,$mon+1,$mday,
  10                            $hour,$min);
  11 }
  12
  13 unless ($Name) {
  14         $Name = $menu_prefix. "_Date";
  15 }
  16 </%init>
  17
  18 <%args>
  19
  20 $ShowTime => undef
  21 $menu_prefix=>''
  22 $current=>time
  23 $Default => undef
  24 $Name => undef
  25 </%args>