[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[banghart]

banghart		Sat Apr  2 13:44:39 2005 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  	cleanup of one more coding faux pas
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.253 loncom/homework/grades.pm:1.254
--- loncom/homework/grades.pm:1.253	Fri Apr  1 21:22:10 2005
+++ loncom/homework/grades.pm	Sat Apr  2 13:44:39 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.253 2005/04/02 02:22:10 banghart Exp $
+# $Id: grades.pm,v 1.254 2005/04/02 18:44:39 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2191,10 +2191,8 @@
         if ($key =~ /^resource\.($parts)\./ && $key =~ /\.portfiles$/) {
             my @portfiles = split /,/,$$record{$key};
             foreach my $file (@portfiles) {
-                $file =~ /^(.*?)([^\/]*$)/;
-                my $directory = $1;
+                my ($directory,$answer_file) =( $file =~ /^(.*?)([^\/]*$)/);
                 my $version = 0;
-                my $answer_file = $2;
                 my @answer_file_parts = split /\./, $answer_file;
                 my @dir_list = &Apache::lonnet::dirlist($directory,$domain,$stuname,$portfolio_root);
                 my @file_names;