X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_event.html;h=f68f06b9f4feafcbd89f97eb5ccc6a1257171247;hb=0a256d5758b5826aeaf7b59ac2e0f8c97ba8b86b;hp=4a0582633c906a3bb886cfab82a452e8a799d490;hpb=5e05724a635a22776f1b973f5d7e77989da4e048;p=freeside.git

diff --git a/httemplate/browse/part_event.html b/httemplate/browse/part_event.html
index 4a0582633..f68f06b9f 100644
--- a/httemplate/browse/part_event.html
+++ b/httemplate/browse/part_event.html
@@ -144,11 +144,22 @@ 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->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(
-                    'null_right' => 'Edit global billing events',
+                    'null_right'    => 'Edit global billing events',
+                    'viewall_right' => 'None',
                   );
 
 my $join_conditions  = FS::part_event_condition->join_conditions_sql;