rat/lonratsrv.pm - diff

Return to lonratsrv.pm CVS log

Up to [LON-CAPA] / rat

version 1.18, 2002/06/24 14:05:51	version 1.20, 2002/06/27 17:00:12
Line 318 sub handler {	Line 318 sub handler {
$url=~s/\/loadonly\/ratserver$/\/save\/ratserver/;	$url=~s/\/loadonly\/ratserver$/\/save\/ratserver/;

my $fn=$r->filename;	my $fn=$r->filename;
	my $lonDocRoot=$r->dir_config('lonDocRoot');
	if ( $fn =~ /$lonDocRoot/ ) {
	#internal authentication, needs fixup.
	$fn = $url;
	$fn=~s\|^/~(\w+)\|/home/$1/public_html\|;
	$fn=~s\|/[^/]*/ratserver$\|\|;
	}
my $errtext='';	my $errtext='';
my $outtext='';	my $outtext='';