loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.375, 2005/06/09 02:12:26	version 1.376, 2005/06/15 13:06:41
Line 1065 sub parstring {	Line 1065 sub parstring {

sub writeallows {	sub writeallows {
unless ($#extlinks>=0) { return; }	unless ($#extlinks>=0) { return; }
my $thisurl='/res/'.&Apache::lonnet::declutter(shift);	my $thisurl = &Apache::lonnet::declutter(shift);
	if ($thisurl =~ /^uploaded/) {
	$thisurl = '/'.$thisurl;
	} else {
	$thisurl='/res/'.$thisurl;
	}
if ($env{'httpref.'.$thisurl}) {	if ($env{'httpref.'.$thisurl}) {
$thisurl=$env{'httpref.'.$thisurl};	$thisurl=$env{'httpref.'.$thisurl};
}	}