--- loncom/interface/spreadsheet/studentcalc.pm 2003/05/19 14:34:54 1.2
+++ loncom/interface/spreadsheet/studentcalc.pm 2003/05/23 19:36:04 1.6
@@ -1,5 +1,5 @@
#
-# $Id: studentcalc.pm,v 1.2 2003/05/19 14:34:54 matthew Exp $
+# $Id: studentcalc.pm,v 1.6 2003/05/23 19:36:04 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;
@@ -89,9 +91,34 @@ sub clear_package {
sub get_title {
my $self = shift;
- my $title = '';
- $title .= '<h2>Spreadsheet for '.
- $self->{'name'}.'@'.$self->{'domain'}.'</h2>';
+ my @title = ();
+ #
+ # Determine the students name
+ my %userenv = &Apache::loncoursedata::GetUserName($self->{'name'},
+ $self->{'domain'});
+ my $name = join(' ',
+ @userenv{'firstname','middlename','lastname','generation'});
+ $name =~ s/\s+$//;
+
+ push (@title,$name);
+ push (@title,$self->{'coursedesc'});
+ push (@title,scalar(localtime(time)));
+ return @title;
+}
+
+sub get_html_title {
+ my $self = shift;
+ my ($name,$desc,$time) = $self->get_title();
+ my $title = '<h1>'.$name;
+ if ($ENV{'user.name'} ne $self->{'name'} &&
+ $ENV{'user.domain'} ne $self->{'domain'}) {
+ $title .= &Apache::loncommon::aboutmewrapper
+ ($self->{'name'}.'@'.$self->{'domain'},
+ $self->{'name'},$self->{'domain'});
+ }
+ $title .= "</h1>\n";
+ $title .= '<h2>'.$desc."</h2>\n";
+ $title .= '<h3>'.$time.'</h3>';
return $title;
}
@@ -140,24 +167,40 @@ END
$label_num++;
}
$tableheader .="</tr>\n";
- #
- $r->print($tableheader);
- #
- # Print out template row
- $r->print('<tr><td>Template</td><td> </td>'.
- $self->html_template_row($num_uneditable)."</tr>\n");
- #
- # Print out summary/export row
- $r->print('<tr><td>Export</td><td>0</td>'.
- $self->html_export_row()."</tr>\n");
+ if ($self->blackout()) {
+ $r->print('<font color="red" size="+2"><p>'.
+ 'Some computations are not available at this time.<br />'.
+ 'There are problems whose status you are allowed to view.'.
+ '</font></p>'."\n");
+ } else {
+ $r->print($tableheader);
+ #
+ # Print out template row
+ if (exists($ENV{'request.role.adv'}) && $ENV{'request.role.adv'}) {
+ $r->print('<tr><td>Template</td><td> </td>'.
+ $self->html_template_row($num_uneditable)."</tr>\n");
+ }
+ #
+ # Print out summary/export row
+ $r->print('<tr><td>Summary</td><td>0</td>'.
+ $self->html_export_row()."</tr>\n");
+ }
$r->print("</table>\n");
#
# Prepare to output rows
- $tableheader =<<"END";
+ if (exists($ENV{'request.role.adv'}) && $ENV{'request.role.adv'}) {
+ $tableheader =<<"END";
</p><p>
<table border="2">
<tr><th>Row</th><th>Assessment</th>
END
+ } else {
+ $tableheader =<<"END";
+</p><p>
+<table border="2">
+<tr><th> </th><th>Assessment</th>
+END
+ }
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){
if ($label_num<$num_uneditable) {
$tableheader.='<td bgcolor="#FFDDDD">';
@@ -187,19 +230,25 @@ END
'<a href="/adm/assesscalc?sname='.$self->{'name'}.
'&sdomain='.$self->{'domain'}.
'&filename='.$assess_filename.
- '&usymb='.&Apache::lonnet::escape($resource->{'symb'}).'">'.
- $resource->{'title'}.'</a><br />';
+ '&usymb='.&Apache::lonnet::escape($resource->{'symb'}).
+ '">'.$resource->{'title'}.'</a><br />';
$row_output .= &assess_file_selector($rownum,
$assess_filename,
\@AssessFileNames).
'</td>';
} else {
$row_output .= '<td><a href="'.$resource->{'src'}.'?symb='.
- &Apache::lonnet::escape($resource->{'symb'}).'>Go To</a>';
+ &Apache::lonnet::escape($resource->{'symb'}).
+ '">Go To</a>';
$row_output .= '</td><td>'.$resource->{'title'}.'</td>';
}
- $row_output .= $self->html_row($num_uneditable,$rownum).
- "</tr>\n";
+ if ($self->blackout() && $self->{'blackout_rows'}->{$rownum}>0) {
+ $row_output .=
+ '<td colspan="52">Unavailable at this time</td></tr>'."\n";
+ } else {
+ $row_output .= $self->html_row($num_uneditable,$rownum).
+ "</tr>\n";
+ }
$r->print($row_output);
}
$r->print("</table>\n");
@@ -266,24 +315,44 @@ sub modify_cell {
sub outsheet_csv {
my $self = shift;
my ($r) = @_;
+ $r->print('<h1>csv output is not supported yet</h1>');
}
-sub outsheet_excel {
+
+sub excel_rows {
+ # writes the meat of the spreadsheet to an excel worksheet. Called
+ # by Spreadsheet::outsheet_excel;
my $self = shift;
- my ($r) = @_;
+ my ($worksheet,$cols_output,$rows_output) = @_;
+ #
+ # Write a header row
+ $cols_output = 0;
+ foreach my $value ('Container','Assessment title') {
+ $worksheet->write($rows_output,$cols_output++,$value);
+ }
+ $rows_output++;
+ #
+ # Write each assessments row
+ if (scalar(@Sequences)< 1) {
+ &initialize_sequence_cache();
+ }
+ foreach my $Sequence (@Sequences) {
+ next if ($Sequence->{'num_assess'} < 1);
+ foreach my $resource (@{$Sequence->{'contents'}}) {
+ my $rownum = $self->get_row_number_from_key($resource->{'symb'});
+ my @assessdata = ($Sequence->{'title'},
+ $resource->{'title'});
+ $self->excel_output_row($worksheet,$rownum,$rows_output++,
+ @assessdata);
+ }
+ }
+ return;
}
+
sub outsheet_recursive_excel {
my $self = shift;
my ($r) = @_;
}
-sub display {
- my $self = shift;
- my ($r) = @_;
- $self->compute();
- $self->outsheet_html($r);
- return;
-}
-
sub set_row_sources {
my $self = shift;
while (my ($cell,$value) = each(%{$self->{'formulas'}})) {
@@ -340,6 +409,10 @@ sub compute {
$assess_filename,
$resource->{'symb'});
my @exportdata = $assessSheet->export_data();
+ if ($assessSheet->blackout()) {
+ $self->blackout(1);
+ $self->{'blackout_rows'}->{$rownum} = 1;
+ }
#
# Be sure not to disturb the formulas in the 'A' column
my $data = shift(@exportdata);
@@ -448,6 +521,7 @@ Writes the export data for this student
#############################################
sub save_export_data {
my $self = shift;
+ return if ($self->temporary());
my $student = $self->{'name'}.':'.$self->{'domain'};
return if (! exists($Exportrows{$student}));
return if (! $self->is_default());