2 <LINK REL="stylesheet" TYPE="text/css" HREF="<%$fsurl%>elements/calendar-win2k-2.css" TITLE="win2k-2">
3 <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar_stripped.js"></SCRIPT>
4 <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-en.js"></SCRIPT>
5 <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-setup.js"></SCRIPT>
8 <INPUT TYPE="text" NAME="<% $name %>" ID="<% $name %>_text" VALUE="<% $value %>">
9 <IMG SRC="<%$fsurl%>images/calendar.png" ID="<% $name %>_button" STYLE="cursor: pointer" TITLE="Select date">
11 <SCRIPT TYPE="text/javascript">
13 inputField: "<% $name %>_text",
14 ifFormat: "<% $format %>",
15 button: "<% $name %>_button",
22 my($name, $value, $format, $usedatetime, $noinit);
25 $name = $opt->{'name'};
26 $value = $opt->{'value'};
27 $format = $opt->{'format'};
28 $usedatetime = $opt->{'usedatetime'};
29 $noinit = $opt->{'noinit'};
31 ($name, $value, $format, $usedatetime) = @_;
34 my $conf = new FS::Conf;
36 $format ||= $conf->config('date_format') || '%m/%d/%Y';
38 if ( $value =~ /\S/ ) {
40 my $dt = DateTime->from_epoch(epoch => $value, time_zone => 'floating');
41 $value = $dt->strftime($format);
42 } elsif ( $value =~ /^\d+$/ ) {
43 $value = time2str($format, $value);