--- loncom/interface/courseclassifier.pm	2017/01/18 21:07:31	1.25
+++ loncom/interface/courseclassifier.pm	2017/01/18 21:24:39	1.26
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utilities for classifying courses based on institutional code
 #
-# $Id: courseclassifier.pm,v 1.25 2017/01/18 21:07:31 raeburn Exp $
+# $Id: courseclassifier.pm,v 1.26 2017/01/18 21:24:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -260,7 +260,7 @@ sub build_code_selections {
 }
 
 sub javascript_code_selections {
-    my ($formname,$codetitlesref) = @_;
+    my ($formname,$codetitlesref,$knowncodes,$sectionlist) = @_;
     return unless (ref($codetitlesref) eq 'ARRAY');
     my @codetitles = @{$codetitlesref};
     my $numtitles = @codetitles;
@@ -357,15 +357,92 @@ sub javascript_code_selections {
    document.$formname.Number.selectedIndex = 0
  }
 }
+END_OF_BLOCK
+
+    if ((ref($knowncodes) eq 'HASH') && (keys(%{$knowncodes}) > 0)) {
+        my @standardnames = &Apache::loncommon::get_standard_codeitems();
+        my (%local_to_standard,$currstr);
+        for (my $i=0; $i<@codetitles; $i++) {
+            $local_to_standard{$codetitles[$i]} = $standardnames[$i];
+        }
+        $output .= <<"ENDJS";
+
+function initialize_codes() {
+ENDJS
+        for (my $i=0; $i<@codetitles-1; $i++) {
+            my $item = $local_to_standard{$codetitles[$i]};
+            $currstr .= $knowncodes->{$codetitles[$i]};
+            if ($knowncodes->{$codetitles[$i]} != -1) {
+                $output .= '
+    for (var j=0; j<document.'.$formname.'.'.$item.'.length; j++) {
+        if (document.'.$formname.'.'.$item.'[j].value == "'.$knowncodes->{$codetitles[$i]}.'") {
+            document.'.$formname.'.'.$item.'.selectedIndex = j;
+        }
+    }
+';
+            }
+            $output .= '   courseSet('."'$codetitles[$i]'".')'."\n";
+        }
+        my $lastcodetitle =  $local_to_standard{$codetitles[-1]};
+        $currstr .= $knowncodes->{$codetitles[-1]};
+        if ($knowncodes->{$codetitles[-1]} != -1) {
+            $output .= '
+    for (var j=0; j<document.'.$formname.'.'.$lastcodetitle.'.length; j++) {
+        if (document.'.$formname.'.'.$lastcodetitle.'[j].value == "'.$knowncodes->{$codetitles[-1]}.'") {
+            document.'.$formname.'.'.$lastcodetitle.'.selectedIndex = j;
+        }
+    }
+';
+        }
+        $output .= "    return;\n}\n";
+        if ($sectionlist) {
+            $output .= '
+function toggleSecVis() {
+    var currcode = "";
+    var crscode = '."'$currstr'".';
+';
+            for (my $i=0; $i<@codetitles-1; $i++) {
+                my $item = $local_to_standard{$codetitles[$i]};
+                $output .= 'currcode += document.'.$formname.'.'.$item.'.options[document.'.$formname.'.'.$item.'.selectedIndex].value;'."\n";
+            }
+            my $lastcodetitle =  $local_to_standard{$codetitles[-1]};
+            if ($lastcodetitle ne '') {
+                if ($knowncodes->{$codetitles[-1]} != -1) {
+                    $output .= 'currcode += document.'.$formname.'.'.$lastcodetitle.'.options[document.'.$formname.'.'.$lastcodetitle.'.selectedIndex].value;'."\n";
+                }
+            }
+            $output .= <<"ENDSEC";
+    var showlist = 'none';
+    var showbox = 'inline';
+    if ((crscode != '') && (currcode == crscode)) {
+        showlist = 'inline';
+        showbox = 'none';
+    }
+    alert("crscode is ||"+crscode+"|| and currcode is ||"+currcode+"|| and showlist is ||"+showlist+"|| and showbox is ||"+showbox+"||");
+    if (document.getElementById('LC_helpdesk_sectionlist')) {
+        document.getElementById('LC_helpdesk_sectionlist').style.display = showlist;
+    }
+    if (document.getElementById('LC_helpdesk_section')) {
+        document.getElementById('LC_helpdesk_section').style.display = showbox;
+    }
+    return;
+}
+
+ENDSEC
+
+        }
+    } else {
+        $output .= <<"END_OF_JS";
 
 function initialize_codes() {
     courseSet();
     return;
 }
-END_OF_BLOCK
+END_OF_JS
+    }
+    return $output;
 }
 
-
 sub javascript_definitions {
     my ($codetitles,$idlist,$idlist_titles,$idnums,$cat_titles) = @_;
     my $numtitles = @{$codetitles};