loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2002/08/26 16:57:11	version 1.19, 2002/09/11 19:37:51
Line 44 sub dynamicmeta {	Line 44 sub dynamicmeta {
my $url=&Apache::lonnet::declutter(shift);	my $url=&Apache::lonnet::declutter(shift);
$url=~s/\.meta$//;	$url=~s/\.meta$//;
my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);	my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);
my $regexp=&Apache::lonnet::escape($url);	my $regexp=$url;
$regexp=~s/(\W)/\\$1/g;	$regexp=~s/(\W)/\\$1/g;
$regexp='___'.$regexp.'___';	$regexp='___'.$regexp.'___';
my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,	my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,
Line 178 my $bodytag=&Apache::loncommon::bodytag	Line 178 my $bodytag=&Apache::loncommon::bodytag
('Catalog Information','','','',$resdomain);	('Catalog Information','','','',$resdomain);
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
<html><head><title>Catalog Information</title></head>	<html><head><title>Catalog Information</title></head>
<body bgcolor="#FFFFFF">
$bodytag	$bodytag
<h2>$content{'title'}</h2>	<h2>$content{'title'}</h2>
<h3><tt>$disuri</tt></h3>	<h3><tt>$disuri</tt></h3>