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.9 and 1.11

version 1.9, 2003/06/16 13:51:46	version 1.11, 2003/06/18 19:44:22
Line 93 sub file_dialogs {	Line 93 sub file_dialogs {
my $bgcolor = "#FFFFFF";	my $bgcolor = "#FFFFFF";
my $sheettype = $spreadsheet->{'type'};	my $sheettype = $spreadsheet->{'type'};
my $result = '';	my $result = '';
	my $message = '';
##	##
## Deal with saving the spreadsheet	## Deal with saving the spreadsheet
if (exists($ENV{'form.save'}) &&	if ((exists($ENV{'form.save'}) \|\| exists($ENV{'form.makedefault'})) &&
exists($ENV{'form.savefilename'})) {	exists($ENV{'form.savefilename'})) {
$spreadsheet->filename($ENV{'form.savefilename'});	$spreadsheet->filename($ENV{'form.savefilename'});
my $save_status = $spreadsheet->save();	my $save_status = $spreadsheet->save();
if ($save_status ne 'ok') {	if ($save_status ne 'ok') {
$result .= "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;	return $result;
} else {	} else {
$result .= "Spreadsheet saved as ".$ENV{'form.savefilename'};	$message .= "Spreadsheet saved as ".$ENV{'form.savefilename'};
}	}
} elsif (exists($ENV{'form.newformula'}) &&	} elsif (exists($ENV{'form.newformula'}) &&
exists($ENV{'form.cell'}) &&	exists($ENV{'form.cell'}) &&
Line 116 sub file_dialogs {	Line 117 sub file_dialogs {
$spreadsheet->save_tmp();	$spreadsheet->save_tmp();
# output that we are dealing with a temporary file	# output that we are dealing with a temporary file
$result .=&hiddenfield('workcopy',$sheettype);	$result .=&hiddenfield('workcopy',$sheettype);
$result .='<pre>'.$ENV{'form.cell'}.' = '.	if ($ENV{'form.newformula'} !~ /^\s*$/) {
$ENV{'form.newformula'}."</pre>\n";	$message .='<table><tr>'.
	'<td valign="top"><pre>Cell '.$ENV{'form.cell'}.' = </pre></td>'.
	'<td><pre>'.$ENV{'form.newformula'}."</pre></td></tr></table>\n";
	} else {
	$message .= 'Deleted contents of cell '.$ENV{'form.cell'}.'.';
	}
}	}
##	##
## Editing code	## Editing code
Line 126 sub file_dialogs {	Line 132 sub file_dialogs {
##	##
## Create the save and load dialogs	## Create the save and load dialogs
my $filename = $spreadsheet->filename();	my $filename = $spreadsheet->filename();
$filename = 'Default' if ($filename =~ /^default\.$sheettype/i);	my $truefilename = $filename;
$filename =~ s/_$sheettype$//;	if ($spreadsheet->is_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="Save as" /> '.
'<input type="text" name="savefilename" size="30" value="'.	'<input type="text" name="savefilename" size="30" value="'.
$filename.'" />'.	$truefilename.'" />'.
'</nobr>';	'</nobr>';
my $makedefault_dialog = '<input type="submit" name="makedefault" '.	my $makedefault_dialog = '<input type="submit" name="makedefault" '.
'value="Make This Sheet the Default"/>';	'value="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')\">Select Spreadsheet File</a>";
Line 142 sub file_dialogs {	Line 150 sub file_dialogs {
<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="25" value="$filename" />	<input type="text" name="loadfilename" size="20" value="$filename" />
$link</nobr>	$link</nobr>
</td></tr>	</td></tr>
<tr><td> </td><td>	<tr><td> </td><td>
Line 150 sub file_dialogs {	Line 158 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()) {
$sheetfilename =~ s/_$sheettype$//;
$load_dialog .= ' <option name="'.$sheetfilename.'"';	$load_dialog .= ' <option name="'.$sheetfilename.'"';
if ($filename eq $sheetfilename) {	if ($filename eq $sheetfilename) {
$load_dialog .= ' selected';	$load_dialog .= ' selected';
Line 158 END	Line 165 END
}	}
$load_dialog .= '>'.$sheetfilename."</option>\n";	$load_dialog .= '>'.$sheetfilename."</option>\n";
}	}
if ($default_filename_set) {
$load_dialog .= '<option name="Default">Default</option>'."\n";
} else {
$load_dialog .= '<option name="Default" selected >Default</option>'.
"\n";
}
$load_dialog .= "</td><td> </td></tr>\n</table>\n";	$load_dialog .= "</td><td> </td></tr>\n</table>\n";
#	#
$result .=<<END;	$result .=<<END;
Line 180 END	Line 181 END
</tr>	</tr>
</table>	</table>
END	END
return $result;	return ($result,$message);
}	}

sub handler {	sub handler {
Line 354 ENDSCRIPT	Line 355 ENDSCRIPT
$spreadsheet->initialize();	$spreadsheet->initialize();
#	#
# Output selector	# Output selector
$r->print('<input type="submit" value="Update Display" /><br />');
##	##
## Editing/loading/saving	## Editing/loading/saving
if ($allowed_to_edit) {	if ($allowed_to_edit) {
	my ($html,$action_message) = &file_dialogs($spreadsheet);
	if ($ENV{'form.makedefault'}) {
	$spreadsheet->make_default();
	if ($action_message) {
	$action_message .= '<br />';
	}
	$action_message .= 'Made this spreadsheet the default';
	if ($sheettype eq 'classcalc') {
	$action_message .= ' for the course';
	} elsif ($sheettype eq 'studentcalc') {
	$action_message .= ' for all students';
	} elsif ($sheettype eq 'assesscalc') {
	$action_message .= ' for all assessments';
	}
	$action_message .= '.';
	}
$r->print('<table><tr><td>'.$spreadsheet->html_header().'</td>'.	$r->print('<table><tr><td>'.$spreadsheet->html_header().'</td>'.
'<td valign="bottom">'.	'<td valign="bottom">'.$html."</td></tr></table>\n");
&file_dialogs($spreadsheet)."</td></tr></table>\n");	$r->print(<<END);
	<table>
	<tr><td valign="top"><b>Last Action:</b></td>
	<td> </td>
	<td>$action_message</td>
	</tr>
	</table>
	END
$r->rflush();	$r->rflush();
} else {	} else {
$r->print('<table><tr><td>'.$spreadsheet->html_header().	$r->print('<table><tr><td>'.$spreadsheet->html_header().
"</td></tr></table>\n");	"</td></tr></table>\n");
}	}
	$r->rflush();
	#
	if (! exists($ENV{'form.not_first_run'}) && $sheettype eq 'classcalc') {
	$r->print('<input type="submit" value="Generate Spreadsheet" /><br />');
	}
#	#
# Keep track of the filename	# Keep track of the filename
$r->print(&hiddenfield('filename',$filename));	$r->print(&hiddenfield('filename',$filename));
Line 379 ENDSCRIPT	Line 407 ENDSCRIPT
$r->print($spreadsheet->parent_link());	$r->print($spreadsheet->parent_link());
}	}
$spreadsheet->display($r);	$spreadsheet->display($r);
} else {
$r->print("<h2>Make your selections and bonk the 'update display' button</h2>");
}	}
$r->print('</form></body></html>');	$r->print('</form></body></html>');
return OK;	return OK;

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

Removed from v.1.9
changed lines
	Added in v.1.11