--- loncom/interface/lonstatistics.pm 2002/03/02 01:42:42 1.5
+++ loncom/interface/lonstatistics.pm 2002/03/02 23:22:32 1.6
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# (Publication Handler
#
-# $Id: lonstatistics.pm,v 1.5 2002/03/02 01:42:42 minaeibi Exp $
+# $Id: lonstatistics.pm,v 1.6 2002/03/02 23:22:32 minaeibi Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -30,7 +30,7 @@
# 5/05,7/09,7/25/01,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei
# 11/1, 11/4, 11/16, 12/14, 12/16, 12/18,12/20,12/31 Behrouz Minaei
# YEAR=2002
-# 1/22, 2/1, 2/6, 2/25 Behrouz Minaei
+# 1/22, 2/1, 2/6, 2/25, 3/2 Behrouz Minaei
###
package Apache::lonstatistics;
@@ -75,7 +75,7 @@ my $lastres;
my $DiscFlag;
my $HWN;
my $P_Order;
-my %Header = (0,"Homework Problems",1,"#Stdnts",2,"Tries",3,"Mod",
+my %Header = (0,"Homework Sets Order",1,"#Stdnts",2,"Tries",3,"Mod",
4,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff",
9,"S.D.",10,"Skew.",11,"Map");
# 11,"Dis.F.",12,"Resourse URL");
@@ -244,9 +244,22 @@ sub PreStatTable {
"_$ENV{'user.domain'}_$cid\_graph.db";
my $CachDisFac = "/home/httpd/perl/tmp/$ENV{'user.name'}".
"_$ENV{'user.domain'}_$cid\_DiscFactor.db";
- $r->print('
');
+ my $OpSel11='';
+ my $OpSel12='';
+ my $OpSel13='';
+ my $Status = $ENV{'form.status'};
+ if ( $Status eq 'Any' ) { $OpSel13='selected'; }
+ elsif ($Status eq 'Expired' ) { $OpSel12 = 'selected'; }
+ else { $OpSel11 = 'selected'; }
my $Ptr = '';
+ $Ptr .= '
Student Status: '."\n".
+ ' '."\n";
+ $Ptr .= ' ';
+ $Ptr .= ''."\n";
$Ptr .= '
Sorting Type: '."\n".
'