set expire date for customer packages, RT#9697
[freeside.git] / httemplate / elements / input-date-field.html
1
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>
6
7 <INPUT TYPE="text" NAME="<% $name %>" ID="<% $name %>_text" VALUE="<% $value %>">
8 <IMG SRC="<%$fsurl%>images/calendar.png" ID="<% $name  %>_button" STYLE="cursor: pointer" TITLE="Select date">
9
10 <SCRIPT TYPE="text/javascript">
11   Calendar.setup({
12     inputField: "<% $name %>_text",
13     ifFormat:   "<% $format %>",
14     button:     "<% $name %>_button",
15     align:      "BR"
16   });
17 </SCRIPT>
18
19 <%init>
20
21 my($name, $value, $format, $usedatetime);
22 if ( ref($_[0]) ) {
23   my $opt = shift;
24   $name        = $opt->{'name'};
25   $value       = $opt->{'value'};
26   $format      = $opt->{'format'};
27   $usedatetime = $opt->{'usedatetime'};
28 } else {
29   ($name, $value, $format, $usedatetime) = @_;
30 }
31
32 my $conf = new FS::Conf;
33
34 $format ||= $conf->config('date_format') || '%m/%d/%Y';
35
36 if ( $value =~ /\S/ ) {
37   if ( $usedatetime ) {
38     my $dt = DateTime->from_epoch(epoch => $value, time_zone => 'floating');
39     $value = $dt->strftime($format);
40   } elsif ( $value =~ /^\d+$/ ) {
41     $value = time2str($format, $value);
42   }
43 } else {
44   $value = '';
45 }
46
47 </%init>
48