loncom/lonnet/perl/lonuploadrep.pm - diff

Return to lonuploadrep.pm CVS log

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

version 1.7, 2005/04/07 06:56:24	version 1.8, 2006/08/21 15:21:31
Line 28 package Apache::lonuploadrep;	Line 28 package Apache::lonuploadrep;

use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
	use Apache::lonrep();
use Apache::lonnet;	use Apache::lonnet;
use CGI::Cookie();	use CGI::Cookie();

Line 46 sub handler {	Line 47 sub handler {
} elsif ( ($info > 0) && ($info =~ /\d+/) ) {	} elsif ( ($info > 0) && ($info =~ /\d+/) ) {
my @statinfo = stat($filename);	my @statinfo = stat($filename);
if ($statinfo[9] >= $info ) {	if ($statinfo[9] >= $info ) {
$r->filename($filename);	&Apache::lonrep::update_filename($r,$filename);
return OK;	return OK;
}	}
}	}
}	}
my $response=&Apache::lonnet::repcopy_userfile($r->uri);	my $response=&Apache::lonnet::repcopy_userfile($r->uri);
if ($response eq 'ok') {	if ($response eq 'ok') {
$r->filename($filename);	&Apache::lonrep::update_filename($r,$filename);
return OK;	return OK;
}	}
}	}