[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface/statistics lonstudentsubmissions.pm
From:       matthew <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2004-08-31 15:52:13
Message-ID: cvsmatthew1093967533 () cvsserver
[Download RAW message or body]

matthew		Tue Aug 31 11:52:13 2004 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentsubmissions.pm 
  Log:
  Reworked previous commit to be more concise and maintainable.
  
  
Index: loncom/interface/statistics/lonstudentsubmissions.pm
diff -u loncom/interface/statistics/lonstudentsubmissions.pm:1.13 \
                loncom/interface/statistics/lonstudentsubmissions.pm:1.14
--- loncom/interface/statistics/lonstudentsubmissions.pm:1.13	Tue Aug 31 11:22:51 \
                2004
+++ loncom/interface/statistics/lonstudentsubmissions.pm	Tue Aug 31 11:52:13 2004
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentsubmissions.pm,v 1.13 2004/08/31 15:22:51 matthew Exp $
+# $Id: lonstudentsubmissions.pm,v 1.14 2004/08/31 15:52:13 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -182,16 +182,10 @@
     if ($ENV{'form.correctans'} eq 'true') { push(@Columns,'correct'); }
     push(@Columns,'grading');
     push(@Columns,'awarded');
+    my $awarded_col = $#Columns;
     push(@Columns,'weight');
+    my $weight_col  = $#Columns;
     push(@Columns,'score');
-    my ($awarded_col,$weight_col);
-    if ($ENV{'form.correctans'} eq 'true') {
-        $awarded_col = 7;
-        $weight_col  = 8;
-    } else {
-        $awarded_col = 6;
-        $weight_col  = 7;
-    }
     #
     # Create excel worksheet
     my $filename = '/prtspool/'.


[prev in list] [next in list] [prev in thread] [next in thread]