version 1.17, 2003/09/05 01:06:45
|
version 1.19, 2003/09/08 18:25:26
|
Line 103 sub initialize_sequence_cache {
|
Line 103 sub initialize_sequence_cache {
|
sub clear_package { |
sub clear_package { |
undef(@Sequences); |
undef(@Sequences); |
undef(%Exportrows); |
undef(%Exportrows); |
|
&Apache::assesscalc::clear_package(); |
} |
} |
|
|
sub get_title { |
sub get_title { |
Line 128 sub get_html_title {
|
Line 129 sub get_html_title {
|
my $title = '<h1>'.$name; |
my $title = '<h1>'.$name; |
if ($ENV{'user.name'} ne $self->{'name'} && |
if ($ENV{'user.name'} ne $self->{'name'} && |
$ENV{'user.domain'} ne $self->{'domain'}) { |
$ENV{'user.domain'} ne $self->{'domain'}) { |
$title .= &Apache::loncommon::aboutmewrapper |
$title .= ' '.&Apache::loncommon::aboutmewrapper |
($self->{'name'}.'@'.$self->{'domain'}, |
($self->{'name'}.'@'.$self->{'domain'}, |
$self->{'name'},$self->{'domain'}); |
$self->{'name'},$self->{'domain'}); |
} |
} |
Line 414 sub outsheet_recursive_excel {
|
Line 415 sub outsheet_recursive_excel {
|
|
|
sub compute { |
sub compute { |
my $self = shift; |
my $self = shift; |
|
my ($r) = @_; |
|
my $connection = $r->connection(); |
|
if ($connection->aborted()) { $self->cleanup; return; } |
if (! defined($current_course) || |
if (! defined($current_course) || |
$current_course ne $ENV{'request.course.id'}) { |
$current_course ne $ENV{'request.course.id'}) { |
$current_course = $ENV{'request.course.id'}; |
$current_course = $ENV{'request.course.id'}; |
Line 440 sub compute {
|
Line 444 sub compute {
|
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
next if ($seq->{'num_assess'}<1); |
next if ($seq->{'num_assess'}<1); |
foreach my $resource (@{$seq->{'contents'}}) { |
foreach my $resource (@{$seq->{'contents'}}) { |
|
if ($connection->aborted()) { $self->cleanup(); return; } |
next if ($resource->{'type'} ne 'assessment'); |
next if ($resource->{'type'} ne 'assessment'); |
my $rownum = $self->get_row_number_from_key($resource->{'symb'}); |
my $rownum = $self->get_row_number_from_key($resource->{'symb'}); |
my $cell = 'A'.$rownum; |
my $cell = 'A'.$rownum; |
Line 450 sub compute {
|
Line 455 sub compute {
|
$self->{'row_source'}->{$rownum} = $assess_filename; |
$self->{'row_source'}->{$rownum} = $assess_filename; |
} |
} |
$f{$cell} = $resource->{'symb'}.'__&&&__'.$assess_filename; |
$f{$cell} = $resource->{'symb'}.'__&&&__'.$assess_filename; |
|
if ($connection->aborted()) { $self->cleanup(); return; } |
my $assessSheet = Apache::assesscalc->new($self->{'name'}, |
my $assessSheet = Apache::assesscalc->new($self->{'name'}, |
$self->{'domain'}, |
$self->{'domain'}, |
$assess_filename, |
$assess_filename, |
$resource->{'symb'}); |
$resource->{'symb'}); |
my @exportdata = $assessSheet->export_data(); |
my @exportdata = $assessSheet->export_data($r); |
|
if ($connection->aborted()) { $self->cleanup(); return; } |
if ($assessSheet->blackout()) { |
if ($assessSheet->blackout()) { |
$self->blackout(1); |
$self->blackout(1); |
$self->{'blackout_rows'}->{$rownum} = 1; |
$self->{'blackout_rows'}->{$rownum} = 1; |
Line 615 spreadsheet only if necessary.
|
Line 622 spreadsheet only if necessary.
|
############################################# |
############################################# |
sub export_data { |
sub export_data { |
my $self = shift; |
my $self = shift; |
|
my ($r) = @_; |
|
my $connection = $r->connection(); |
my $student = $self->{'name'}.':'.$self->{'domain'}; |
my $student = $self->{'name'}.':'.$self->{'domain'}; |
if (! exists($Exportrows{$student}) || |
if (! exists($Exportrows{$student}) || |
! defined($Exportrows{$student}) || |
! defined($Exportrows{$student}) || |
Line 623 sub export_data {
|
Line 632 sub export_data {
|
! exists($Exportrows{$student}->{'time'}) || |
! exists($Exportrows{$student}->{'time'}) || |
! defined($Exportrows{$student}->{'time'}) || |
! defined($Exportrows{$student}->{'time'}) || |
! $self->check_expiration_time($Exportrows{$student}->{'time'})) { |
! $self->check_expiration_time($Exportrows{$student}->{'time'})) { |
$self->compute(); |
$self->compute($r); |
} |
} |
|
if ($connection->aborted()) { $self->cleanup(); return; } |
my @Data = @{$Exportrows{$student}->{'data'}}; |
my @Data = @{$Exportrows{$student}->{'data'}}; |
for (my $i=0; $i<=$#Data;$i++) { |
for (my $i=0; $i<=$#Data;$i++) { |
$Data[$i]="'".$Data[$i]."'" if ($Data[$i]=~/\D/ && defined($Data[$i])); |
$Data[$i]="'".$Data[$i]."'" if ($Data[$i]=~/\D/ && defined($Data[$i])); |