--- loncom/interface/spreadsheet/studentcalc.pm 2003/05/19 14:34:54 1.2 +++ loncom/interface/spreadsheet/studentcalc.pm 2003/05/22 21:16:35 1.4 @@ -1,5 +1,5 @@ # -# $Id: studentcalc.pm,v 1.2 2003/05/19 14:34:54 matthew Exp $ +# $Id: studentcalc.pm,v 1.4 2003/05/22 21:16:35 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,9 +48,11 @@ package Apache::studentcalc; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; +use Apache::loncommon(); +use Apache::loncoursedata(); use Apache::lonnavmaps; -use Apache::Spreadsheet; -use Apache::assesscalc; +use Apache::Spreadsheet(); +use Apache::assesscalc(); use HTML::Entities(); use Spreadsheet::WriteExcel; use Time::HiRes; @@ -90,8 +92,22 @@ sub clear_package { sub get_title { my $self = shift; my $title = ''; - $title .= '
'.
+ 'Some computations are not available at this time.
'.
+ 'There are problems whose status you are allowed to view.'.
+ '
Row | Assessment | END + } else { + $tableheader =<<"END"; +
---|
Assessment | +END + } foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ if ($label_num<$num_uneditable) { $tableheader.='';
@@ -187,19 +219,25 @@ END
''.
- $resource->{'title'}.' '; + '&usymb='.&Apache::lonnet::escape($resource->{'symb'}). + '">'.$resource->{'title'}.' '; $row_output .= &assess_file_selector($rownum, $assess_filename, \@AssessFileNames). ' | ';
} else {
$row_output .= 'Go To'; $row_output .= ' | '.$resource->{'title'}.' | '; } - $row_output .= $self->html_row($num_uneditable,$rownum). - "Unavailable at this time | '."\n"; + } else { + $row_output .= $self->html_row($num_uneditable,$rownum). + "\n"; + } $r->print($row_output); } $r->print("
---|