--- loncom/interface/courseclassifier.pm 2013/07/15 14:32:45 1.15
+++ loncom/interface/courseclassifier.pm 2014/03/11 21:42:18 1.16
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Utilities for classifying courses based on institutional code
#
-# $Id: courseclassifier.pm,v 1.15 2013/07/15 14:32:45 bisitz Exp $
+# $Id: courseclassifier.pm,v 1.16 2014/03/11 21:42:18 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -604,6 +604,32 @@ sub build_instcode_selectors {
return $output;
}
+sub instcode_selectors {
+ my ($codedom,$formname,$officialjs,$codetitles) = @_;
+ my ($output,%cat_titles,%cat_order,%cat_items);
+ my ($jscript,$totcodes,$numtitles,$lasttitle) =
+ &instcode_selectors_data($codedom,$formname,\%cat_items,$codetitles,
+ \%cat_titles,\%cat_order,$officialjs);
+ if ($numtitles > 0) {
+ my $official = ' checked="checked" ';
+ my $unofficial = '';
+ if ($env{'form.official'} eq 'off') {
+ $unofficial = $official;
+ $official = '';
+ }
+ $output .= ''.&mt('Official course:').' '.(' 'x3).'
'.
+ &build_instcode_selectors($numtitles,$lasttitle,\%cat_items,$codetitles,
+ \%cat_titles,\%cat_order)."\n".
+ ''."\n".
+ ''."\n";
+ }
+ return ($output,$jscript,$numtitles);
+}
+
sub recurse_options {
my ($currkey,$currlist,$level,$cat,$cat_options,$data,$by_year,$by_sem,$by_dept) = @_;
if (ref($currlist) eq 'HASH') {