version 1.9, 2003/05/23 21:03:29
|
version 1.11, 2003/05/29 13:39:38
|
Line 123 sub clear_package {
|
Line 123 sub clear_package {
|
undef(%courseopt); |
undef(%courseopt); |
} |
} |
|
|
|
sub initialize { |
|
&clear_package(); |
|
} |
|
|
######################################################## |
######################################################## |
######################################################## |
######################################################## |
|
|
Line 418 END
|
Line 422 END
|
$r->print("</table>\n".$tableheader); |
$r->print("</table>\n".$tableheader); |
} |
} |
$r->print('<tr><td>'.$rownum.'</td>'. |
$r->print('<tr><td>'.$rownum.'</td>'. |
$self->assess_html_row($num_uneditable,$rownum)."</tr>\n"); |
$self->assess_html_row($rownum)."</tr>\n"); |
} |
} |
$r->print("</table>\n"); |
$r->print("</table>\n"); |
return; |
return; |
Line 426 END
|
Line 430 END
|
|
|
sub assess_html_row { |
sub assess_html_row { |
my $self = shift(); |
my $self = shift(); |
my ($num_uneditable,$row) = @_; |
my ($row) = @_; |
my $parameter_name = $self->{'formulas'}->{'A'.$row}; |
my $parameter_name = $self->{'formulas'}->{'A'.$row}; |
my @rowdata = $self->get_row($row); |
my @rowdata = $self->get_row($row); |
my $num_cols_output = 0; |
my $num_cols_output = 0; |
Line 439 sub assess_html_row {
|
Line 443 sub assess_html_row {
|
$row_html .= '<td>'.$parameter_name.'</td>'; |
$row_html .= '<td>'.$parameter_name.'</td>'; |
} |
} |
foreach my $cell (@rowdata) { |
foreach my $cell (@rowdata) { |
$row_html .= '<td bgcolor="#EOFFDD">'; |
if ($num_cols_output < 1) { |
$row_html .= &Apache::Spreadsheet::html_editable_cell($cell,'#E0FFDD'); |
$row_html .= '<td bgcolor="#FFDDDD">'; |
|
$row_html .= &Apache::Spreadsheet::html_uneditable_cell($cell, |
|
'#FFDDDD'); |
|
} else { |
|
$row_html .= '<td bgcolor="#EOFFDD">'; |
|
$row_html .= &Apache::Spreadsheet::html_editable_cell($cell, |
|
'#E0FFDD',1); |
|
} |
$row_html .= '</td>'; |
$row_html .= '</td>'; |
|
$num_cols_output++; |
} |
} |
return $row_html; |
return $row_html; |
} |
} |
Line 499 sub compute {
|
Line 511 sub compute {
|
my $self = shift; |
my $self = shift; |
$self->logthis('computing'); |
$self->logthis('computing'); |
$self->initialize_safe_space(); |
$self->initialize_safe_space(); |
|
######################################### |
|
######################################### |
|
### ### |
|
### Retrieve the problem parameters ### |
|
### ### |
|
######################################### |
|
######################################### |
|
my @Mandatory_parameters = ("stores_0_solved", |
|
"stores_0_awarddetail", |
|
"stores_0_awarded", |
|
"timestamp", |
|
"stores_0_tries", |
|
"stores_0_award"); |
# |
# |
# Definitions |
# Definitions |
undef(%nice_parameter_name); |
undef(%nice_parameter_name); |
Line 507 sub compute {
|
Line 532 sub compute {
|
# Get the metadata fields and determine their proper names |
# Get the metadata fields and determine their proper names |
my ($symap,$syid,$srcf)=split(/___/,$self->{'symb'}); |
my ($symap,$syid,$srcf)=split(/___/,$self->{'symb'}); |
my @Metadata = split(/\,/,&Apache::lonnet::metadata($srcf,'keys')); |
my @Metadata = split(/\,/,&Apache::lonnet::metadata($srcf,'keys')); |
foreach my $parm (@Metadata) { |
foreach my $parm (@Mandatory_parameters,@Metadata) { |
next if ($parm !~ /^(resource\.|stores|parameter)_/); |
next if ($parm !~ /^(resource\.|stores|parameter)_/); |
my $cleaned_name = $parm; |
my $cleaned_name = $parm; |
$cleaned_name =~ s/^resource\./stores_/; |
$cleaned_name =~ s/^resource\./stores_/; |