Backport r11824 from trunk: Fix OrgLasso.js generation case where no search groups...

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4@11825 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/extras/org_lasso_js.pl b/Open-ILS/src/extras/org_lasso_js.pl
index e99d124..c7cd693 100644 (file)
--- a/Open-ILS/src/extras/org_lasso_js.pl
+++ b/Open-ILS/src/extras/org_lasso_js.pl
@@ -26,9 +26,16 @@ my $lassos = $e->request(
     {order_by => {lasso => 'name'}}
 );
 
-print
-    "var _lasso = [\n  new lasso(" .
-    join( "),\n  new lasso(", map { OpenSRF::Utils::JSON->perl2JSON( bless($_, 'ARRAY') ) } @$lassos ) .
-    ")\n]; /* Org Search Groups (Lassos) */ \n";
-
+# We need at least one defined search group; otherwise, just generate an empty array
+if (scalar(@$lassos) > 0) {
+    print
+        "var _lasso = [\n  new lasso(" .
+        join( "),\n  new lasso(", map { OpenSRF::Utils::JSON->perl2JSON( bless($_, 'ARRAY') ) } @$lassos ) .
+        ")\n]; /* Org Search Groups (Lassos) */ \n";
+} else {
+    print <<HERE;
+var _lasso = [
+]; /* Org Search Groups (Lassos) */
+HERE
+}