version 1.76, 2003/11/08 21:51:44
|
version 1.77, 2003/11/11 00:54:57
|
Line 445 ENDHEADER
|
Line 445 ENDHEADER
|
my $tcourseid=$tdom.'_'.$trest; |
my $tcourseid=$tdom.'_'.$trest; |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
if ($ENV{'course.'.$tcourseid.'.description'}) { |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
$twhere=$ENV{'course.'.$tcourseid.'.description'}; |
$sortkey=$twhere."\0".$envkey; |
$sortkey=$tdom."\0".$twhere."\0".$envkey; |
unless ($twhere eq &mt('Currently not available')) { |
unless ($twhere eq &mt('Currently not available')) { |
$twhere.=' <font size="-2">'. |
$twhere.=' <font size="-2">'. |
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont). |
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont). |
Line 455 ENDHEADER
|
Line 455 ENDHEADER
|
my %newhash=Apache::lonnet::coursedescription |
my %newhash=Apache::lonnet::coursedescription |
($tcourseid); |
($tcourseid); |
if (%newhash) { |
if (%newhash) { |
$sortkey=$newhash{'description'}."\0".$envkey; |
$sortkey=$tdom."\0".$newhash{'description'}. |
|
"\0".$envkey; |
$twhere=$newhash{'description'}. |
$twhere=$newhash{'description'}. |
' <font size="-2">'. |
' <font size="-2">'. |
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont). |
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont). |
Line 463 ENDHEADER
|
Line 464 ENDHEADER
|
} else { |
} else { |
$twhere=&mt('Currently not available'); |
$twhere=&mt('Currently not available'); |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$sortkey=$twhere."\0".$envkey; |
$sortkey=$tdom."\0".$twhere."\0".$envkey; |
} |
} |
} |
} |
if ($role ne 'st') { $twhere.="<br />".&mt('Domain').":".$tdom; } |
if ($role ne 'st') { $twhere.="<br />".&mt('Domain').":".$tdom; } |
Line 540 ENDHEADER
|
Line 541 ENDHEADER
|
} |
} |
if ($output) { |
if ($output) { |
if ($doheaders > 0) { |
if ($doheaders > 0) { |
$r->print("<tr bgcolor='#99ff99'>". |
$r->print("<tr bgcolor='#BBffBB'>". |
"<td align='center' colspan='7'>$type</td>"); |
"<td align='center' colspan='7'>$type</td>"); |
} |
} |
$r->print($output); |
$r->print($output); |