--- loncom/interface/courseclassifier.pm 2015/05/21 23:26:34 1.22 +++ loncom/interface/courseclassifier.pm 2017/01/18 21:07:31 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utilities for classifying courses based on institutional code # -# $Id: courseclassifier.pm,v 1.22 2015/05/21 23:26:34 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 build_code_selections { } sub javascript_code_selections { - my ($formname,@codetitles) = @_; + my ($formname,$codetitlesref) = @_; + return unless (ref($codetitlesref) eq 'ARRAY'); + my @codetitles = @{$codetitlesref}; my $numtitles = @codetitles; my %lt = &Apache::lonlocal::texthash( Select => 'Select', @@ -575,7 +577,7 @@ function setElements() { } sub build_instcode_selectors { - my ($numtitles,$lasttitle,$cat_items,$codetitles,$cat_titles,$cat_order,$official,$class,$id) = @_; + my ($numtitles,$lasttitle,$cat_items,$codetitles,$cat_titles,$cat_order,$official,$class,$id,$noedit) = @_; my $output; my @standardnames = &Apache::loncommon::get_standard_codeitems(); if ($numtitles > 0) { @@ -586,6 +588,10 @@ sub build_instcode_selectors { if ($id eq '') { $id = 'instcodes'; } + my $disabled; + if ($noedit) { + $disabled = ' disabled="disabled"'; + } $output .= '
'.$codetitles->[$lasttitle-1].' '."\n". - ' |