loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.179, 2004/11/27 17:23:09	version 1.180, 2004/12/06 21:41:01
Line 628 sub extractResourceInformation {	Line 628 sub extractResourceInformation {
if ($mapid eq '1') {	if ($mapid eq '1') {
$$maptitles{$mapid}='Main Course Documents';	$$maptitles{$mapid}='Main Course Documents';
} else {	} else {
$$maptitles{$mapid}=	$$maptitles{$mapid}=&Apache::lonnet::gettitle(&Apache::lonnet::clutter($$mapp{$id}));
$$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}};
}	}
$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};	$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
$$symbp{$id}=$$mapp{$id}.	$$symbp{$id}=$$mapp{$id}.
Line 1219 ENDTABLEHEADFOUR	Line 1218 ENDTABLEHEADFOUR
my $totalparms=scalar keys %name;	my $totalparms=scalar keys %name;
if ($totalparms>0) {	if ($totalparms>0) {
my $firstrow=1;	my $firstrow=1;
my $title=$bighash{'title_'.$rid};	my $title=&Apache::lonnet::gettitle($uri);
$title=~s/\&colon;/:/g;
$r->print('<tr><td bgcolor='.$defbgone.	$r->print('<tr><td bgcolor='.$defbgone.
' rowspan='.$totalparms.	' rowspan='.$totalparms.
'><tt><font size=-1>'.	'><tt><font size=-1>'.