--- 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').'<br />');	
 	}
 	$r->print ('<br />Current contents of your portfolio directory: <br /><hr />');
-	$r->print (&Apache::lonnet::portfoliolist($r->uri, $ENV{'user.domain'}, $ENV{'user.name'}, udef ));
+	$r->print (&Apache::lonnet::portfoliolist($r->uri, $ENV{'user.domain'}, $ENV{'user.name'}, undef ));
 	$r->print ('<hr />');
 #	$r->print ($ENV{'form.uploaddoc.filename'}.'<br />');
 #	$r->print ($ENV{'form.storeupl'}.'<br />');