FS/FS/msa.pm
[freeside.git] / httemplate / misc / did_order_confirmed.html
1 <% include('/elements/header-popup.html', $success_msg ) %>
2   <SCRIPT TYPE="text/javascript">
3     <% $js %>
4   </SCRIPT>
5   </BODY>
6 </HTML>
7 <%init>
8 die "access denied"
9   unless $FS::CurrentUser::CurrentUser->access_right('Import');
10
11 $cgi->param('action') =~ /^(confirm|cancel)$/ or die 'illegal action';
12 my $action = $1;
13 my $success_msg = '';
14 my $error = '';
15 my $js = 'window.top.location.reload();';
16
17 $cgi->param('ordernum') =~ /^(\d+)$/ or die 'illegal ordernum';
18 my $ordernum = $1;
19 my $did_order = qsearchs( {
20   'table'     => 'did_order',
21   'hashref'   => { 'ordernum' => $ordernum },
22 } );
23 die "No order $ordernum" unless $did_order;
24
25 if ( $action eq 'confirm' ) {
26     my $confirmed = '';
27     my $sucess_msg = 'DID order confirmed';
28     $confirmed = parse_datetime($cgi->param('confirmed'))
29         if $cgi->param('confirmed') && $cgi->param('confirmed') !~ /^\d+$/;
30     $confirmed = $1
31         if $cgi->param('confirmed') && $cgi->param('confirmed') =~ /^(\d+)$/;
32
33     die "invalid confirmation date" unless $confirmed;
34
35     $did_order->confirmed($confirmed);
36     $did_order->vendor_order_id($cgi->param('vendor_order_id'));
37     $error = $did_order->replace;
38     if ( $error ) {
39         $cgi->param('error', $error);
40         print $cgi->redirect(popurl(1). "did_order_confirm.html?". $cgi->query_string );
41     }
42 }
43 elsif ( $action eq 'cancel' ) {
44     my $sucess_msg = 'DID order cancelled';
45     $error = $did_order->delete;
46     $js = "window.location.href = '${p}browse/did_order.html'";
47 }
48 </%init>