loncom/interface/courseclassifier.pm - diff

Return to courseclassifier.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2011/02/25 02:40:42	version 1.14, 2011/03/03 00:06:38
Line 869 sub instcode_search_str {	Line 869 sub instcode_search_str {
}	}

sub instcode_from_selectors {	sub instcode_from_selectors {
my ($cdom) = @_;	my ($cdom,$noregexps) = @_;
my $instcode;	my $instcode;
my $caller = 'global';	my $caller = 'global';
my (%coursecodes,%codes,@codetitles,%cat_titles,%cat_order,	my (%coursecodes,%codes,@codetitles,%cat_titles,%cat_order,
Line 890 sub instcode_from_selectors {	Line 890 sub instcode_from_selectors {
my $category = $local_to_standard{$loctitle};	my $category = $local_to_standard{$loctitle};
if ($category ne '') {	if ($category ne '') {
if ($env{'form.'.$category} eq '-1' ) {	if ($env{'form.'.$category} eq '-1' ) {
$instcode .= $codedefaults{$category};	if ($noregexps) {
	$instcode .= ' ';
	} else {
	$instcode .= $codedefaults{$category};
	}
} else {	} else {
$instcode .= $env{'form.'.$category};	$instcode .= $env{'form.'.$category};
}	}