--- loncom/interface/spreadsheet/lonspreadsheet.pm 2003/05/19 15:53:07 1.3
+++ loncom/interface/spreadsheet/lonspreadsheet.pm 2003/09/30 15:40:09 1.26
@@ -1,5 +1,5 @@
#
-# $Id: lonspreadsheet.pm,v 1.3 2003/05/19 15:53:07 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.26 2003/09/30 15:40:09 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -54,12 +54,16 @@ built-in functions.
package Apache::lonspreadsheet;
use strict;
+use warnings FATAL=>'all';
+no warnings 'uninitialized';
use Apache::classcalc();
use Apache::studentcalc();
use Apache::assesscalc();
use Apache::Constants qw(:common :http);
use Apache::lonnet;
use Apache::lonhtmlcommon;
+use Apache::lonlocal;
+use Apache::loncoursedata();
use HTML::Entities();
##
@@ -88,6 +92,108 @@ sub selectbox {
return $selout.'';
}
+sub file_dialogs {
+ my ($spreadsheet) = @_;
+ my $bgcolor = "#FFFFFF";
+ my $sheettype = $spreadsheet->{'type'};
+ my $result = '';
+ my $message = '';
+ ##
+ ## Deal with saving the spreadsheet
+ if ((exists($ENV{'form.save'}) || exists($ENV{'form.makedefault'})) &&
+ exists($ENV{'form.savefilename'})) {
+ $spreadsheet->filename($ENV{'form.savefilename'});
+ my $save_status = $spreadsheet->save();
+ if ($save_status ne 'ok') {
+ $message .= "An error occurred while saving the spreadsheet".
+ "There error is:".$save_status;
+ } else {
+ $message .= "Spreadsheet saved as ".$spreadsheet->filename();
+ }
+ } elsif (exists($ENV{'form.newformula'}) &&
+ exists($ENV{'form.cell'}) &&
+ $ENV{'form.cell'} ne '' ) {
+ ##
+ ## Make any requested modifications to the spreadsheet
+ $spreadsheet->modify_cell($ENV{'form.cell'},
+ $ENV{'form.newformula'});
+ $spreadsheet->save_tmp();
+ # output that we are dealing with a temporary file
+ $result .=&hiddenfield('workcopy',$sheettype);
+ if ($ENV{'form.newformula'} !~ /^\s*$/) {
+ $message .='
'.
+ '
Cell '.$ENV{'form.cell'}.' =
'.
+ '
'.$ENV{'form.newformula'}."
\n";
+ } else {
+ $message .= 'Deleted contents of cell '.$ENV{'form.cell'}.'.';
+ }
+ }
+ ##
+ ## Editing code
+ $result .=&hiddenfield('cell','').
+ &hiddenfield('newformula','');
+ ##
+ ## Create the save and load dialogs
+ my $filename = $spreadsheet->filename();
+ my $truefilename = $filename;
+ if ($spreadsheet->is_default()) {
+ $filename = 'Default';
+ }
+ my $save_dialog = ''.
+ ' '.
+ ''.
+ '';
+ my $makedefault_dialog = '';
+ #
+ my $link = 'Select Spreadsheet File";
+ my $load_dialog = <
+
+
+
+ $link
+
+
+ \n
\n\n";
+ #
+ $result .=<
+
+ -->
+
+
+
+
$load_dialog
+
+
+
$save_dialog
+
$makedefault_dialog
+
+
+
+
+
+END
+ return ($result,$message);
+}
+
sub handler {
my $r=shift;
#
@@ -99,12 +205,12 @@ sub handler {
# Check the course homeserver
$loaderror= &Apache::lonnet::overloaderror($r,
$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
- if ($loaderror) { return $loaderror; }
+# if ($loaderror) { return $loaderror; }
#
# HTML Header
#
if ($r->header_only) {
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
return OK;
}
@@ -118,11 +224,19 @@ sub handler {
$r->uri.":opa:0:0:Cannot modify spreadsheet";
return HTTP_NOT_ACCEPTABLE;
}
+ my $courseid = $ENV{'request.course.id'};
+ #
+ # Do not allow students to continue if standard grading is in effect.
+ if ($ENV{'request.role'} =~ /^st\./) {
+ if ($ENV{'course.'.$courseid.'.grading'} eq 'standard') {
+ return HTTP_NOT_ACCEPTABLE;
+ }
+ }
#
# Get query string for limited number of parameters
#
&Apache::loncommon::get_unprocessed_cgi
- ($ENV{'QUERY_STRING'},['sname','sdomain','usymb','filename']);
+ ($ENV{'QUERY_STRING'},['sname','sdomain','usymb','filename','recalc']);
#
# Deal with restricted student permissions
#
@@ -142,31 +256,53 @@ sub handler {
$name = $ENV{'form.sname'};
$domain = $ENV{'form.sdomain'};
}
- #
- # Open page, try to prevent browser cache.
- #
- $r->content_type('text/html');
- $r->header_out('Cache-control','no-cache');
- $r->header_out('Pragma','no-cache');
- $r->send_http_header;
##
## Check permissions
my $allowed_to_edit = &Apache::lonnet::allowed('mgr',
$ENV{'request.course.id'});
+ # Only those instructors/tas/whatevers with complete access
+ # (not section restricted) are able to modify spreadsheets.
my $allowed_to_view = &Apache::lonnet::allowed('vgr',
$ENV{'request.course.id'});
+ if (! $allowed_to_view) {
+ $allowed_to_view = &Apache::lonnet::allowed('vgr',
+ $ENV{'request.course.id'}.'/'.$ENV{'request.course.sec'});
+ # Those who are restricted by section are allowed to view.
+ # The routines in lonstatistics which decide which students'
+ # will be shown take care of the restriction by section.
+ }
#
# Only those able to view others grades will be allowed to continue
# if they are not requesting their own.
- if (($sheettype eq 'classcalc') ||
- ($name ne $ENV{'user.name'} ) ||
- ($domain ne $ENV{'user.domain'})) {
+ if ($sheettype eq 'classcalc') {
if (! $allowed_to_view) {
- $r->print('