httemplate/edit/process/part_pkg.cgi

   1 <%
   2 #<!-- $Id: part_pkg.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $pkgpart $old $new $part_svc $error $dbh );
   6 use CGI;
   7 use CGI::Carp qw(fatalsToBrowser);
   8 use FS::UID qw(cgisuidsetup);
   9 use FS::CGI qw(popurl);
  10 use FS::Record qw(qsearch qsearchs fields);
  11 use FS::part_pkg;
  12 use FS::pkg_svc;
  13 use FS::cust_pkg;
  14
  15 $cgi = new CGI;
  16 $dbh = &cgisuidsetup($cgi);
  17
  18 $pkgpart = $cgi->param('pkgpart');
  19
  20 $old = qsearchs('part_pkg',{'pkgpart'=>$pkgpart}) if $pkgpart;
  21
  22 $new = new FS::part_pkg ( {
  23   map {
  24     $_, scalar($cgi->param($_));
  25   } fields('part_pkg')
  26 } );
  27
  28 #most of the stuff below should move to part_pkg.pm
  29
  30 foreach $part_svc ( qsearch('part_svc', {} ) ) {
  31   my $quantity = $cgi->param('pkg_svc'. $part_svc->svcpart) || 0;
  32   unless ( $quantity =~ /^(\d+)$/ ) {
  33     $cgi->param('error', "Illegal quantity" );
  34     print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
  35     exit;
  36   }
  37 }
  38
  39 local $SIG{HUP} = 'IGNORE';
  40 local $SIG{INT} = 'IGNORE';
  41 local $SIG{QUIT} = 'IGNORE';
  42 local $SIG{TERM} = 'IGNORE';
  43 local $SIG{TSTP} = 'IGNORE';
  44 local $SIG{PIPE} = 'IGNORE';
  45
  46 local $FS::UID::AutoCommit = 0;
  47
  48 if ( $pkgpart ) {
  49   $error = $new->replace($old);
  50 } else {
  51   $error = $new->insert;
  52   $pkgpart=$new->pkgpart;
  53 }
  54 if ( $error ) {
  55   $dbh->rollback;
  56   $cgi->param('error', $error );
  57   print $cgi->redirect(popurl(2). "part_pkg.cgi?". $cgi->query_string );
  58   exit;
  59 }
  60
  61 foreach $part_svc (qsearch('part_svc',{})) {
  62   my $quantity = $cgi->param('pkg_svc'. $part_svc->svcpart) || 0;
  63   my $old_pkg_svc = qsearchs('pkg_svc', {
  64     'pkgpart' => $pkgpart,
  65     'svcpart' => $part_svc->svcpart,
  66   } );
  67   my $old_quantity = $old_pkg_svc ? $old_pkg_svc->quantity : 0;
  68   next unless $old_quantity != $quantity; #!here
  69   my $new_pkg_svc = new FS::pkg_svc( {
  70     'pkgpart'  => $pkgpart,
  71     'svcpart'  => $part_svc->svcpart,
  72     'quantity' => $quantity,
  73   } );
  74   if ( $old_pkg_svc ) {
  75     my $myerror = $new_pkg_svc->replace($old_pkg_svc);
  76     if ( $myerror ) {
  77       $dbh->rollback;
  78       die $myerror;
  79     }
  80   } else {
  81     my $myerror = $new_pkg_svc->insert;
  82     if ( $myerror ) {
  83       $dbh->rollback;
  84       die $myerror;
  85     }
  86   }
  87 }
  88
  89 unless ( $cgi->param('pkgnum') && $cgi->param('pkgnum') =~ /^(\d+)$/ ) {
  90   $dbh->commit or die $dbh->errstr;
  91   print $cgi->redirect(popurl(3). "browse/part_pkg.cgi");
  92 } else {
  93   my($old_cust_pkg) = qsearchs( 'cust_pkg', { 'pkgnum' => $1 } );
  94   my %hash = $old_cust_pkg->hash;
  95   $hash{'pkgpart'} = $pkgpart;
  96   my($new_cust_pkg) = new FS::cust_pkg \%hash;
  97   my $myerror = $new_cust_pkg->replace($old_cust_pkg);
  98   if ( $myerror ) {
  99     $dbh->rollback;
 100     die "Error modifying cust_pkg record: $myerror\n";
 101   }
 102
 103   $dbh->commit or die $dbh->errstr;
 104   print $cgi->redirect(popurl(3). "view/cust_main.cgi?". $new_cust_pkg->custnum);
 105 }
 106
 107 %>