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

[albertel]

albertel		Mon Jun 19 23:02:34 2006 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  - style
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.105 loncom/interface/portfolio.pm:1.106
--- loncom/interface/portfolio.pm:1.105	Mon Jun 19 21:56:17 2006
+++ loncom/interface/portfolio.pm	Mon Jun 19 23:02:33 2006
@@ -182,9 +182,9 @@
     	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+)\.([^\.]*)$/)) {