';
- } else {
- $tabledata='| '. - ''.$realm.' | '. - 'Import | '. - 'Calculations | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| '; - } else { - $tabledata.=' | '; - } - $tabledata.="$_ | "; + $num_uneditable = 26; + $realm = 'User'; + $row_type = 'Assessment'; + } elsif ($sheet->{'sheettype'} eq 'classcalc') { + $num_uneditable = 26; + $realm = 'Course'; + $row_type = 'Student'; + } else { + return; # error + } + #################################### + # Print out header table + #################################### + my $num_left = 52-$num_uneditable; + my $tabledata =<<"END"; +|||||||||||
| $realm | ++ Import | ++ Calculations | +
|---|---|---|
| '; + } else { + $tabledata.=' | '; } - $tabledata.=' | |
| '.&format_html_rowlabel($rowlabel).' | '; + my $num_cols_output = 0; + foreach my $cell (@rowdata) { + if ($num_cols_output++ < $num_uneditable) { + $row_html .= ''; + $row_html .= &html_uneditable_cell($cell,'#FFDDDD'); + } else { + $row_html .= ' | '; + $row_html .= &html_editable_cell($cell,'#E0FFDD'); + } + $row_html .= ' | '; } - @sortidx=sort { lc($sortby[$a]) cmp lc($sortby[$b]); } @sortidx; - # - # Determine the type of child spreadsheets - my $what='Student'; - if ($sheet->{'sheettype'} eq 'assesscalc') { - $what='Item'; - } elsif ($sheet->{'sheettype'} eq 'studentcalc') { - $what='Assessment'; + $row_html.= "
| '.&format_html_rowlabel($rowlabel).' | '; + $num_cols_output = 0; + foreach my $cell (@rowdata) { + if ($num_cols_output++ < 26) { + $row_html .= ''; + $row_html .= &html_editable_cell($cell,'#CCCCFF'); + } else { + $row_html .= ' | '; + $row_html .= &html_uneditable_cell(undef,'#CCCCFF'); + } + $row_html .= ' | '; } + $row_html.= "
| '.$what.' | '); - $r->print(''.
+ $r->print('
|
");
+ # $r->print(&geterrorlog($sheet));
+ # $r->print("\n");
+ return 1;
}
-#
-# ----------------------------------------------- Read list of available sheets
-#
+sub outsheet_csv {
+ my ($sheet,$r) = @_;
+ my $csvdata = '';
+ my @Values;
+ ####################################
+ # Prepare to output rows
+ ####################################
+ my @Rows = &sort_indicies($sheet);
+ #
+ # Loop through the rows and output them one at a time
+ my $rows_output=0;
+ foreach my $rownum (@Rows) {
+ my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
+ push (@Values,&format_csv_rowlabel($rowlabel));
+ foreach my $cell (@rowdata) {
+ push (@Values,'"'.$cell->{'value'}.'"');
+ }
+ $csvdata.= join(',',@Values)."\n";
+ @Values = ();
+ }
+ #
+ # Write the CSV data to a file and serve up a link
+ #
+ my $filename = '/prtspool/'.
+ $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
+ time.'_'.rand(1000000000).'.csv';
+ my $file;
+ unless ($file = Apache::File->new('>'.'/home/httpd'.$filename)) {
+ $r->log_error("Couldn't open $filename for output $!");
+ $r->print("Problems occured in writing the csv file. ".
+ "This error has been logged. ".
+ "Please alert your LON-CAPA administrator.");
+ $r->print("\n".$csvdata."\n"); + return 0; + } + print $file $csvdata; + close($file); + $r->print('