RT#30705 Change contract end date when changing packages
[freeside.git] / httemplate / edit / process / change-cust_pkg.html
1 % if ($error) {
2 %   $cgi->param('error', $error);
3 %   $cgi->redirect(popurl(3). 'misc/change_pkg.cgi?'. $cgi->query_string );
4 % } else {
5
6     <% header(emt("Package changed")) %>
7       <SCRIPT TYPE="text/javascript">
8         window.top.location.reload();
9       </SCRIPT>
10     </BODY>
11     </HTML>
12
13 % }
14 <%init>
15
16 my $curuser = $FS::CurrentUser::CurrentUser;
17
18 die "access denied"
19   unless $curuser->access_right('Change customer package');
20
21 my $cust_pkg = qsearchs({
22   'table'     => 'cust_pkg',
23   'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
24   'hashref'   => { 'pkgnum' => scalar($cgi->param('pkgnum')), },
25   'extra_sql' => ' AND '. $curuser->agentnums_sql,
26 });
27 die 'unknown pkgnum' unless $cust_pkg;
28
29 my %change = map { $_ => scalar($cgi->param($_)) }
30                  qw( locationnum pkgpart quantity );
31
32 $change{'keep_dates'} = 1;
33
34 if ( $cgi->param('locationnum') == -1 ) {
35   my $cust_location = FS::cust_location->new({
36     'custnum' => $cust_pkg->custnum,
37     map { $_ => scalar($cgi->param($_)) }
38         FS::cust_main->location_fields
39   });
40   $change{'cust_location'} = $cust_location;
41 }
42
43 my $error;
44 my $contract_end;
45 my $now = time;
46 if (defined($cgi->param('contract_end'))) {
47   $contract_end = parse_datetime($cgi->param('contract_end'));
48   if ($contract_end < $now) {
49     $error = "Contract end ".$cgi->param('contract_end')." is in the past.";
50   } else {
51     $change{'contract_end'} = $contract_end;
52   }
53 }
54
55 unless ($error) {
56   if ( $cgi->param('delay') ) {
57     my $date = parse_datetime($cgi->param('start_date'));
58     if (!$date) {
59       $error = "Invalid change date '".$cgi->param('start_date')."'.";
60     } elsif ( $date < $now ) {
61       $error = "Change date ".$cgi->param('start_date')." is in the past.";
62     } else {
63       # schedule the change
64       $change{'start_date'} = $date;
65       $error = $cust_pkg->change_later(\%change);
66     }
67   } else {
68     # special case: if there's a package change scheduled, and it matches
69     # the parameters the user requested this time, then change to the existing
70     # future package.
71     if ( $cust_pkg->change_to_pkgnum ) {
72       my $change_to = FS::cust_pkg->by_key($cust_pkg->change_to_pkgnum);
73       if (
74         $change_to->pkgpart      == $change{'pkgpart'} and
75         $change_to->locationnum  == $change{'locationnum'} and
76         $change_to->quantity     == $change{'quantity'} and
77         $change_to->contract_end == $change{'contract_end'}
78       ) {
79         %change = ( 'cust_pkg' => $change_to );
80       }
81     }
82     
83     # do a package change right now
84     my $pkg_or_error = $cust_pkg->change( \%change );
85     $error = ref($pkg_or_error) ? '' : $pkg_or_error;
86   }
87 }
88
89 </%init>