loncom/interface/spreadsheet/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.42, 2005/08/29 21:04:52	version 1.43, 2006/04/06 16:43:49
Line 264 sub handler {	Line 264 sub handler {
}	}
$env{'form.sname'} = $name;	$env{'form.sname'} = $name;
$env{'form.sdomain'} = $domain;	$env{'form.sdomain'} = $domain;
	my $section = &Apache::lonnet::getsection($domain,$name,
	$env{'request.course.id'});
##	##
## Check permissions	## Check permissions
my $allowed_to_edit = &Apache::lonnet::allowed('mgr',	my $allowed_to_edit = &Apache::lonnet::allowed('mgr',
Line 438 ENDSCRIPT	Line 440 ENDSCRIPT
&Apache::Spreadsheet::initialize_spreadsheet_package();	&Apache::Spreadsheet::initialize_spreadsheet_package();
my $spreadsheet = undef;	my $spreadsheet = undef;
if ($sheettype eq 'classcalc') {	if ($sheettype eq 'classcalc') {
$spreadsheet = Apache::classcalc->new($name,$domain,$filename,undef);	$spreadsheet = Apache::classcalc->new($name,$domain,$filename,undef,
	$section);
} elsif ($sheettype eq 'studentcalc') {	} elsif ($sheettype eq 'studentcalc') {
$spreadsheet = Apache::studentcalc->new($name,$domain,$filename,undef);	$spreadsheet = Apache::studentcalc->new($name,$domain,$filename,undef,
	$section);
} elsif ($sheettype eq 'assesscalc' &&	} elsif ($sheettype eq 'assesscalc' &&
defined($symb) &&	defined($symb) &&
$allowed_to_edit) {	$allowed_to_edit) {
$spreadsheet = Apache::assesscalc->new($name,$domain,$filename,$symb);	$spreadsheet = Apache::assesscalc->new($name,$domain,$filename,$symb,
	$section);
} else {	} else {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}