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}; |
} |
} |