loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.169, 2001/11/16 06:21:39	version 1.171, 2001/11/17 15:36:06
Line 37	Line 37
# 10/5,10/10,11/13,11/15 Scott Harrison	# 10/5,10/10,11/13,11/15 Scott Harrison
#	#
# $Id$	# $Id$
	#
	# 11/17 Gerd Kortemeyer
	#
###	###

# Functions for use by content handlers:	# Functions for use by content handlers:
Line 1746 sub modifyuserauth {	Line 1749 sub modifyuserauth {
unless ($reply eq 'ok') {	unless ($reply eq 'ok') {
return 'error: '.$reply;	return 'error: '.$reply;
}	}
	return 'ok';
}	}

# --------------------------------------------------------------- Modify a user	# --------------------------------------------------------------- Modify a user
Line 2230 sub EXT {	Line 2234 sub EXT {
# ---------------------------------------------------------------- Get metadata	# ---------------------------------------------------------------- Get metadata

sub metadata {	sub metadata {
my ($uri,$what)=@_;	my ($uri,$what,$liburi,$prefix)=@_;

$uri=&declutter($uri);	$uri=&declutter($uri);
my $filename=$uri;	my $filename=$uri;
$uri=~s/\.meta$//;	$uri=~s/\.meta$//;
unless ($metacache{$uri.':keys'}) {	unless ($metacache{$uri.':keys'}) {
	if ($liburi) {
	$liburi=&declutter($liburi);
	$filename=$liburi;
	}
my %metathesekeys=();	my %metathesekeys=();
unless ($filename=~/\.meta$/) { $filename.='.meta'; }	unless ($filename=~/\.meta$/) { $filename.='.meta'; }
my $metastring=&getfile($perlvar{'lonDocRoot'}.'/res/'.$filename);	my $metastring=&getfile($perlvar{'lonDocRoot'}.'/res/'.$filename);