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

[matthew]

matthew		Fri Jun 25 16:50:05 2004 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  I seem to remember fixing this before...
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.6 loncom/interface/portfolio.pm:1.7
--- loncom/interface/portfolio.pm:1.6	Fri Jun 25 14:47:18 2004
+++ loncom/interface/portfolio.pm	Fri Jun 25 16:50:05 2004
@@ -137,7 +137,7 @@
 }
 sub handler {
 	# this handles file management
-	my $r=@_[0];
+	my ($r)=@_;
 	my @dirList; # will hold directory listing as array
 	my $udir; # returned from home server
 	my $currentPath; # path assuming /userfiles/portfolio/ as root