loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.102, 2001/07/12 15:53:44
+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() {