loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.18, 2002/08/26 17:02:47	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,