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>'; |