loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.267.2.1, 2002/08/29 03:52:37	version 1.268, 2002/08/17 18:23:27
Line 2831 sub metadata {	Line 2831 sub metadata {
# the next is the end of "start tag"	# the next is the end of "start tag"
}	}
}	}
$metacache{$uri.':keys'}=join(',',keys %metathesekeys);
&metadata_generate_part0(\%metathesekeys,\%metacache,$uri);	&metadata_generate_part0(\%metathesekeys,\%metacache,$uri);
$metacache{$uri.':allpossiblekeys'}=join(',',keys %metathesekeys);	$metacache{$uri.':keys'}=join(',',keys %metathesekeys);
$metacache{$uri.':cachedtimestamp'}=time;	$metacache{$uri.':cachedtimestamp'}=time;
# this is the end of "was not already recently cached	# this is the end of "was not already recently cached
}	}
Line 3136 sub declutter {	Line 3135 sub declutter {
return $thisfn;	return $thisfn;
}	}

	# ------------------------------------------------------------- Clutter up URLs

	sub clutter {
	my $thisfn='/'.&declutter(shift);
	unless ($thisfn=~/^\/(uploaded\|adm)\//) { $thisfn='/res'.$thisfn; }
	return $thisfn;
	}

# -------------------------------------------------------- Escape Special Chars	# -------------------------------------------------------- Escape Special Chars

sub escape {	sub escape {