--- loncom/interface/courseclassifier.pm	2011/02/25 02:40:42	1.13
+++ loncom/interface/courseclassifier.pm	2013/07/15 14:32:45	1.15
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utilities for classifying courses based on institutional code
 #
-# $Id: courseclassifier.pm,v 1.13 2011/02/25 02:40:42 raeburn Exp $
+# $Id: courseclassifier.pm,v 1.15 2013/07/15 14:32:45 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -579,7 +579,7 @@ sub build_instcode_selectors {
                 @longitems = @items;
             }
             $output .= '<td align="center">'.$codetitles->[$k].'<br />'."\n".
-                       '<select name="'.$standardnames[$k].'" onChange="courseSet(this)"'.
+                       '<select name="'.$standardnames[$k].'" onchange="courseSet(this)"'.
                        '>'."\n".'<option value="0">'.&mt('All').'</option>'."\n";
             for (my $i=0; $i<@items; $i++) {
                 if ($longitems[$i] eq '') {
@@ -869,7 +869,7 @@ sub instcode_search_str {
 }
 
 sub instcode_from_selectors {
-    my ($cdom) = @_;
+    my ($cdom,$noregexps) = @_;
     my $instcode;
     my $caller = 'global';
     my (%coursecodes,%codes,@codetitles,%cat_titles,%cat_order,
@@ -890,7 +890,11 @@ sub instcode_from_selectors {
             my $category = $local_to_standard{$loctitle};
             if ($category ne '') {
                 if ($env{'form.'.$category} eq '-1' ) {
-                    $instcode .= $codedefaults{$category};
+                    if ($noregexps) {
+                        $instcode .= ' ';
+                    } else {
+                        $instcode .= $codedefaults{$category};
+                    }
                 } else {
                     $instcode .= $env{'form.'.$category};
                 }