loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.221.2.3, 2003/03/19 21:57:59	version 1.224, 2003/01/13 22:18:34
Line 192 sub xmlend {	Line 192 sub xmlend {
my $idx;	my $idx;
for ($idx=1;$idx<=$contrib{'version'};$idx++) {	for ($idx=1;$idx<=$contrib{'version'};$idx++) {
my $hidden=($contrib{'hidden'}=~/\.$idx\./);	my $hidden=($contrib{'hidden'}=~/\.$idx\./);
unless (($hidden) && (!$seeid)) {	my $deleted=($contrib{'deleted'}=~/\.$idx\./);
	unless ((($hidden) && (!$seeid)) \|\| ($deleted)) {
my $message=$contrib{$idx.':message'};	my $message=$contrib{$idx.':message'};
$message=~s/\n/\<br \/\>/g;	$message=~s/\n/\<br \/\>/g;
$message=&Apache::lontexconvert::msgtexconverted($message);	$message=&Apache::lontexconvert::msgtexconverted($message);
Line 226 sub xmlend {	Line 227 sub xmlend {
} else {	} else {
$sender.=' <a href="/adm/feedback?hide='.	$sender.=' <a href="/adm/feedback?hide='.
$symb.':::'.$idx.'">Hide</a>';	$symb.':::'.$idx.'">Hide</a>';
}	}
}	$sender.=' <a href="/adm/feedback?deldisc='.
	$symb.':::'.$idx.'">Delete</a>';
	}
} else {	} else {
if ($screenname) {	if ($screenname) {
$sender='<i>'.$screenname.'</i>';	$sender='<i>'.$screenname.'</i>';
Line 693 sub inner_xmlparse {	Line 696 sub inner_xmlparse {
if ($metamode<1) {	if ($metamode<1) {
my $text=$token->[1];	my $text=$token->[1];
if ($token->[0] eq 'C' && $target eq 'tex') {	if ($token->[0] eq 'C' && $target eq 'tex') {
$text = '';	$text = '%'.$text."\n";
# $text = '%'.$text."\n";
}	}
$result.=$text;	$result.=$text;
}	}