version 1.25, 2001/01/01 20:25:57
|
version 1.26, 2001/01/01 20:52:10
|
Line 1051 sub rowazclass {
|
Line 1051 sub rowazclass {
|
&Apache::lonnet::ssi( |
&Apache::lonnet::ssi( |
'/adm/studentcalc',('utarget' => 'export', |
'/adm/studentcalc',('utarget' => 'export', |
'uname' => $tname, |
'uname' => $tname, |
'udom' => $tdom, |
'udom' => $tdom))); |
'usymb' => $f{$_}))); |
|
my $index=0; |
my $index=0; |
map { |
map { |
if ($assessdata[$index]) { |
if ($assessdata[$index]) { |
Line 1290 ENDSCRIPT
|
Line 1289 ENDSCRIPT
|
':environment:spreadsheet_default_'. |
':environment:spreadsheet_default_'. |
&gettype($sheetone), |
&gettype($sheetone), |
$ENV{'course.'.$ENV{'request.course.id'}.'.home'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.home'}); |
unless ($reply=~/^error\:/) { |
unless (($reply=~/^error\:/) || ($reply eq '')) { |
$ENV{'form.ufn'}=$reply; |
$ENV{'form.ufn'}=$reply; |
unless ($reroute) { |
unless ($reroute) { |
$r->print('<p>Using customized default spreadsheet<p>'); |
$r->print('<p>Using customized default spreadsheet<p>'); |
Line 1379 ENDSCRIPT
|
Line 1378 ENDSCRIPT
|
&rowaassess($sheetone,$ENV{'form.usymb'}); |
&rowaassess($sheetone,$ENV{'form.usymb'}); |
} elsif (&gettype($sheetone) eq 'studentcalc') { |
} elsif (&gettype($sheetone) eq 'studentcalc') { |
&rowazstudent($sheetone); |
&rowazstudent($sheetone); |
|
} else { |
|
&rowazclass($sheetone); |
} |
} |
my $calcoutput=&calcsheet($sheetone); |
my $calcoutput=&calcsheet($sheetone); |
unless ($reroute) { |
unless ($reroute) { |