Return to lonuploadrep.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
version 1.3, 2004/07/19 20:16:40 | version 1.6, 2005/03/16 21:35:17 |
---|---|
Line 51 sub handler { | Line 51 sub handler { |
} | } |
} | } |
} | } |
my $response=&Apache::lonnet::getfile($r->uri,'uploadrep'); | 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; |