From ff9bbd7beaa293463e0bc1a1c052a84da051e5f2 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 26 Mar 2008 01:03:31 +0000
Subject: quick shortcut for easier adding of new 1.7-style invoice events

---
 httemplate/edit/process/part_bill_event.cgi | 32 +++++++++++++++++++++--------
 1 file changed, 23 insertions(+), 9 deletions(-)

(limited to 'httemplate/edit/process')

diff --git a/httemplate/edit/process/part_bill_event.cgi b/httemplate/edit/process/part_bill_event.cgi
index 3534519fd..eb0529bb8 100755
--- a/httemplate/edit/process/part_bill_event.cgi
+++ b/httemplate/edit/process/part_bill_event.cgi
@@ -72,21 +72,35 @@ if ( ! $cgi->param('plan_weight_eventcode') ) {
   $cgi->param('eventcode', $eventcode);
   $cgi->param('plandata', $plandata);
 
-  unless($error){
-    my $new = new FS::part_bill_event ( {
-      map {
-        $_, scalar($cgi->param($_));
-      } fields('part_bill_event'),
-    } );
-    $new->setfield('reason', $rnum);
+  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 {
-      $error = $new->insert;
-      $eventpart = $new->getfield('eventpart');
+
+      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>
-- 
cgit v1.2.1