version 1.8, 2003/05/29 13:39:38
|
version 1.13, 2003/06/23 20:47:00
|
Line 65 my %Exportrows = ();
|
Line 65 my %Exportrows = ();
|
my $current_course; |
my $current_course; |
|
|
sub initialize { |
sub initialize { |
|
&Apache::assesscalc::initialize(); |
&initialize_sequence_cache(); |
&initialize_sequence_cache(); |
} |
} |
|
|
Line 146 sub parent_link {
|
Line 147 sub parent_link {
|
sub outsheet_html { |
sub outsheet_html { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
|
my $importcolor = '#FFFFAA'; |
|
my $exportcolor = '#88FF88'; |
#################################### |
#################################### |
# Get the list of assessment files # |
# Get the list of assessment files # |
#################################### |
#################################### |
Line 162 sub outsheet_html {
|
Line 165 sub outsheet_html {
|
<table border="2"> |
<table border="2"> |
<tr> |
<tr> |
<th colspan="2" rowspan="2"><font size="+2">Student</font></th> |
<th colspan="2" rowspan="2"><font size="+2">Student</font></th> |
<td bgcolor="#FFDDDD" colspan="$num_uneditable"> |
<td bgcolor="$importcolor" colspan="$num_uneditable"> |
<b><font size="+1">Import</font></b></td> |
<b><font size="+1">Import</font></b></td> |
<td colspan="$num_left"> |
<td colspan="$num_left"> |
<b><font size="+1">Calculations</font></b></td> |
<b><font size="+1">Calculations</font></b></td> |
Line 171 END
|
Line 174 END
|
my $label_num = 0; |
my $label_num = 0; |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
if ($label_num<$num_uneditable) { |
if ($label_num<$num_uneditable) { |
$tableheader .='<td bgcolor="#FFDDDD">'; |
$tableheader .='<td bgcolor="'.$importcolor.'">'; |
} else { |
} else { |
$tableheader .='<td>'; |
$tableheader .='<td>'; |
} |
} |
Line 190 END
|
Line 193 END
|
# Print out template row |
# Print out template row |
if (exists($ENV{'request.role.adv'}) && $ENV{'request.role.adv'}) { |
if (exists($ENV{'request.role.adv'}) && $ENV{'request.role.adv'}) { |
$r->print('<tr><td>Template</td><td> </td>'. |
$r->print('<tr><td>Template</td><td> </td>'. |
$self->html_template_row($num_uneditable)."</tr>\n"); |
$self->html_template_row($num_uneditable, |
|
$importcolor)."</tr>\n"); |
} |
} |
# |
# |
# Print out summary/export row |
# Print out summary/export row |
$r->print('<tr><td>Summary</td><td>0</td>'. |
$r->print('<tr><td>Summary</td><td>0</td>'. |
$self->html_export_row()."</tr>\n"); |
$self->html_export_row($exportcolor)."</tr>\n"); |
} |
} |
$r->print("</table>\n"); |
$r->print("</table>\n"); |
# |
# |
Line 258 END
|
Line 262 END
|
$row_output .= |
$row_output .= |
'<td colspan="52">Unavailable at this time</td></tr>'."\n"; |
'<td colspan="52">Unavailable at this time</td></tr>'."\n"; |
} else { |
} else { |
$row_output .= $self->html_row($num_uneditable,$rownum). |
$row_output .= $self->html_row($num_uneditable,$rownum, |
|
$exportcolor,$importcolor). |
"</tr>\n"; |
"</tr>\n"; |
} |
} |
$r->print($row_output); |
$r->print($row_output); |
Line 332 sub csv_rows {
|
Line 337 sub csv_rows {
|
# |
# |
# Write a header row |
# Write a header row |
$self->csv_output_row($filehandle,undef, |
$self->csv_output_row($filehandle,undef, |
('Container','Assessment title')); |
('Sequence or Folder','Assessment title')); |
# |
# |
# Write each assessments row |
# Write each assessments row |
if (scalar(@Sequences)< 1) { |
if (scalar(@Sequences)< 1) { |
Line 385 sub outsheet_recursive_excel {
|
Line 390 sub outsheet_recursive_excel {
|
my ($r) = @_; |
my ($r) = @_; |
} |
} |
|
|
sub set_row_sources { |
|
my $self = shift; |
|
while (my ($cell,$value) = each(%{$self->{'formulas'}})) { |
|
next if ($cell !~ /^A(\d+)/ && $1 > 0); |
|
my $row = $1; |
|
(undef,$value) = split('__&&&__',$value); |
|
$value = 'Default' if (! defined($value)); |
|
$self->{'row_source'}->{$row} = $value; |
|
} |
|
return; |
|
} |
|
|
|
sub compute { |
sub compute { |
my $self = shift; |
my $self = shift; |
$self->logthis('computing'); |
$self->logthis('computing'); |
Line 474 sub compute {
|
Line 467 sub compute {
|
$Exportrows{$student}->{'data'} = \@exportarray; |
$Exportrows{$student}->{'data'} = \@exportarray; |
# save export row |
# save export row |
$self->save_export_data(); |
$self->save_export_data(); |
|
# |
|
$self->save() if ($self->need_to_save()); |
|
return; |
|
} |
|
|
|
sub set_row_sources { |
|
my $self = shift; |
|
while (my ($cell,$value) = each(%{$self->{'formulas'}})) { |
|
next if ($cell !~ /^A(\d+)/ && $1 > 0); |
|
my $row = $1; |
|
(undef,$value) = split('__&&&__',$value); |
|
$value = 'Default' if (! defined($value)); |
|
$self->{'row_source'}->{$row} = $value; |
|
} |
return; |
return; |
} |
} |
|
|
Line 485 sub set_row_numbers {
|
Line 492 sub set_row_numbers {
|
next if ($row == 0); |
next if ($row == 0); |
my ($symb,undef) = split('__&&&__',$formula); |
my ($symb,undef) = split('__&&&__',$formula); |
$self->{'row_numbers'}->{$symb} = $row; |
$self->{'row_numbers'}->{$symb} = $row; |
|
$self->{'maxrow'} = $1 if ($1 > $self->{'maxrow'}); |
} |
} |
} |
} |
|
|