loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.294, 2002/10/09 17:24:06	version 1.295, 2002/10/10 13:06:08
Line 840 sub finishuserfileupload {	Line 840 sub finishuserfileupload {
}	}
# Notify homeserver to grep it	# Notify homeserver to grep it
#	#
if
(&reply('fetchuserfile:'.$docudom.'/'.$docuname.'/'.$fname,$docuhome) eq 'ok')	my $fetchresult=
{	&reply('fetchuserfile:'.$docudom.'/'.$docuname.'/'.$fname,$docuhome);
	if ($fetchresult eq 'ok') {
#	#
# Return the URL to it	# Return the URL to it
return '/uploaded/'.$path.$fname;	return '/uploaded/'.$path.$fname;
} else {	} else {
	&logthis('Failed to transfer '.$docudom.'/'.$docuname.'/'.$fname.
	' to host '.$docuhome.': '.$fetchresult);
return '/adm/notfound.html';	return '/adm/notfound.html';
}	}
}	}