--- loncom/xml/lonxml.pm 2003/03/19 21:57:59 1.221.2.3
+++ loncom/xml/lonxml.pm 2003/01/13 22:18:34 1.224
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# XML Parser Module
#
-# $Id: lonxml.pm,v 1.221.2.3 2003/03/19 21:57:59 albertel Exp $
+# $Id: lonxml.pm,v 1.224 2003/01/13 22:18:34 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -192,7 +192,8 @@ sub xmlend {
my $idx;
for ($idx=1;$idx<=$contrib{'version'};$idx++) {
my $hidden=($contrib{'hidden'}=~/\.$idx\./);
- unless (($hidden) && (!$seeid)) {
+ my $deleted=($contrib{'deleted'}=~/\.$idx\./);
+ unless ((($hidden) && (!$seeid)) || ($deleted)) {
my $message=$contrib{$idx.':message'};
$message=~s/\n/\
/g;
$message=&Apache::lontexconvert::msgtexconverted($message);
@@ -226,8 +227,10 @@ sub xmlend {
} else {
$sender.=' Hide';
- }
- }
+ }
+ $sender.=' Delete';
+ }
} else {
if ($screenname) {
$sender=''.$screenname.'';
@@ -693,8 +696,7 @@ sub inner_xmlparse {
if ($metamode<1) {
my $text=$token->[1];
if ($token->[0] eq 'C' && $target eq 'tex') {
- $text = '';
-# $text = '%'.$text."\n";
+ $text = '%'.$text."\n";
}
$result.=$text;
}