[LON-CAPA-cvs] cvs: loncom /interface courseclassifier.pm lonnotify.pm lonsupportreq.pm lonuserutils.pm

[raeburn]

raeburn		Wed Jan 18 21:07:32 2017 EDT

  Modified files:              
    /loncom/interface	lonsupportreq.pm lonnotify.pm lonuserutils.pm 
                     	courseclassifier.pm 
  Log:
  - Second arg in courseclassifier::javascript_code_selections() changed to ref
    to array.
  
  
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.84 loncom/interface/lonsupportreq.pm:1.85
--- loncom/interface/lonsupportreq.pm:1.84	Wed Sep 14 21:15:09 2016
+++ loncom/interface/lonsupportreq.pm	Wed Jan 18 21:07:31 2017
@@ -1,5 +1,5 @@
 #
-# $Id: lonsupportreq.pm,v 1.84 2016/09/14 21:15:09 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.85 2017/01/18 21:07:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -267,7 +267,7 @@
                 my $allidlist = $idlist{$codetitles[0]};
                 $jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist);
                 $jscript .= $scripttext;
-                $jscript .= &Apache::courseclassifier::javascript_code_selections($formname, at codetitles);
+                $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,\@codetitles);
                 $loaditems = '';
             }
         }
Index: loncom/interface/lonnotify.pm
diff -u loncom/interface/lonnotify.pm:1.41 loncom/interface/lonnotify.pm:1.42
--- loncom/interface/lonnotify.pm:1.41	Thu Dec 11 13:15:35 2014
+++ loncom/interface/lonnotify.pm	Wed Jan 18 21:07:31 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Sending messages
 #
-# $Id: lonnotify.pm,v 1.41 2014/12/11 13:15:35 raeburn Exp $
+# $Id: lonnotify.pm,v 1.42 2017/01/18 21:07:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -410,7 +410,7 @@
             my $allidlist = $idlist{$codetitles[0]};
             $jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist);
             $jscript .= $scripttext;
-            $jscript .= &Apache::courseclassifier::javascript_code_selections($formname, at codetitles);
+            $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,\@codetitles);
         }
     }
     my @standardnames = &Apache::loncommon::get_standard_codeitems();
Index: loncom/interface/lonuserutils.pm
diff -u loncom/interface/lonuserutils.pm:1.180 loncom/interface/lonuserutils.pm:1.181
--- loncom/interface/lonuserutils.pm:1.180	Mon Jan  2 19:44:07 2017
+++ loncom/interface/lonuserutils.pm	Wed Jan 18 21:07:31 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.180 2017/01/02 19:44:07 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.181 2017/01/18 21:07:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2307,7 +2307,7 @@
             my $allidlist = $idlist{$codetitles[0]};
             $jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist);
             $jscript .= $scripttext;
-            $jscript .= &Apache::courseclassifier::javascript_code_selections($formname, at codetitles);
+            $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,\@codetitles);
         }
     }
     my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($cdom);
Index: loncom/interface/courseclassifier.pm
diff -u loncom/interface/courseclassifier.pm:1.24 loncom/interface/courseclassifier.pm:1.25
--- loncom/interface/courseclassifier.pm:1.24	Tue Oct 11 22:58:55 2016
+++ loncom/interface/courseclassifier.pm	Wed Jan 18 21:07:31 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utilities for classifying courses based on institutional code
 #
-# $Id: courseclassifier.pm,v 1.24 2016/10/11 22:58:55 raeburn Exp $
+# $Id: courseclassifier.pm,v 1.25 2017/01/18 21:07:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -260,7 +260,9 @@
 }
 
 sub javascript_code_selections {
-    my ($formname, at codetitles) = @_;
+    my ($formname,$codetitlesref) = @_;
+    return unless (ref($codetitlesref) eq 'ARRAY');
+    my @codetitles = @{$codetitlesref};
     my $numtitles = @codetitles;
     my %lt = &Apache::lonlocal::texthash(
                       Select => 'Select',