loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.9, 2003/05/23 21:03:29	version 1.10, 2003/05/27 20:20:25
Line 418 END	Line 418 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 426 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 439 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;
}	}