--- loncom/interface/portfolio.pm	2004/06/25 18:47:18	1.6
+++ loncom/interface/portfolio.pm	2004/06/25 20:50:05	1.7
@@ -137,7 +137,7 @@ sub displayActions {
 }
 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