httemplate/edit/process/svc_broadband.cgi

   1 <%
   2
   3 # If it's stupid but it works, it's not stupid.
   4 # -- U.S. Army
   5
   6 local $FS::UID::AutoCommit = 0;
   7 my $dbh = FS::UID::dbh;
   8
   9 $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
  10 my $svcnum = $1;
  11
  12 my $old; my @old_sbf;
  13 if ( $svcnum ) {
  14   $old = qsearchs('svc_broadband', { 'svcnum' => $svcnum } )
  15     or die "fatal: can't find broadband service (svcnum $svcnum)!";
  16   @old_sbf = $old->sb_field;
  17 } else {
  18   $old = '';
  19 }
  20
  21 my $new = new FS::svc_broadband ( {
  22   map {
  23     ($_, scalar($cgi->param($_)));
  24   } ( fields('svc_broadband'), qw( pkgnum svcpart ) )
  25 } );
  26
  27 my $error;
  28 if ( $svcnum ) {
  29   $error = $new->replace($old);
  30 } else {
  31   $error = $new->insert;
  32   $svcnum = $new->svcnum;
  33 }
  34
  35 unless ($error) {
  36   my $sb_field;
  37
  38   foreach ($cgi->param) {
  39     #warn "\$cgi->param $_: " . $cgi->param($_);
  40     if(/^sbf_(\d+)/) {
  41       my $part = $1;
  42       #warn "\$part $part";
  43       $sb_field = new FS::sb_field
  44         { svcnum      => $svcnum,
  45           value       => $cgi->param($_),
  46           sbfieldpart => $part };
  47       if (my @x = grep { $_->sbfieldpart eq $part } @old_sbf) {
  48       #if (my $old_sb_field = (grep { $_->sbfieldpart eq $part} @old_Sbf)[0]) {
  49         #warn "array: " . scalar(@x);
  50         if (length($sb_field->value) && ($sb_field->value ne $x[0]->value)) {
  51           #warn "replacing " . $x[0]->value . " with " . $sb_field->value;
  52           $error = $sb_field->replace($x[0]);
  53           #$error = $sb_field->replace($old_sb_field);
  54         } elsif (length($sb_field->value) == 0) {
  55           #warn "delete";
  56           $error = $x[0]->delete;
  57         }
  58       } else {
  59         if (length($sb_field->value) > 0) {
  60           #warn "insert";
  61           $error = $sb_field->insert;
  62         }
  63         # else do nothing
  64       }
  65     }
  66   }
  67 }
  68
  69 if ( $error ) {
  70   $cgi->param('error', $error);
  71   $cgi->param('ip_addr', $new->ip_addr);
  72   $dbh->rollback;
  73   print $cgi->redirect(popurl(2). "svc_broadband.cgi?". $cgi->query_string );
  74 } else {
  75   $dbh->commit or die $dbh->errstr;
  76   print $cgi->redirect(popurl(3). "view/svc_broadband.cgi?" . $svcnum );
  77 }
  78
  79 %>