version 1.54.2.5, 2010/11/13 14:10:40
|
version 1.54.2.6, 2010/11/19 00:09:15
|
Line 3599 sub retrieve_settings {
|
Line 3599 sub retrieve_settings {
|
} |
} |
$env{'form.datemode'} = $reqinfo{'datemode'}; |
$env{'form.datemode'} = $reqinfo{'datemode'}; |
$env{'form.dateshift'} = $reqinfo{'dateshift'}; |
$env{'form.dateshift'} = $reqinfo{'dateshift'}; |
if (($reqinfo{'crstype'} eq 'official') && ($reqinfo{'instcode'} ne '')) { |
|
$env{'form.sectotal'} = $reqinfo{'sectotal'}; |
if ($reqinfo{'crstype'} eq 'official') { |
$env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'}; |
$env{'form.autoadds'} = $reqinfo{'autoadds'}; |
$env{'form.autoadds'} = $reqinfo{'autoadds'}; |
$env{'form.autodrops'} = $reqinfo{'autodrops'}; |
$env{'form.autdrops'} = $reqinfo{'autodrops'}; |
if ($reqinfo{'instcode'} ne '') { |
$env{'form.instcode'} = $reqinfo{'instcode'}; |
$env{'form.sectotal'} = $reqinfo{'sectotal'}; |
my $crscode = { |
$env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'}; |
$cnum => $reqinfo{'instcode'}, |
$env{'form.instcode'} = $reqinfo{'instcode'}; |
}; |
my $crscode = { |
&extract_instcode($dom,'instcode',$crscode,$cnum); |
$cnum => $reqinfo{'instcode'}, |
|
}; |
|
&extract_instcode($dom,'instcode',$crscode,$cnum); |
|
} |
} |
} |
my @currsec; |
my @currsec; |
if (ref($reqinfo{'sections'}) eq 'HASH') { |
if (ref($reqinfo{'sections'}) eq 'HASH') { |