% if(!$noinit) {
<LINK REL="stylesheet" TYPE="text/css" HREF="<%$fsurl%>elements/calendar-win2k-2.css" TITLE="win2k-2">
<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar_stripped.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-en.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-setup.js"></SCRIPT>
% }

<INPUT TYPE="text" NAME="<% $name %>" ID="<% $name %>_text" VALUE="<% $value %>">
<IMG SRC="<%$fsurl%>images/calendar.png" ID="<% $name  %>_button" STYLE="cursor: pointer" TITLE="<% mt('Select date') |h %>"><IMG SRC="<%$fsurl%>images/calendar-disabled.png" ID="<% $name %>_disabled" STYLE="display:none">

<SCRIPT TYPE="text/javascript">
  Calendar.setup({
    inputField: "<% $name %>_text",
    ifFormat:   "<% $format %>",
    button:     "<% $name %>_button",
    align:      "BR"
%   if ( $format =~ /\%r/ ) {
      ,
      showsTime: true,
      timeFormat: 12
%   }
  });
</SCRIPT>

<%init>

my($name, $value, $format, $usedatetime, $noinit);
if ( ref($_[0]) ) {
  my $opt = shift;
  $name        = $opt->{'name'};
  $value       = $opt->{'value'};
  $format      = $opt->{'format'};
  $usedatetime = $opt->{'usedatetime'};
  $noinit      = $opt->{'noinit'};
} else {
  ($name, $value, $format, $usedatetime) = @_;
}

my $conf = new FS::Conf;

$format ||= $conf->config('date_format') || '%m/%d/%Y';

if ( $value =~ /\S/ ) {
  if ( $usedatetime ) {
    my $dt = DateTime->from_epoch(epoch => $value, time_zone => 'floating');
    $value = $dt->strftime($format);
  } elsif ( $value =~ /^\d+$/ ) {
    $value = time2str($format, $value);
  }
} else {
  $value = '';
}

</%init>