--- loncom/interface/Attic/lonspreadsheet.pm 2001/03/20 21:49:05 1.49
+++ loncom/interface/Attic/lonspreadsheet.pm 2001/03/21 01:43:22 1.50
@@ -1096,6 +1096,13 @@ sub updatestudentassesssheet {
my %allkeys=();
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 {
if ($_=~/^src\_(\d+)\.(\d+)$/) {
my $mapid=$1;
@@ -1108,7 +1115,8 @@ sub updatestudentassesssheet {
'___'.$resid.'___'.
&Apache::lonnet::declutter($srcf);
$allassess{$symb}=
- ''.$bighash{'title_'.$id}.'';
+ ''.
+ $bighash{'title_'.$id}.'';
if ($stype eq 'assesscalc') {
map {
if (($_=~/^stores\_(.*)/) || ($_=~/^parameter\_(.*)/)) {
@@ -1260,7 +1268,7 @@ sub loadcourse {