version 1.108, 2001/08/09 20:32:36
|
version 1.109, 2001/08/10 15:49:46
|
Line 13
|
Line 13
|
# 6/12,6/13 H. K. Ng |
# 6/12,6/13 H. K. Ng |
# 6/16 Gerd Kortemeyer |
# 6/16 Gerd Kortemeyer |
# 7/27 H. K. Ng |
# 7/27 H. K. Ng |
# 8/7,8/9 Gerd Kortemeyer |
# 8/7,8/9,8/10 Gerd Kortemeyer |
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
Line 97 sub xmlbegin {
|
Line 97 sub xmlbegin {
|
sub xmlend { |
sub xmlend { |
my $discussion=''; |
my $discussion=''; |
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
|
my $crs='/'.$ENV{'request.course.id'}; |
|
if ($ENV{'request.course.sec'}) { |
|
$crs.='_'.$ENV{'request.course.sec'}; |
|
} |
|
$crs=~s/\_/\//g; |
|
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
my $symb=&Apache::lonnet::symbread(); |
my $symb=&Apache::lonnet::symbread(); |
if ($symb) { |
if ($symb) { |
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
Line 109 sub xmlend {
|
Line 115 sub xmlend {
|
for ($idx=1;$idx<=$contrib{'version'};$idx++) { |
for ($idx=1;$idx<=$contrib{'version'};$idx++) { |
my $message=$contrib{$idx.':message'}; |
my $message=$contrib{$idx.':message'}; |
$message=~s/\n/\<br \/\>/g; |
$message=~s/\n/\<br \/\>/g; |
$discussion.='<p><b>'.$contrib{$idx.':sendername'}.' at '. |
my $sender='Anonymous'; |
$contrib{$idx.':senderdomain'}.'</b> ('. |
if ((!$contrib{$idx.':anonymous'}) || ($seeid)) { |
|
$sender=$contrib{$idx.':sendername'}.' at '. |
|
$contrib{$idx.':senderdomain'}; |
|
if ($contrib{$idx.':anonymous'}) { |
|
$sender.=' (anonymous)'; |
|
} |
|
} |
|
$discussion.='<p><b>'.$sender.'</b> ('. |
localtime($contrib{$idx.':timestamp'}). |
localtime($contrib{$idx.':timestamp'}). |
'):<blockquote>'.$message. |
'):<blockquote>'.$message. |
'</blockquote></p>'; |
'</blockquote></p>'; |