loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.73, 2002/02/14 22:01:39	version 1.75, 2002/03/25 17:09:21
Line 326 sub publish {	Line 326 sub publish {
print $logfile 'URL: '.$tag.':'.$oldurl.' - '.	print $logfile 'URL: '.$tag.':'.$oldurl.' - '.
$newurl."\n";	$newurl."\n";
}	}
$allow{&absoluteurl($newurl,$target)}=1;	if (($newurl !~ /^javascript:/i) &&
	($newurl !~ /^mailto:/i) &&
	($newurl !~ /^http:/i) &&
	($newurl !~ /^\#/)) {
	$allow{&absoluteurl($newurl,$target)}=1;
	}
}	}
last;	last;
}	}
Line 942 if (-e $target) {	Line 947 if (-e $target) {


return $warning.$scrout.	return $warning.$scrout.
'<hr><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'.	'<hr><a href="'.$thisdistarget.'"><font size=+2>View Published Version</font></a>'.
'<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'.	'<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'.
'<p><a href="'.$thissrcdir.	'<p><a href="'.$thissrcdir.
'"><font size=+2>Back to Source Directory</font></a>';	'"><font size=+2>Back to Source Directory</font></a>';