version 1.10.2.1, 2003/12/05 22:24:20
|
version 1.11, 2003/09/05 01:06:45
|
Line 46 classcalc
|
Line 46 classcalc
|
package Apache::classcalc; |
package Apache::classcalc; |
|
|
use strict; |
use strict; |
|
use warnings FATAL=>'all'; |
|
no warnings 'uninitialized'; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::loncoursedata(); |
use Apache::loncoursedata(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
Line 109 sub parent_link {
|
Line 111 sub parent_link {
|
sub outsheet_html { |
sub outsheet_html { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
#################################### |
|
# Report any calculation errors # |
|
#################################### |
|
$r->print($self->html_report_error()); |
|
################################### |
################################### |
# Determine table structure |
# Determine table structure |
################################### |
################################### |
Line 275 sub compute {
|
Line 273 sub compute {
|
my $studentsheet = Apache::studentcalc->new |
my $studentsheet = Apache::studentcalc->new |
($student->{'username'},$student->{'domain'},undef); |
($student->{'username'},$student->{'domain'},undef); |
my @exportdata = $studentsheet->export_data(); |
my @exportdata = $studentsheet->export_data(); |
if ($studentsheet->badcalc()) { |
|
$self->set_calcerror($sname.' : '. |
|
$studentsheet->calcerror()); |
|
} |
|
my $rownum = $self->get_row_number_from_key($sname); |
my $rownum = $self->get_row_number_from_key($sname); |
$f{'A'.$rownum} = $sname; |
$f{'A'.$rownum} = $sname; |
$self->{'row_source'}->{$rownum} = $sname; |
$self->{'row_source'}->{$rownum} = $sname; |