RT#71009: (v4+) OFM - Separate permissions for edit dates and contract dates
[freeside.git] / httemplate / misc / process / change_pkg_date.html
1 <& /elements/header-popup.html &>
2   <SCRIPT TYPE="text/javascript">
3     window.top.location.reload();
4   </SCRIPT>
5   </BODY>
6 </HTML>
7 <%init>
8
9 my $field = $cgi->param('field');
10
11 my ($acl, $isstart);
12 if ($field eq 'start_date') {
13   $acl = 'Change package start date';
14   $isstart = 1;
15 } elsif ($field eq 'contract_end') {
16   $acl = 'Change package contract end date';
17 } else {
18   die "Unknown date field";
19 }
20
21 my $curuser = $FS::CurrentUser::CurrentUser;
22 die "access denied"
23   unless $curuser->access_right($acl);
24
25 $cgi->param('pkgnum') =~ /^(\d+)$/
26   or die "illegal pkgnum";
27 my $pkgnum = $1;
28
29 my $cust_pkg = qsearchs({
30   table     => 'cust_pkg',
31   addl_from => ' JOIN cust_main USING (custnum) ',
32   hashref   => { 'pkgnum' => $pkgnum },
33   extra_sql => ' AND '. $curuser->agentnums_sql,
34 }) or die "Unknown pkgnum: $pkgnum";
35
36 my $cust_main = $cust_pkg->cust_main;
37
38 my $error;
39 my $date_value;
40 if ( $cgi->param('when') eq 'now' ) {
41   # blank start means start it the next time billing runs
42   $date_value = $isstart ? '' : time;
43 } elsif ( $cgi->param('when') eq 'next_bill_date' ) {
44   $date_value = $cust_main->next_bill_date;
45 } elsif ( $cgi->param('when') eq 'date' ) {
46   $date_value = parse_datetime($cgi->param('date_value'));
47 }
48
49 if ( $isstart && $cust_pkg->setup ) {
50   # shouldn't happen
51   $error = 'This package has already started billing.';
52 } else {
53   local $FS::UID::AutoCommit = 0;
54   foreach my $pkg ($cust_pkg, $cust_pkg->supplemental_pkgs) {
55     last if $error;
56     $pkg->set($field, $date_value);
57     $error ||= $pkg->replace;
58   }
59   $error ? dbh->rollback : dbh->commit;
60 }
61
62 if ( $error ) {
63   $cgi->param('error', $error);
64   print $cgi->redirect($fsurl.'misc/change_pkg_date.html?', $cgi->query_string);
65 }
66 </%init>