optimize declined payment event condition, RT#81305
[freeside.git] / httemplate / misc / unhold_pkg.html
1 <& /elements/header-popup.html, mt($title) &>
2
3 <& /elements/error.html &>
4
5 %# use unsusp_pkg.cgi, the same target as a direct "unsuspend package" link
6 <FORM NAME="UnholdForm" ACTION="process/unhold_pkg.html" METHOD=POST>
7 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
8
9 <BR>
10 <% emt('Start billing [_1]', $part_pkg->pkg_comment(cust_pkg => $cust_pkg)) %>
11 <UL STYLE="padding-left: 3ex; list-style: none; background-color: #cccccc">
12 <LI>
13   <& /elements/radio.html,
14     field => 'when',
15     id    => 'when_now',
16     value => 'now',
17     curr_value => $when,
18   &>
19   <label for="when_now"><% emt('Immediately') %></label>
20 </LI>
21 % if ( $next_bill_date ) {
22 <LI>
23   <& /elements/radio.html,
24     field => 'when',
25     id    => 'when_next_bill_date',
26     value => 'next_bill_date',
27     curr_value => $when,
28   &>
29   <label for="when_next_bill_date">
30     <% emt('On the next bill date: [_1]', 
31       time2str($date_format, $next_bill_date) ) %>
32   </label>
33 </LI>
34 % }
35 <LI>
36 <& /elements/radio.html,
37   field => 'when',
38   id    => 'when_date',
39   value => 'date',
40   curr_value => $when,
41 &>
42 <label for="when_date"> <% emt('On this date:') %> </label>
43 <& /elements/input-date-field.html,
44   { name  => 'start_date',
45     value => scalar($cgi->param('start_date')),
46   }
47 &>
48 </LI>
49 </UL>
50 <INPUT TYPE="submit" NAME="submit" VALUE="<% emt('Start billing') %>">
51
52 </FORM>
53 </BODY>
54 </HTML>
55
56 <%init>
57
58 my $curuser = $FS::CurrentUser::CurrentUser;
59 die "access denied"
60   unless $curuser->access_right('Unsuspend customer package');
61
62 my $pkgnum;
63 if ( $cgi->param('pkgnum') =~ /^(\d+)$/ ) {
64   $pkgnum = $1;
65 } else {
66   die "illegal query ". $cgi->keywords;
67 }
68
69 my $conf = new FS::Conf;
70 my $date_format = $conf->config('date_format') || '%m/%d/%Y';
71
72 my $title = 'Start billing package';
73
74 my $cust_pkg = qsearchs({
75   table     => 'cust_pkg',
76   addl_from => ' JOIN cust_main USING (custnum) ',
77   hashref   => { 'pkgnum' => $pkgnum },
78   extra_sql => ' AND '. $curuser->agentnums_sql,
79 }) or die "Unknown pkgnum: $pkgnum";
80
81 my $next_bill_date = $cust_pkg->cust_main->next_bill_date;
82
83 my $part_pkg = $cust_pkg->part_pkg;
84
85 my $when = $cgi->param('when'); # on error
86 if (!$when) {
87   if ($next_bill_date) {
88     $when = 'next_bill_date';
89   } else {
90     $when = 'now';
91   }
92 }
93 </%init>