version 1.49, 2001/03/20 21:49:05
|
version 1.50, 2001/03/21 01:43:22
|
Line 1096 sub updatestudentassesssheet {
|
Line 1096 sub updatestudentassesssheet {
|
my %allkeys=(); |
my %allkeys=(); |
my %allassess=(); |
my %allassess=(); |
|
|
|
my $adduserstr=''; |
|
if ((&getuname($safeeval) ne $ENV{'user.name'}) || |
|
(&getudom($safeeval) ne $ENV{'user.domain'})) { |
|
$adduserstr='&uname='.&getuname($safeeval). |
|
'&udom='.&getudom($safeeval); |
|
} |
|
|
map { |
map { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
my $mapid=$1; |
my $mapid=$1; |
Line 1108 sub updatestudentassesssheet {
|
Line 1115 sub updatestudentassesssheet {
|
'___'.$resid.'___'. |
'___'.$resid.'___'. |
&Apache::lonnet::declutter($srcf); |
&Apache::lonnet::declutter($srcf); |
$allassess{$symb}= |
$allassess{$symb}= |
'<a href="/adm/assesscalc?usymb='.$symb.'">'.$bighash{'title_'.$id}.'</a>'; |
'<a href="/adm/assesscalc?usymb='.$symb.$adduserstr.'">'. |
|
$bighash{'title_'.$id}.'</a>'; |
if ($stype eq 'assesscalc') { |
if ($stype eq 'assesscalc') { |
map { |
map { |
if (($_=~/^stores\_(.*)/) || ($_=~/^parameter\_(.*)/)) { |
if (($_=~/^stores\_(.*)/) || ($_=~/^parameter\_(.*)/)) { |
Line 1260 sub loadcourse {
|
Line 1268 sub loadcourse {
|
<script> |
<script> |
popwin=open('','popwin','width=400,height=100'); |
popwin=open('','popwin','width=400,height=100'); |
popwin.document.writeln('<html><body bgcolor="#FFFFFF">'+ |
popwin.document.writeln('<html><body bgcolor="#FFFFFF">'+ |
'<h1>Spreadsheet Calculation Progress</h1>'+ |
'<h3>Spreadsheet Calculation Progress</h3>'+ |
'<form name=popremain>'+ |
'<form name=popremain>'+ |
'<input type=text size=35 name=remaining value=Starting></form>'+ |
'<input type=text size=35 name=remaining value=Starting></form>'+ |
'</body></html>'); |
'</body></html>'); |