httemplate/edit/process/part_pkg.cgi

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