add (unfinished) credit card surcharge, part 1
[freeside.git] / httemplate / edit / REAL_cust_pkg.cgi
1 <% include("/elements/header.html",'Customer package - Edit dates') %>
2
3 %#, menubar(
4 %#  "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum",
5 %#));
6
7 <LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
8 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
9 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
10 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-setup.js"></SCRIPT>
11
12 <FORM NAME="formname" ACTION="process/REAL_cust_pkg.cgi" METHOD="POST">
13 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
14
15 % # raw error from below
16 % if ( $error ) { 
17   <FONT SIZE="+1" COLOR="#ff0000">Error: <% $error %></FONT>
18 % } 
19 % #or, regular error handler
20 <% include('/elements/error.html') %>
21
22 <% ntable("#cccccc",2) %>
23
24   <TR>
25     <TD ALIGN="right">Package number</TD>
26     <TD BGCOLOR="#ffffff"><% $cust_pkg->pkgnum %></TD>
27   </TR>
28
29   <TR>
30     <TD ALIGN="right">Package</TD>
31     <TD BGCOLOR="#ffffff"><% $part_pkg->pkg %></TD>
32   </TR>
33
34   <TR>
35     <TD ALIGN="right">Custom</TD>
36     <TD BGCOLOR="#ffffff"><% $part_pkg->custom %></TD>
37   </TR>
38
39   <TR>
40     <TD ALIGN="right">Comment</TD>
41     <TD BGCOLOR="#ffffff"><% $part_pkg->comment %></TD>
42   </TR>
43
44   <TR>
45     <TD ALIGN="right">Order taker</TD>
46     <TD BGCOLOR="#ffffff"><% $cust_pkg->otaker %></TD>
47   </TR>
48
49   <& .row_display, cust_pkg=>$cust_pkg, column=>'order_date',     label=>'Order' &>
50 % if ( $cust_pkg->setup && ! $cust_pkg->start_date ) {
51   <& .row_display, cust_pkg=>$cust_pkg, column=>'start_date',   label=>'Start' &>
52 % } else {
53   <& .row_edit, cust_pkg=>$cust_pkg, column=>'start_date', label=>'Start' &>
54 % }
55
56   <& .row_edit, cust_pkg=>$cust_pkg, column=>'setup',     label=>'Setup' &>
57   <& .row_edit, cust_pkg=>$cust_pkg, column=>'last_bill', label=>$last_bill_or_renewed &>
58   <& .row_edit, cust_pkg=>$cust_pkg, column=>'bill',      label=>$next_bill_or_prepaid_until &>
59 %#if ( $cust_pkg->contract_end or $part_pkg->option('contract_end_months',1) ) {
60     <& .row_edit, cust_pkg=>$cust_pkg, column=>'contract_end',label=>'Contract end' &>
61 %#}
62   <& .row_display, cust_pkg=>$cust_pkg, column=>'adjourn',  label=>'Adjournment', note=>'(will <b>suspend</b> this package when the date is reached)' &>
63   <& .row_display, cust_pkg=>$cust_pkg, column=>'susp',     label=>'Suspension' &>
64
65   <& .row_display, cust_pkg=>$cust_pkg, column=>'expire',   label=>'Expiration', note=>'(will <b>cancel</b> this package when the date is reached)' &>
66   <& .row_display, cust_pkg=>$cust_pkg, column=>'cancel',   label=>'Cancellation' &>
67
68
69 <%def .row_edit>
70 <%args>
71   $cust_pkg
72   $column
73   $label
74   $note => ''
75 </%args>
76 % my $value = $cust_pkg->get($column);
77 % $value = $value ? time2str($format, $value) : "";
78
79   <TR>
80     <TD ALIGN="right"><% $label %> date</TD>
81     <TD>
82       <INPUT TYPE  = "text"
83              NAME  = "<% $column %>"
84              SIZE  = 32
85              ID    = "<% $column %>_text"
86              VALUE = "<% $value %>"
87       >
88       <IMG SRC   = "../images/calendar.png"
89            ID    = "<% $column %>_button"
90            STYLE = "cursor: pointer"
91            TITLE = "Select date"
92       >
93 %     if ( $note ) {
94         <BR><FONT SIZE=-1><% $note %></FONT>
95 %     }
96     </TD>
97   </TR>
98
99   <SCRIPT TYPE="text/javascript">
100     Calendar.setup({
101       inputField: "<% $column %>_text",
102       ifFormat:   "<% $date_format %>",
103       button:     "<% $column %>_button",
104       align:      "BR"
105     });
106   </SCRIPT>
107
108 </%def>
109
110 <%def .row_display>
111 <%args>
112   $cust_pkg
113   $column
114   $label
115   $note => ''
116 </%args>
117 % if ( $cust_pkg->get($column) ) { 
118     <TR>
119       <TD ALIGN="right"><% $label %> date</TD>
120       <TD BGCOLOR="#ffffff"><% time2str($format,$cust_pkg->get($column)) %>
121 %       if ( $note ) {
122           <BR><FONT SIZE=-1><% $note %></FONT>
123 %       }
124       </TD>
125     </TR>
126 % } 
127 </%def>
128
129 </TABLE>
130
131 <BR>
132 <INPUT TYPE="submit" VALUE="Apply Changes">
133 </FORM>
134
135 <% include('/elements/footer.html') %>
136 <%shared>
137
138 my $conf = new FS::Conf;
139 my $date_format = $conf->config('date_format') || '%m/%d/%Y';
140
141 my $format = $date_format. ' %T'; # %z (%Z)';
142
143 </%shared>
144 <%init>
145
146 die "access denied"
147   unless $FS::CurrentUser::CurrentUser->access_right('Edit customer package dates');
148
149
150 my $error = '';
151 my( $pkgnum, $cust_pkg );
152
153 if ( $cgi->param('error') ) {
154
155   $pkgnum = $cgi->param('pkgnum');
156
157   if ( $cgi->param('error') =~ /^_/ ) {
158
159     my @errors = ();
160     my %errors = map { $_=>1 } split(',', $cgi->param('error'));
161     $cgi->param('error', '');
162
163     if ( $errors{'_bill_areyousure'} ) {
164       if ( $cgi->param('bill') =~ /^([\s\d\/\:\-\(\w\)]*)$/ ) {
165         my $bill = $1;
166         push @errors,
167           "You are attempting to set the next bill date to $bill, which is
168            in the past.  This will charge the customer for the interval
169            from $bill until now.  Are you sure you want to do this? ".
170           '<INPUT TYPE="checkbox" NAME="bill_areyousure" VALUE="1">';
171       }
172     }
173
174     if ( $errors{'_setup_areyousure'} ) {
175       push @errors,
176         "You are attempting to remove the setup date.  This will re-charge the
177          customer for the setup fee. Are you sure you want to do this? ".
178         '<INPUT TYPE="checkbox" NAME="setup_areyousure" VALUE="1">';
179     }
180
181     if ( $errors{'_start'} ) {
182       push @errors,
183         "You are attempting to add a start date to a package that has already
184          started billing.";
185     }
186
187     $error = join('<BR><BR>', @errors );
188
189   }
190
191   #get package record
192   $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
193   die "No package!" unless $cust_pkg;
194
195   foreach my $col (qw( start_date setup last_bill bill adjourn expire )) {
196     my $value = $cgi->param($col);
197     $cust_pkg->set( $col, $value ? parse_datetime($value) : '' );
198   }
199
200 } else {
201
202   my($query) = $cgi->keywords;
203   $query =~ /^(\d+)$/ or die "no pkgnum";
204   $pkgnum = $1;
205
206   #get package record
207   $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
208   die "No package!" unless $cust_pkg;
209
210 }
211
212 my $part_pkg = qsearchs( 'part_pkg', { 'pkgpart' => $cust_pkg->pkgpart } );
213
214 my( $last_bill_or_renewed, $next_bill_or_prepaid_until );
215 unless ( $part_pkg->is_prepaid ) {
216   #$billed_or_prepaid = 'billed';
217   $last_bill_or_renewed = 'Last bill';
218   $next_bill_or_prepaid_until = 'Next bill';
219 } else {
220   #$billed_or_prepaid = 'prepaid';
221   $last_bill_or_renewed = 'Renewed';
222   $next_bill_or_prepaid_until = 'Prepaid until';
223 }
224
225 </%init>