httemplate/edit/process/part_pkg.cgi

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