loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2002/09/11 19:37:51	version 1.20, 2002/09/16 21:01:41
Line 142 sub diffgraph {	Line 142 sub diffgraph {

sub handler {	sub handler {
my $r=shift;	my $r=shift;

	my $loaderror=&Apache::lonnet::overloaderror($r);
	if ($loaderror) { return $loaderror; }


	my $uri=$r->uri;

	my ($resdomain,$resuser)=
	(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);

	$loaderror=
	&Apache::lonnet::overloaderror($r,
	&Apache::lonnet::homeserver($resuser,$resdomain));
	if ($loaderror) { return $loaderror; }

my %content=();	my %content=();

# ----------------------------------------------------------- Set document type	# ----------------------------------------------------------- Set document type
Line 152 sub handler {	Line 167 sub handler {
return OK if $r->header_only;	return OK if $r->header_only;

# ------------------------------------------------------------------- Read file	# ------------------------------------------------------------------- Read file

my $uri=$r->uri;
foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {	foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
$content{$_}=&Apache::lonnet::metadata($uri,$_);	$content{$_}=&Apache::lonnet::metadata($uri,$_);
}	}
my ($resdomain)=(&Apache::lonnet::declutter($uri)=~/^(\w+)\//);
# ------------------------------------------------------------------ Hide stuff	# ------------------------------------------------------------------ Hide stuff

unless ($ENV{'user.adv'}) {	unless ($ENV{'user.adv'}) {