version 1.109, 2001/08/10 15:49:46
|
version 1.110, 2001/08/10 16:22:23
|
Line 113 sub xmlend {
|
Line 113 sub xmlend {
|
'<address><hr /><h2>Course Discussion of Resource</h2>'; |
'<address><hr /><h2>Course Discussion of Resource</h2>'; |
my $idx; |
my $idx; |
for ($idx=1;$idx<=$contrib{'version'};$idx++) { |
for ($idx=1;$idx<=$contrib{'version'};$idx++) { |
my $message=$contrib{$idx.':message'}; |
my $hidden=($contrib{'hidden'}=~/\.$idx\./); |
$message=~s/\n/\<br \/\>/g; |
unless (($hidden) && (!$seeid)) { |
|
my $message=$contrib{$idx.':message'}; |
|
$message=~s/\n/\<br \/\>/g; |
|
if ($message) { |
|
if ($hidden) { |
|
$message='<font color="#888888">'.$message.'</font>'; |
|
} |
my $sender='Anonymous'; |
my $sender='Anonymous'; |
if ((!$contrib{$idx.':anonymous'}) || ($seeid)) { |
if ((!$contrib{$idx.':anonymous'}) || ($seeid)) { |
$sender=$contrib{$idx.':sendername'}.' at '. |
$sender=$contrib{$idx.':sendername'}.' at '. |
$contrib{$idx.':senderdomain'}; |
$contrib{$idx.':senderdomain'}; |
if ($contrib{$idx.':anonymous'}) { |
if ($contrib{$idx.':anonymous'}) { |
$sender.=' (anonymous)'; |
$sender.=' (anonymous)'; |
|
} |
|
if ($seeid) { |
|
if ($hidden) { |
|
$sender.=' <a href="/adm/feedback?unhide='. |
|
$symb.':::'.$idx.'">Make Visible</a>'; |
|
} else { |
|
$sender.=' <a href="/adm/feedback?hide='. |
|
$symb.':::'.$idx.'">Hide</a>'; |
|
} |
} |
} |
} |
} |
$discussion.='<p><b>'.$sender.'</b> ('. |
$discussion.='<p><b>'.$sender.'</b> ('. |
localtime($contrib{$idx.':timestamp'}). |
localtime($contrib{$idx.':timestamp'}). |
'):<blockquote>'.$message. |
'):<blockquote>'.$message. |
'</blockquote></p>'; |
'</blockquote></p>'; |
|
} |
|
} |
} |
} |
$discussion.='</address>'; |
$discussion.='</address>'; |
} |
} |