--- loncom/interface/Attic/lonspreadsheet.pm 2002/09/09 18:28:02 1.100.2.1
+++ loncom/interface/Attic/lonspreadsheet.pm 2002/08/21 17:18:08 1.101
@@ -1,5 +1,5 @@
#
-# $Id: lonspreadsheet.pm,v 1.100.2.1 2002/09/09 18:28:02 albertel Exp $
+# $Id: lonspreadsheet.pm,v 1.101 2002/08/21 17:18:08 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1750,11 +1750,8 @@ sub updatestudentassesssheet {
my $safeeval=shift;
my %bighash;
my $stype=&gettype($safeeval);
- my $uname=&getuname($safeeval);
- my $udom =&getudom($safeeval);
my %current=();
- unless ($updatedata{
- $ENV{'request.course.fn'}.'_'.$stype.'_'.$uname.'_'.$udom}) {
+ unless ($updatedata{$ENV{'request.course.fn'}.'_'.$stype}) {
# -------------------------------------------------------------------- Tie hash
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
&GDBM_READER(),0640)) {
@@ -1835,7 +1832,7 @@ sub updatestudentassesssheet {
} elsif ($stype eq 'studentcalc') {
%current=%allassess;
}
- $updatedata{$ENV{'request.course.fn'}.'_'.$stype.'_'.$uname.'_'.$udom}=
+ $updatedata{$ENV{'request.course.fn'}.'_'.$stype}=
join('___;___',%current);
} else {
return 'Could not access course data';
@@ -1843,7 +1840,7 @@ sub updatestudentassesssheet {
# ------------------------------------------------------ Get current from cache
} else {
%current=split(/\_\_\_\;\_\_\_/,
- $updatedata{$ENV{'request.course.fn'}.'_'.$stype.'_'.$uname.'_'.$udom});
+ $updatedata{$ENV{'request.course.fn'}.'_'.$stype});
}
# -------------------- Find discrepancies between the course row table and this
#
@@ -2532,9 +2529,7 @@ $tmpdir=$r->dir_config('lonDaemons').'/t
</script>
ENDSCRIPT
- $r->print('</head><body bgcolor="#FFFFFF">'.
- '<img align=right src=/adm/lonIcons/lonlogos.gif>'.
- '<h1>LON-CAPA Spreadsheet</h1>'.
+ $r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
'<form action="'.$r->uri.'" name=sheet method=post>'.
&hiddenfield('uname',$ENV{'form.uname'}).
&hiddenfield('udom',$ENV{'form.udom'}).
@@ -2598,12 +2593,6 @@ ENDSCRIPT
}
}
-# ---------------------------------------------------------------- Course title
-
- $r->print('<h1>'.
- $ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
- '</h1><h3>'.localtime().'</h3>');
-
# ---------------------------------------------------- See if user can see this
if ((&gettype($asheet) eq 'classcalc') ||