version 1.5, 2005/03/02 22:26:36
|
version 1.7, 2005/04/07 06:56:24
|
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::lonnet(); |
use Apache::lonnet; |
use CGI::Cookie(); |
use CGI::Cookie(); |
|
|
sub handler { |
sub handler { |
Line 52 sub handler {
|
Line 52 sub handler {
|
} |
} |
} |
} |
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); |
$r->filename($filename); |
return OK; |
return OK; |
} |
} |