version 1.51, 2001/03/21 15:38:47
|
version 1.53, 2001/04/05 21:35:02
|
Line 5
|
Line 5
|
# 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30, |
# 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30, |
# 01/01/01,02/01,03/01,19/01,20/01,22/01, |
# 01/01/01,02/01,03/01,19/01,20/01,22/01, |
# 03/05,03/08,03/10,03/12,03/13,03/15,03/17, |
# 03/05,03/08,03/10,03/12,03/13,03/15,03/17, |
# 03/19,03/20,03/21 Gerd Kortemeyer |
# 03/19,03/20,03/21,03/27,04/05 Gerd Kortemeyer |
|
|
package Apache::lonspreadsheet; |
package Apache::lonspreadsheet; |
|
|
Line 1093 sub updatestudentassesssheet {
|
Line 1093 sub updatestudentassesssheet {
|
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
# --------------------------------------------------------- Get all assessments |
# --------------------------------------------------------- Get all assessments |
|
|
my %allkeys=(); |
my %allkeys=('timestamp' => |
|
'Timestamp of Last Transaction<br>timestamp'); |
my %allassess=(); |
my %allassess=(); |
|
|
my $adduserstr=''; |
my $adduserstr=''; |
Line 1506 sub forcedrecalc {
|
Line 1507 sub forcedrecalc {
|
my ($uname,$udom,$stype,$usymb)=@_; |
my ($uname,$udom,$stype,$usymb)=@_; |
my $key=$uname.':'.$udom.':'.$stype.':'.$usymb; |
my $key=$uname.':'.$udom.':'.$stype.':'.$usymb; |
my $time=$oldsheets{$key.'.time'}; |
my $time=$oldsheets{$key.'.time'}; |
|
if ($ENV{'form.forcerecalc'}) { return 1; } |
unless ($time) { return 1; } |
unless ($time) { return 1; } |
if ($stype eq 'assesscalc') { |
if ($stype eq 'assesscalc') { |
my $map=(split(/\_\_\_/,$usymb))[0]; |
my $map=(split(/\_\_\_/,$usymb))[0]; |
Line 1851 ENDSCRIPT
|
Line 1853 ENDSCRIPT
|
$r->print('<h1>'. |
$r->print('<h1>'. |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1>'); |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1>'); |
|
|
|
# ---------------------------------------------------- See if user can see this |
|
|
|
if ((&gettype($asheet) eq 'classcalc') || |
|
(&getuname($asheet) ne $ENV{'user.name'}) || |
|
(&getudom($asheet) ne $ENV{'user.domain'})) { |
|
unless (&Apache::lonnet::allowed('vgr',&getcid($asheet))) { |
|
$r->print( |
|
'<h1>Access Permission Denied</h1></form></body></html>'); |
|
return OK; |
|
} |
|
} |
|
|
# ---------------------------------------------------- See if something to save |
# ---------------------------------------------------- See if something to save |
|
|
Line 1873 ENDSCRIPT
|
Line 1886 ENDSCRIPT
|
|
|
&tmpwrite($asheet); |
&tmpwrite($asheet); |
|
|
|
# ---------------------------------------------------------- Additional options |
|
|
|
$r->print( |
|
'<input type=submit name=forcerecalc value="Completely Recalculate Sheet"><p>' |
|
); |
|
if (&gettype($asheet) eq 'assesscalc') { |
|
$r->print ('<p><font size=+2><a href="/adm/studentcalc?uname='. |
|
&getuname($asheet). |
|
'&udom='.&getudom($asheet). |
|
'">Level up: Student Sheet</a></font><p>'); |
|
} |
|
|
|
if ((&gettype($asheet) eq 'studentcalc') && |
|
(&Apache::lonnet::allowed('vgr',&getcid($asheet)))) { |
|
$r->print ( |
|
'<p><font size=+2><a href="/adm/classcalc">'. |
|
'Level up: Course Sheet</a></font><p>'); |
|
} |
|
|
|
|
# ----------------------------------------------------------------- Save dialog |
# ----------------------------------------------------------------- Save dialog |
|
|
|
|