loncom/interface/spreadsheet/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

Diff for /loncom/interface/spreadsheet/lonspreadsheet.pm between versions 1.16 and 1.33

version 1.16, 2003/07/16 13:52:19	version 1.33, 2004/02/20 17:17:32
Line 54 built-in functions.	Line 54 built-in functions.
package Apache::lonspreadsheet;	package Apache::lonspreadsheet;

use strict;	use strict;
	use warnings FATAL=>'all';
	no warnings 'uninitialized';
use Apache::classcalc();	use Apache::classcalc();
use Apache::studentcalc();	use Apache::studentcalc();
use Apache::assesscalc();	use Apache::assesscalc();
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
	use Apache::lonlocal;
	use Apache::loncoursedata();
use HTML::Entities();	use HTML::Entities();

##	##
Line 68 use HTML::Entities();	Line 72 use HTML::Entities();

sub textfield {	sub textfield {
my ($title,$name,$value)=@_;	my ($title,$name,$value)=@_;
return "\n<p><b>$title:</b><br>".	return "\n<p><b>$title:</b><br />".
'<input type=text name="'.$name.'" size=80 value="'.$value.'">';	'<input type=text name="'.$name.'" size=80 value="'.$value.'" />';
}	}

sub hiddenfield {	sub hiddenfield {
Line 79 sub hiddenfield {	Line 83 sub hiddenfield {

sub selectbox {	sub selectbox {
my ($title,$name,$value,%options)=@_;	my ($title,$name,$value,%options)=@_;
my $selout="\n<p><b>$title:</b><br>".'<select name="'.$name.'">';	my $selout="\n<p><b>$title:</b><br />".'<select name="'.$name.'">';
foreach (sort keys(%options)) {	foreach (sort keys(%options)) {
$selout.='<option value="'.$_.'"';	$selout.='<option value="'.$_.'"';
if ($_ eq $value) { $selout.=' selected'; }	if ($_ eq $value) { $selout.=' selected'; }
$selout.='>'.$options{$_}.'</option>';	$selout.='>'.&mt($options{$_}).'</option>';
}	}
return $selout.'</select>';	return $selout.'</select>';
}	}
Line 103 sub file_dialogs {	Line 107 sub file_dialogs {
if ($save_status ne 'ok') {	if ($save_status ne 'ok') {
$message .= "An error occurred while saving the spreadsheet".	$message .= "An error occurred while saving the spreadsheet".
"There error is:".$save_status;	"There error is:".$save_status;
return $result;
} else {	} else {
$message .= "Spreadsheet saved as ".$ENV{'form.savefilename'};	$message .= "Spreadsheet saved as ".$spreadsheet->filename();
}	}
} elsif (exists($ENV{'form.newformula'}) &&	} elsif (exists($ENV{'form.newformula'}) &&
exists($ENV{'form.cell'}) &&	exists($ENV{'form.cell'}) &&
Line 119 sub file_dialogs {	Line 122 sub file_dialogs {
$result .=&hiddenfield('workcopy',$sheettype);	$result .=&hiddenfield('workcopy',$sheettype);
if ($ENV{'form.newformula'} !~ /^\s*$/) {	if ($ENV{'form.newformula'} !~ /^\s*$/) {
$message .='<table><tr>'.	$message .='<table><tr>'.
'<td valign="top"><pre>Cell '.$ENV{'form.cell'}.' = </pre></td>'.	'<td valign="top"><pre>'.&mt('Cell').' '.$ENV{'form.cell'}.' = </pre></td>'.
'<td><pre>'.$ENV{'form.newformula'}."</pre></td></tr></table>\n";	'<td><pre>'.$ENV{'form.newformula'}."</pre></td></tr></table>\n";
} else {	} else {
$message .= 'Deleted contents of cell '.$ENV{'form.cell'}.'.';	$message .= &mt('Deleted contents of cell').' '.$ENV{'form.cell'}.'.';
}	}
}	}
##	##
Line 137 sub file_dialogs {	Line 140 sub file_dialogs {
$filename = 'Default';	$filename = 'Default';
}	}
my $save_dialog = '<nobr>'.	my $save_dialog = '<nobr>'.
'<input type="submit" name="save" value="Save as" /> '.	'<input type="submit" name="save" value="'.&mt('Save as').'" /> '.
'<input type="text" name="savefilename" size="30" value="'.	'<input type="text" name="savefilename" size="30" value="'.
$truefilename.'" />'.	$truefilename.'" />'.
'</nobr>';	'</nobr>';
my $makedefault_dialog = '<input type="submit" name="makedefault" '.	my $makedefault_dialog = '<input type="submit" name="makedefault" '.
'value="Save as & Make This Sheet the Default"/>';	'value="'.&mt('Save as & Make This Sheet the Default').'"/>';
#	#
my $link = '<a href="javascript:openbrowser'.	my $link = '<a href="javascript:openbrowser'.
"('sheet','loadfilename','spreadsheet')\">Select Spreadsheet File</a>";	"('sheet','loadfilename','spreadsheet')\">".&mt('Select Spreadsheet File')."</a>";
	my $load=&mt('Load:');
my $load_dialog = <<END;	my $load_dialog = <<END;
<table bgcolor="$bgcolor">	<table bgcolor="$bgcolor">
<tr><td><input type="submit" name="load" value="Load" /></td>	<tr><td><input type="submit" name="load" value="$load" /></td>
<td><nobr>	<td><nobr>
<input type="text" name="loadfilename" size="20" value="$filename" />	<input type="text" name="loadfilename" size="20" value="$filename" />
$link</nobr>	$link</nobr>
Line 158 sub file_dialogs {	Line 162 sub file_dialogs {
END	END
my $default_filename_set = 0;	my $default_filename_set = 0;
foreach my $sheetfilename ($spreadsheet->othersheets()) {	foreach my $sheetfilename ($spreadsheet->othersheets()) {
$load_dialog .= ' <option name="'.$sheetfilename.'"';	$load_dialog .= ' <option value="'.$sheetfilename.'"';
if ($filename eq $sheetfilename) {	if ($filename eq $sheetfilename) {
$load_dialog .= ' selected';	$load_dialog .= ' selected';
$default_filename_set = 1;	$default_filename_set = 1;
}	}
$load_dialog .= '>'.$sheetfilename."</option>\n";	$load_dialog .= '>'.$sheetfilename."</option>\n";
}	}
$load_dialog .= "</td><td> </td></tr>\n</table>\n";	$load_dialog .= "</select>\n</td><td> </td></tr>\n</table>\n";
#	#
$result .=<<END;	$result .=<<END;
	<!--
	<fieldset title="File Dialogs" >
	<legend>File Dialogs</legend>
	-->
<!-- load / save dialogs -->	<!-- load / save dialogs -->
<table cellspacing="2">	<table cellspacing="2">
<tr>	<tr>
Line 180 END	Line 188 END
</td>	</td>
</tr>	</tr>
</table>	</table>
	<!--
	</fieldset>
	-->
END	END
return ($result,$message);	return ($result,$message);
}	}
Line 200 sub handler {	Line 211 sub handler {
# HTML Header	# HTML Header
#	#
if ($r->header_only) {	if ($r->header_only) {
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}
Line 214 sub handler {	Line 225 sub handler {
$r->uri.":opa:0:0:Cannot modify spreadsheet";	$r->uri.":opa:0:0:Cannot modify spreadsheet";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
	my $courseid = $ENV{'request.course.id'};
	#
	# Do not allow students to continue if standard or external grading is in
	# effect.
	#
	if ($ENV{'request.role'} =~ /^st\./) {
	if ($ENV{'course.'.$courseid.'.grading'} eq 'standard' \|\|
	$ENV{'course.'.$courseid.'.grading'} eq 'external' ) {
	return HTTP_NOT_ACCEPTABLE;
	}
	}
#	#
# Get query string for limited number of parameters	# Get query string for limited number of parameters
#	#
&Apache::loncommon::get_unprocessed_cgi	&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	# Deal with restricted student permissions
#	#
Line 281 sub handler {	Line 303 sub handler {
#	#
# Open page, try to prevent browser cache.	# Open page, try to prevent browser cache.
#	#
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;

Line 294 sub handler {	Line 316 sub handler {
## Spit out the javascript required for editing	## Spit out the javascript required for editing
##	##
if ($allowed_to_edit) {	if ($allowed_to_edit) {
	my %lt=(
	'ce' => 'Cell',
	'ac' => 'Accept',
	'dc' => 'Discard Changes'
	);
my $extra_javascript =	my $extra_javascript =
&Apache::loncommon::browser_and_searcher_javascript();	&Apache::loncommon::browser_and_searcher_javascript();
$r->print(<<ENDSCRIPT);	$r->print(<<ENDSCRIPT);
<script language="JavaScript">	<script type="text/javascript">
	//<!--
$extra_javascript	$extra_javascript

var editwin;	var editwin;
Line 309 sub handler {	Line 336 sub handler {
// we need to escape them?	// we need to escape them?
edit_text +='<html><head><title>Cell Edit Window</title></head><body>';	edit_text +='<html><head><title>Cell Edit Window</title></head><body>';
edit_text += '<form name="editwinform">';	edit_text += '<form name="editwinform">';
edit_text += '<center><h3>Cell '+cellname+'</h3>';	edit_text += '<center><h3>$lt{'ce'} '+cellname+'</h3>';
edit_text += '<textarea name="newformula" cols="40" rows="6"';	edit_text += '<textarea name="newformula" cols="60" rows="12"';
edit_text += ' wrap="off" >'+cellformula+'</textarea>';	edit_text += ' wrap="off" >'+cellformula+'</textarea>';
edit_text += '</br>';	edit_text += '</br>';
edit_text += '<input type="button" name="accept" value="Accept"';	edit_text += '<input type="button" name="accept" value="$lt{'ac'}"';
edit_text += ' onClick=\\\'javascript:';	edit_text += ' onClick=\\\'javascript:';
edit_text += 'opener.document.sheet.cell.value=';	edit_text += 'opener.document.sheet.cell.value=';
edit_text += '"'+cellname+'";';	edit_text += '"'+cellname+'";';
Line 323 sub handler {	Line 350 sub handler {
edit_text += 'self.close()\\\' />';	edit_text += 'self.close()\\\' />';
edit_text += '      ';	edit_text += '      ';
edit_text += '<input type="button" name="abort" ';	edit_text += '<input type="button" name="abort" ';
edit_text += 'value="Discard Changes"';	edit_text += 'value="$lt{'dc'}"';
edit_text += ' onClick="javascript:self.close()" />';	edit_text += ' onClick="javascript:self.close()" />';
edit_text += '</center></body></html>';	edit_text += '</center></body></html>';

Line 331 sub handler {	Line 358 sub handler {
editwin.close();	editwin.close();
}	}

editwin = window.open($nothing,'CellEditWin','height=200,width=350,scrollbars=no,resizeable=yes,alwaysRaised=yes,dependent=yes',true);	editwin = window.open($nothing,'CellEditWin','height=280,width=480,scrollbars=no,resizable=yes,alwaysRaised=yes,dependent=yes',true);
editwin.document.write(edit_text);	editwin.document.write(edit_text);
}	}
	//-->
</script>	</script>
ENDSCRIPT	ENDSCRIPT
}	}
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb
	({href => $r->uri,
	title => &mt('Spreadsheet'),
	text => &mt('Spreadsheet'),
	faq => 134,
	bug => 'Spreadsheet'});
$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').	$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
	&Apache::lonhtmlcommon::breadcrumbs(undef,&mt('Spreadsheet')).
'<form action="'.$r->uri.'" name="sheet" method="post">');	'<form action="'.$r->uri.'" name="sheet" method="post">');
$r->print(&hiddenfield('sname' ,$ENV{'form.sname'}).	$r->print(&hiddenfield('sname' ,$ENV{'form.sname'}).
&hiddenfield('sdomain',$ENV{'form.sdomain'}).	&hiddenfield('sdomain',$ENV{'form.sdomain'}).
Line 355 ENDSCRIPT	Line 391 ENDSCRIPT
}	}
}	}
##	##
	## Take care of "backdoor" spreadsheet expiration / recalc stuff
	if ($allowed_to_edit && exists($ENV{'form.recalc'})) {
	if (exists($ENV{'form.recalc'})) {
	&Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});
	}
	if ($ENV{'form.recalc'} eq 'ilovewastingtime') {
	&Apache::lonnet::logthis('ilovewastingtime');
	# expire ALL spreadsheets
	&Apache::lonnet::expirespread('','','studentcalc');
	&Apache::lonnet::expirespread('','','assesscalc');
	} elsif ($ENV{'form.recalc'} =~ /^symb:/) {
	# expire for all students on this symb
	my ($symb) = ($ENV{'form.recalc'} =~ /^symb:(.*)$/);
	&Apache::lonnet::logthis('symb = '.$symb);
	&Apache::lonnet::expirespread('','','assesscalc',$symb);
	&Apache::lonnet::expirespread('','','studentcalc');
	} elsif ($ENV{'form.recalc'} =~ /^student:/) {
	# expire all assessment spreadsheets for this user
	my ($sname,$sdom) = ($ENV{'form.recalc'}=~/^student:(.):(.)$/);
	&Apache::lonnet::logthis('student = '.$sname.':'.$sdom);
	if (defined($sname) && defined($sdom)) {
	&Apache::lonnet::expirespread($sname,$sdom,'assesscalc');
	&Apache::lonnet::expirespread($sname,$sdom,'studentcalc');
	}
	}
	}
	##
## Make the spreadsheet	## Make the spreadsheet
&Apache::Spreadsheet::initialize_spreadsheet_package();	&Apache::Spreadsheet::initialize_spreadsheet_package();
my $spreadsheet = undef;	my $spreadsheet = undef;
Line 385 ENDSCRIPT	Line 448 ENDSCRIPT
if ($action_message) {	if ($action_message) {
$action_message .= '<br />';	$action_message .= '<br />';
}	}
$action_message .= 'Made this spreadsheet the default';	$action_message .= &mt('Made this spreadsheet the default');
if ($sheettype eq 'classcalc') {	if ($sheettype eq 'classcalc') {
$action_message .= ' for the course';	$action_message .= ' '.&mt('for the course');
} elsif ($sheettype eq 'studentcalc') {	} elsif ($sheettype eq 'studentcalc') {
$action_message .= ' for all students';	$action_message .= ' '.&mt('for all students');
} elsif ($sheettype eq 'assesscalc') {	} elsif ($sheettype eq 'assesscalc') {
$action_message .= ' for all assessments';	$action_message .= ' '.&mt('for all assessments');
}	}
$action_message .= '.';	$action_message .= '.';
}	}
Line 414 END	Line 477 END
}	}
$r->rflush();	$r->rflush();
#	#
if ($sheettype eq 'classcalc') {	$r->print("<table><tr>");
$r->print('<input type="submit" value="Generate Spreadsheet" /><br />');	$r->print('<td><input type="submit" value="'.
	&mt('Generate Spreadsheet').'" />'.
	'</td>');
	if ($allowed_to_view) {
	$r->print('<td>'.
	&Apache::loncommon::help_open_topic("Spreadsheet_About",
	'Spreadsheet Help').
	'</td>');
	}
	if ($allowed_to_edit) {
	$r->print('<td>'.
	&Apache::loncommon::help_open_topic("Spreadsheet_Editing",
	'Editing Help').
	'</td>');
}	}
	$r->print('</tr></table>');
#	#
# Keep track of the filename	# Keep track of the filename
$r->print(&hiddenfield('filename',$filename));	$r->print(&hiddenfield('filename',$filename));

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.16
changed lines
	Added in v.1.33