loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.274, 2003/09/08 19:00:09	version 1.275, 2003/09/11 22:37:54
Line 184 sub xmlend {	Line 184 sub xmlend {
}	}
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
my $seeid=&Apache::lonnet::allowed('rin',$crs);	my $seeid=&Apache::lonnet::allowed('rin',$crs);
	my $viewgrades=&Apache::lonnet::allowed('vgr',$crs);
unless ($symb) {	unless ($symb) {
$symb=&Apache::lonnet::symbread();	$symb=&Apache::lonnet::symbread();
}	}
Line 250 sub xmlend {	Line 251 sub xmlend {
$sender='<i>'.$screenname.'</i>';	$sender='<i>'.$screenname.'</i>';
}	}
}	}
$discussion.='<p><b>'.$sender.'</b> ('.	my $vgrlink;
	if ($viewgrades) {
	$vgrlink=&Apache::loncommon::submlink('Submissions',$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$symb);
	}
	$discussion.='<p><b>'.$sender.'</b> '.$vgrlink.' ('.
localtime($contrib{$idx.':timestamp'}).	localtime($contrib{$idx.':timestamp'}).
'):<blockquote>'.$message.	'):<blockquote>'.$message.
'</blockquote></p>';	'</blockquote></p>';