--- loncom/interface/portfolio.pm	2006/06/20 01:56:17	1.105
+++ loncom/interface/portfolio.pm	2006/06/20 03:02:33	1.106
@@ -182,9 +182,9 @@ sub display_directory {
     	if ($version) {
     	    $versioned{$fname} .= $version.",";
     	}
-        push @dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs];
+        push(@dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]);
     }
-    foreach my $line(@dir_lines) {
+    foreach my $line (@dir_lines) {
         my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$line;
         my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename);
     	if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/)) {