version 1.1, 2000/11/15 10:37:27
|
version 1.2, 2000/11/27 12:13:10
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Spreadsheet/Grades Display Handler |
# Spreadsheet/Grades Display Handler |
# |
# |
# 11/11,11/15 Gerd Kortemeyer |
# 11/11,11/15,11/27 Gerd Kortemeyer |
|
|
package Apache::lonspreadsheet; |
package Apache::lonspreadsheet; |
|
|
Line 252 sub handler {
|
Line 252 sub handler {
|
%t=(); |
%t=(); |
%f=(); |
%f=(); |
my $safeeval = new Safe; |
my $safeeval = new Safe; |
|
my $safehole = new Safe::Hole; |
$safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
$safeeval->permit("sort"); |
$safeeval->permit("sort"); |
$safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
# $safeeval->share_from('Apache::lonnet',['&EXT']); |
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
$safeeval->share('%v','%t','%f'); |
$safeeval->share('%v','%t','%f'); |
&deffunc($safeeval); |
&deffunc($safeeval); |
$f{'A3'}=5; |
$f{'A3'}=5; |