remove ancient invoice events

[freeside.git] / httemplate / edit / process / part_bill_event.cgi

diff --git a/httemplate/edit/process/part_bill_event.cgi b/httemplate/edit/process/part_bill_event.cgi
deleted file mode 100755 (executable)
index eb0529b..0000000
--- a/httemplate/edit/process/part_bill_event.cgi
+++ /dev/null
@@ -1,106 +0,0 @@
-%if ( $error ) {
-%  $cgi->param('error', $error);
-<% $cgi->redirect(popurl(2). "part_bill_event.cgi?". $cgi->query_string ) %>
-%} else {
-<% $cgi->redirect(popurl(3)."browse/part_bill_event.cgi") %>
-%}
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-
-my $eventpart = $cgi->param('eventpart');
-
-my $old = qsearchs('part_bill_event',{'eventpart'=>$eventpart}) if $eventpart;
-
-#s/days/seconds/
-$cgi->param('seconds', int( $cgi->param('days') * 86400 ) );
-
-my $error;
-if ( ! $cgi->param('plan_weight_eventcode') ) {
-  $error = "Must select an action";
-} else {
-
-  $cgi->param('plan_weight_eventcode') =~ /^([\w\-]+):(\d+):(.*)$/s
-    or die "illegal plan_weight_eventcode:".
-           $cgi->param('plan_weight_eventcode');
-  $cgi->param('plan', $1);
-  $cgi->param('weight', $2);
-  my $eventcode = $3;
-  my $plandata = '';
-
-  my $rnum;
-  my $rtype;
-  my $reasonm;
-  my $class  = '';
-  $class='c' if ($eventcode =~ /cancel/);
-  $class='s' if ($eventcode =~ /suspend/);
-  if ($class) {
-    $cgi->param("${class}reason") =~ /^(-?\d+)$/
-      or $error =  "Invalid ${class}reason";
-    $rnum = $1;
-    if ($rnum == -1) {
-      $cgi->param("new${class}reasonT") =~ /^(\d+)$/
-        or $error =  "Invalid new${class}reasonT";
-      $rtype = $1;
-      $cgi->param("new${class}reason") =~ /^([\s\w]+)$/
-        or $error = "Invalid new${class}reason";
-      $reasonm = $1;
-    }
-  }
- 
-  if ($rnum == -1 && !$error) {
-    my $reason = new FS::reason ({ 'reason'      => $reasonm,
-                                   'reason_type' => $rtype,
-                                 });
-    $error = $reason->insert;
-    unless ($error) {
-      $rnum = $reason->reasonnum;
-      $cgi->param("${class}reason", $rnum);
-      $cgi->param("new${class}reason", '');
-      $cgi->param("new${class}reasonT", '');
-    }
-  }
-
-  while ( $eventcode =~ /%%%(\w+)%%%/ ) {
-    my $field = $1;
-    my $value = join(', ', $cgi->param($field) );
-    $cgi->param($field, $value); #in case it errors out
-    $eventcode =~ s/%%%$field%%%/$value/;
-    $plandata .= "$field $value\n";
-  }
-  $cgi->param('eventcode', $eventcode);
-  $cgi->param('plandata', $plandata);
-
-  unless($error) {
-
-    if ( $eventpart ) {
-
-      my $new = new FS::part_bill_event ( {
-        map { $_ => scalar($cgi->param($_)) }
-            fields('part_bill_event'),
-      } );
-      $new->setfield('reason' => $rnum);
-      $error = $new->replace($old);
-
-    } else {
-
-      foreach my $payby ( $cgi->param('payby') ) {
-        my $new = new FS::part_bill_event ( {
-          map  { $_ => scalar($cgi->param($_)) }
-          grep { $_ ne 'payby' }
-               fields('part_bill_event')
-        } );
-        $new->setfield('payby'  => $payby);
-        $new->setfield('reason' => $rnum );
-        $error = $new->insert;
-        last if $error;
-      }
-
-    }
-
-  }
-
-} 
-
-</%init>