From 1d84feb7fe821b547e211ad03e5c200c8f218797 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 22 Nov 2008 07:10:11 +0000
Subject: billing event cloning

---
 httemplate/browse/part_event.html | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'httemplate/browse/part_event.html')

diff --git a/httemplate/browse/part_event.html b/httemplate/browse/part_event.html
index 4a0582633..674004bc7 100644
--- a/httemplate/browse/part_event.html
+++ b/httemplate/browse/part_event.html
@@ -144,7 +144,17 @@ my $html_init =
   #XXX better description
   'Events are billing, collection or other actions triggered when certain '.
   'customer, invoice, package or other conditions are met.<BR><BR>'.
-  qq!<A HREF="${p}edit/part_event.html"><I>Add a new event</I></A><BR><BR>!;
+  qq!<FORM METHOD="POST" ACTION="${p}edit/part_event.html">!.
+  qq!<A HREF="${p}edit/part_event.html"><I>Add a new event</I></A>!.
+  '&nbsp;or&nbsp;<SELECT NAME="clone"><OPTION></OPTION>';
+
+foreach my $part_event ( qsearch('part_event', {'diabled'=>''}) ) {
+  $html_init .=  '<OPTION VALUE="'. $part_event->eventpart. '">'.
+                 $part_event->event. '</OPTION>';
+}
+
+$html_init .= '</SELECT><INPUT TYPE="submit" VALUE="Clone existing event">'.
+              '</FORM><BR>';
      
 my $count_query = 'SELECT COUNT(*) FROM part_event WHERE '.
                   $FS::CurrentUser::CurrentUser->agentnums_sql(
-- 
cgit v1.2.1