--- loncom/interface/portfolio.pm 2004/06/19 00:54:21 1.4
+++ loncom/interface/portfolio.pm 2004/06/21 14:10:05 1.5
@@ -34,7 +34,7 @@ use Apache::lonfeedback;
use Apache::lonlocal;
sub handler {
- my $r=@_[0];
+ my ($r)=@_;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
@@ -48,7 +48,7 @@ sub handler {
$r->print (&Apache::lonnet::userfileupload('uploaddoc',undef,'portfolio').'
');
}
$r->print ('
Current contents of your portfolio directory: