loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.221, 2002/12/13 21:39:19	version 1.222, 2002/12/26 16:40:33
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>';