--- loncom/interface/lonfeedback.pm 2003/10/15 20:13:31 1.63 +++ loncom/interface/lonfeedback.pm 2003/10/21 00:22:23 1.64 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.63 2003/10/15 20:13:31 albertel Exp $ +# $Id: lonfeedback.pm,v 1.64 2003/10/21 00:22:23 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -69,17 +69,13 @@ sub list_discussion { unless ($symb) { return ''; } my $seeid=&Apache::lonnet::allowed('rin',$crs); my $viewgrades=&Apache::lonnet::allowed('vgr',$crs); - my $discussion=''; + my %discussionitems=(); my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); if ($contrib{'version'}) { - unless ($discussiononly) { - $discussion.= - '
'.$sender.' '.$vgrlink.' ('. + $discussionitems{$idx}='
'.$sender.' '.$vgrlink.' ('. localtime($contrib{$idx.':timestamp'}). '):
'.$message. ''; } } } - unless ($discussiononly) { - $discussion.=''; - } + } + my $discussion='