loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.34.2.1, 2008/12/12 03:57:12	version 1.34.2.2, 2008/12/21 04:38:43
Line 223 sub handler {	Line 223 sub handler {

if ($env{'form.filename'}) {	if ($env{'form.filename'}) {
$fn=$env{'form.filename'};	$fn=$env{'form.filename'};
$fn=~s/^http\:\/\/[^\/]+//;	$fn=~s/^https?\:\/\/[^\/]+//;
} else {	} else {
$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.	$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.
' unspecified filename for retrieval', $r->filename);	' unspecified filename for retrieval', $r->filename);