![[BACK]](/icons/back.gif){kind=icon}
Return to lonuploadrep.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonuploadrep.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.3, 2004/07/19 20:16:40 | version 1.4, 2004/09/02 18:01:52 |
|---|---|
| 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; |
| } | } |