version 1.101, 2001/07/12 15:26:03
|
version 1.103, 2001/07/27 00:18:59
|
Line 92 sub xmlbegin {
|
Line 92 sub xmlbegin {
|
} |
} |
|
|
sub xmlend { |
sub xmlend { |
return '</html>'; |
my $discussion=''; |
|
if ($ENV{'request.course.id'}) { |
|
my $symb=&Apache::lonnet::symbread(); |
|
if ($symb) { |
|
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
if ($contrib{'version'}) { |
|
$discussion.= |
|
'<address><hr /><h2>Course Discussion of Resource</h2>'; |
|
my $idx; |
|
for ($idx=1;$idx<=$contrib{'version'};$idx++) { |
|
my $message=$contrib{$idx.':message'}; |
|
$message=~s/\n/\<br \/\>/g; |
|
$discussion.='<p><b>'.$contrib{$idx.':sendername'}.' at '. |
|
$contrib{$idx.':senderdomain'}.'</b> ('. |
|
localtime($contrib{$idx.':timestamp'}). |
|
'):<blockquote>'.$message. |
|
'</blockquote></p>'; |
|
} |
|
$discussion.='</address>'; |
|
} |
|
} |
|
} |
|
return $discussion.'</html>'; |
} |
} |
|
|
sub fontsettings() { |
sub fontsettings() { |
Line 513 sub init_safespace {
|
Line 537 sub init_safespace {
|
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
$safeeval->permit("sort"); |
$safeeval->permit("sort"); |
$safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
|
$safehole->wrap(\&Apache::scripttag::xmlparse,$safeeval,'&xmlparse'); |
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
|
|
$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin'); |
$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin'); |