httemplate/edit/process/part_pkg.cgi

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