version 1.7, 2003/05/23 14:52:51
|
version 1.9, 2003/05/23 21:03:29
|
Line 313 sub parmval {
|
Line 313 sub parmval {
|
return ''; |
return ''; |
} |
} |
|
|
|
sub get_html_title { |
|
my $self = shift; |
|
my ($assess_title,$name,$time) = $self->get_title(); |
|
my $title = '<h1>'.$assess_title.'</h1>'. |
|
'<h2>'.$name.', '. |
|
&Apache::loncommon::aboutmewrapper |
|
($self->{'name'}.'@'.$self->{'domain'}, |
|
$self->{'name'},$self->{'domain'}); |
|
$title .= '<h3>'.$time.'</h3>'; |
|
return $title; |
|
} |
|
|
sub get_title { |
sub get_title { |
my $self = shift; |
my $self = shift; |
my $title; |
my @title = (); |
if (($self->{'usymb'} eq '_feedback') || |
if (($self->{'usymb'} eq '_feedback') || |
($self->{'usymb'} eq '_evaluation') || |
($self->{'usymb'} eq '_evaluation') || |
($self->{'usymb'} eq '_discussion') || |
($self->{'usymb'} eq '_discussion') || |
($self->{'usymb'} eq '_tutoring')) { |
($self->{'usymb'} eq '_tutoring')) { |
$title = $self->{'usymb'}; |
my $assess_title = ucfirst($self->{'usymb'}); |
$title =~ s/^_//; |
$assess_title =~ s/^_//; |
$title = '<h1>'.ucfirst($title)."</h1>\n"; |
push(@title,$assess_title); |
} else { |
} else { |
$title = '<h1>'.&Apache::lonnet::gettitle($self->{'symb'})."</h1>\n"; |
push(@title,&Apache::lonnet::gettitle($self->{'symb'})); |
} |
} |
# Look up the users identifying information |
# Look up the users identifying information |
# Get the users information |
# Get the users information |
Line 333 sub get_title {
|
Line 345 sub get_title {
|
my $name = |
my $name = |
join(' ',@userenv{'firstname','middlename','lastname','generation'}); |
join(' ',@userenv{'firstname','middlename','lastname','generation'}); |
$name =~ s/\s+$//; |
$name =~ s/\s+$//; |
$title .= '<h2>'.$name.', '. |
push (@title,$name); |
&Apache::loncommon::aboutmewrapper($self->{'name'}.'@'.$self->{'domain'}, |
push (@title,scalar(localtime(time))); |
$self->{'name'},$self->{'domain'}). |
return @title; |
"</h2>\n"; |
|
$title .= '<h3>'.localtime(time).'</h3>'; |
|
# |
|
return $title; |
|
} |
} |
|
|
sub parent_link { |
sub parent_link { |
Line 405 END
|
Line 413 END
|
} |
} |
# |
# |
my $num_output = 0; |
my $num_output = 0; |
foreach my $rownum ($self->rows()) { |
foreach my $rownum (sort {$a <=> $b} ($self->rows())) { |
if ($num_output++ % 50 == 0) { |
if ($num_output++ % 50 == 0) { |
$r->print("</table>\n".$tableheader); |
$r->print("</table>\n".$tableheader); |
} |
} |
Line 419 END
|
Line 427 END
|
sub assess_html_row { |
sub assess_html_row { |
my $self = shift(); |
my $self = shift(); |
my ($num_uneditable,$row) = @_; |
my ($num_uneditable,$row) = @_; |
my $requester_is_student = ($ENV{'request.role'} =~ /^st\./); |
|
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 432 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) { |
if ($requester_is_student || |
$row_html .= '<td bgcolor="#EOFFDD">'; |
$num_cols_output++ < $num_uneditable) { |
$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'); |
|
} |
|
$row_html .= '</td>'; |
$row_html .= '</td>'; |
} |
} |
return $row_html; |
return $row_html; |
} |
} |
|
|
sub outsheet_csv { |
sub csv_rows { |
my $self = shift; |
# writes the meat of the spreadsheet to an excel worksheet. Called |
my ($r)=@_; |
# by Spreadsheet::outsheet_excel; |
} |
my $self = shift; |
|
my ($filehandle) = @_; |
sub outsheet_excel { |
# |
my $self = shift; |
# Write a header row |
my ($r)=@_; |
$self->csv_output_row($filehandle,undef, |
|
('Parameter','Description','Value')); |
|
# |
|
# Write each row |
|
foreach my $rownum (sort {$a <=> $b} ($self->rows())) { |
|
my $parameter_name = $self->{'formulas'}->{'A'.$rownum}; |
|
my $description = ''; |
|
if (exists($nice_parameter_name{$parameter_name})) { |
|
$description = $nice_parameter_name{$parameter_name}; |
|
} |
|
$self->csv_output_row($filehandle,$rownum, |
|
$parameter_name,$description); |
|
} |
|
return; |
} |
} |
|
|
sub display { |
sub excel_rows { |
my $self = shift; |
# writes the meat of the spreadsheet to an excel worksheet. Called |
my ($r) = @_; |
# by Spreadsheet::outsheet_excel; |
$self->compute(); |
my $self = shift; |
$self->outsheet_html($r); |
my ($worksheet,$cols_output,$rows_output) = @_; |
|
# |
|
# Write a header row |
|
$cols_output = 0; |
|
foreach my $value ('Parameter','Description','Value') { |
|
$worksheet->write($rows_output,$cols_output++,$value); |
|
} |
|
$rows_output++; |
|
# |
|
# Write each row |
|
foreach my $rownum (sort {$a <=> $b} ($self->rows())) { |
|
my $parameter_name = $self->{'formulas'}->{'A'.$rownum}; |
|
my $description = ''; |
|
if (exists($nice_parameter_name{$parameter_name})) { |
|
$description = $nice_parameter_name{$parameter_name}; |
|
} |
|
$self->excel_output_row($worksheet,$rownum,$rows_output++, |
|
$parameter_name,$description); |
|
} |
|
return; |
} |
} |
|
|
sub compute { |
sub compute { |