loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.168.2.1, 2004/08/17 20:32:50	version 1.168.2.2, 2004/08/27 21:43:09
Line 1828 ENDOVER	Line 1828 ENDOVER
$middle=~s/\.$//;	$middle=~s/\.$//;
my $realm='<font color="red">'.&mt('All Resources').'</font>';	my $realm='<font color="red">'.&mt('All Resources').'</font>';
if ($middle=~/^(.+)\_\_\_$all$$/) {	if ($middle=~/^(.+)\_\_\_$all$$/) {
$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'</font>';	$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
} elsif ($middle) {	} elsif ($middle) {
$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'</font>';	my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
	$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
}	}
if ($section ne $oldsection) {	if ($section ne $oldsection) {
$r->print(&tableend()."\n<hr /><h1>$section</h1>");	$r->print(&tableend()."\n<hr /><h1>$section</h1>");