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.22 and 1.24

version 1.22, 2003/09/04 15:17:41	version 1.24, 2003/09/16 15:41:16
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();
Line 103 sub file_dialogs {	Line 105 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 168 END	Line 169 END
$load_dialog .= "</select>\n</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 185 END
</td>	</td>
</tr>	</tr>
</table>	</table>
	<!--
	</fieldset>
	-->
END	END
return ($result,$message);	return ($result,$message);
}	}

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

Removed from v.1.22
changed lines
	Added in v.1.24