loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8, 2001/12/19 17:17:46	version 1.9, 2001/12/22 21:59:07
Line 29	Line 29
#	#
# 05/29/00,05/30,10/11 Gerd Kortemeyer)	# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#	#
# 10/19,10/21,10/23,11/27,08/09/01 Gerd Kortemeyer	# 10/19,10/21,10/23,11/27,08/09/01,12/22 Gerd Kortemeyer

package Apache::lonmeta;	package Apache::lonmeta;

Line 37 use strict;	Line 37 use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonnet();	use Apache::lonnet();

	# ----------------------------------------- Fetch and evaluate dynamic metadata

	sub dynamicmeta {
	my $url=&Apache::lonnet::declutter(shift);
	$url=~s/\.meta$//;
	my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);
	my $regexp=&Apache::lonnet::escape($url);
	$regexp=~s/(\W)/\\$1/g;
	my %evaldata=&Apache::lonnet::dump
	('resevaldata',$adomain,$aauthor,$regexp);
	my %returnhash=();
	foreach (keys %evaldata) {
	}
	return %returnhash;
	}

# ================================================================ Main Handler	# ================================================================ Main Handler

Line 122 ENDHEAD	Line 137 ENDHEAD
$r->print("<br>\n");	$r->print("<br>\n");
} sort keys %content;	} sort keys %content;
}	}
	&dynamicmeta($uri);
$r->print('</body></html>');	$r->print('</body></html>');
return OK;	return OK;
}	}