--- loncom/interface/Attic/lonspreadsheet.pm 2002/11/08 20:18:29 1.137
+++ loncom/interface/Attic/lonspreadsheet.pm 2002/11/12 20:14:51 1.138
@@ -1,5 +1,5 @@
#
-# $Id: lonspreadsheet.pm,v 1.137 2002/11/08 20:18:29 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.138 2002/11/12 20:14:51 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1190,6 +1190,7 @@ sub html_editable_cell {
if ($value =~ /^\s*$/ ) {
$value = '#';
}
+ $formula =~ s/\n/\\n/gs;
$result .= ''.$value.'';
return $result;
@@ -2828,17 +2829,45 @@ sub handler {
# Header....
#
$r->print('
LON-CAPA Spreadsheet');
+ my $nothing = "''";
+ if ($ENV{'browser.type'} eq 'explorer') {
+ $nothing = "'javascript:void(0);'";
+ }
+
if ($ENV{'request.role'} !~ /^st\./) {
$r->print(<
- function celledit(cn,cf) {
- var cnf=prompt(cn,cf);
- if (cnf!=null) {
- document.sheet.unewfield.value=cn;
- document.sheet.unewformula.value=cnf;
- document.sheet.submit();
+ var editwin;
+
+ function celledit(cellname,cellformula) {
+ var edit_text = '';
+ edit_text +='Cell Edit Window';
+ edit_text += '