fix very strange "Undefined subroutine &FS::UI::Web::rooturl" with an explicit import...

[freeside.git] / httemplate / elements / select-cust_pkg-status.html

diff --git a/httemplate/elements/select-cust_pkg-status.html b/httemplate/elements/select-cust_pkg-status.html
index 5da93fe..71aaa84 100644 (file)
--- a/httemplate/elements/select-cust_pkg-status.html
+++ b/httemplate/elements/select-cust_pkg-status.html
@@ -1,19 +1,21 @@
-<%
-  my( $status, %opt ) = @_;
-
-  $opt{'statuses'} ||= [ FS::cust_pkg->statuses() ]; # { disabled=>'' } )
-
-%>
-
-<SELECT NAME="status">
+<SELECT NAME="status" <% $opt{'onchange'} %>>
 
   <OPTION VALUE="">all
 
-  <% foreach my $status ( @{ $opt{'statuses'} } ) { %>
+% foreach my $option ( @{ $opt{'statuses'} } ) { 
+       <OPTION VALUE="<% $option %>" <% $option eq $status ? 'SELECTED' : '' %>><% $option %>
+% } 
 
-       <OPTION VALUE="<%= $status %>"><%= $status %>
+</SELECT>
+<%init>
+  my( $status, %opt ) = @_;
 
-  <% } %>
+  $opt{'statuses'} ||= [ FS::cust_pkg->statuses() ]; # { disabled=>'' } )
 
-</SELECT>
+  if ( exists $opt{'onchange'} && $opt{'onchange'} ) {
+    $opt{'onchange'} = ' onChange="' . $opt{'onchange'}. '"';
+  } else {
+    $opt{'onchange'} = '';
+  }
 
+</%init>