loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.101 and 1.103

-version 1.101, 2001/07/12 15:26:03
+version 1.103, 2001/07/27 00:18:59
  Line 92  sub xmlbegin {
  }
  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() {
- Line 513  sub init_safespace {
+ Line 537  sub init_safespace {
    $safeeval->permit(":base_math");
    $safeeval->permit("sort");
    $safeeval->deny(":base_io");
+   $safehole->wrap(\&Apache::scripttag::xmlparse,$safeeval,'&xmlparse');
    $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');
    $safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin');

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

Removed from v.1.101
changed lines
	Added in v.1.103