loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

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) {