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