[LON-CAPA-cvs] cvs: loncom /interface portfolio.pm

[matthew]

matthew		Mon Jun 21 10:10:06 2004 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  Minor fixes to get it to compile and do so without complaint.
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.4 loncom/interface/portfolio.pm:1.5
--- loncom/interface/portfolio.pm:1.4	Fri Jun 18 20:54:21 2004
+++ loncom/interface/portfolio.pm	Mon Jun 21 10:10:05 2004
@@ -34,7 +34,7 @@
 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 @@
 		$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 />');