version 1.63, 2003/10/15 20:13:31
|
version 1.64, 2003/10/21 00:22:23
|
Line 69 sub list_discussion {
|
Line 69 sub list_discussion {
|
unless ($symb) { return ''; } |
unless ($symb) { return ''; } |
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
my $viewgrades=&Apache::lonnet::allowed('vgr',$crs); |
my $viewgrades=&Apache::lonnet::allowed('vgr',$crs); |
my $discussion=''; |
my %discussionitems=(); |
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
if ($contrib{'version'}) { |
if ($contrib{'version'}) { |
unless ($discussiononly) { |
for (my $id=1;$id<=$contrib{'version'};$id++) { |
$discussion.= |
my $idx=$id; |
'<address><hr />'; |
|
} |
|
my $idx; |
|
for ($idx=1;$idx<=$contrib{'version'};$idx++) { |
|
my $hidden=($contrib{'hidden'}=~/\.$idx\./); |
my $hidden=($contrib{'hidden'}=~/\.$idx\./); |
my $deleted=($contrib{'deleted'}=~/\.$idx\./); |
my $deleted=($contrib{'deleted'}=~/\.$idx\./); |
unless ((($hidden) && (!$seeid)) || ($deleted)) { |
unless ((($hidden) && (!$seeid)) || ($deleted)) { |
Line 128 sub list_discussion {
|
Line 124 sub list_discussion {
|
$sender.=' <a href="/adm/feedback?deldisc='. |
$sender.=' <a href="/adm/feedback?deldisc='. |
$symb.':::'.$idx.'">'.&mt('Delete').'</a>'; |
$symb.':::'.$idx.'">'.&mt('Delete').'</a>'; |
} |
} |
|
if (&Apache::lonnet::allowed('pch', |
|
$ENV{'request.course.id'}. |
|
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) { |
|
$sender.=' <a href="/adm/feedback?replydisc='. |
|
$symb.':::'.$idx.'">'.&mt('Reply').'</a>'; |
|
} |
} else { |
} else { |
if ($screenname) { |
if ($screenname) { |
$sender='<i>'.$screenname.'</i>'; |
$sender='<i>'.$screenname.'</i>'; |
Line 138 sub list_discussion {
|
Line 140 sub list_discussion {
|
$vgrlink=&Apache::loncommon::submlink('Submissions', |
$vgrlink=&Apache::loncommon::submlink('Submissions', |
$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$symb); |
$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'},$symb); |
} |
} |
$discussion.='<p><b>'.$sender.'</b> '.$vgrlink.' ('. |
$discussionitems{$idx}='<p><b>'.$sender.'</b> '.$vgrlink.' ('. |
localtime($contrib{$idx.':timestamp'}). |
localtime($contrib{$idx.':timestamp'}). |
'):<blockquote>'.$message. |
'):<blockquote>'.$message. |
'</blockquote></p>'; |
'</blockquote></p>'; |
} |
} |
} |
} |
} |
} |
unless ($discussiononly) { |
} |
$discussion.='</address>'; |
my $discussion='<hr />'; |
} |
foreach (sort { $a <=> $b } keys %discussionitems) { |
|
$discussion.=$discussionitems{$_}; |
} |
} |
if ($discussiononly) { |
if ($discussiononly) { |
$discussion.=(<<ENDDISCUSS); |
$discussion.=(<<ENDDISCUSS); |