httemplate/edit/process/part_pkg.cgi

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