version 1.276, 2003/09/14 23:57:18
|
version 1.277, 2003/09/15 13:38:19
|
Line 175 sub xmlbegin {
|
Line 175 sub xmlbegin {
|
} |
} |
|
|
sub xmlend { |
sub xmlend { |
my ($discussiononly,$symb)=@_; |
return &Apache::lonfeedback::list_discussion().'</html>'; |
my $discussion=''; |
|
if ($ENV{'request.course.id'}) { |
|
my $crs='/'.$ENV{'request.course.id'}; |
|
if ($ENV{'request.course.sec'}) { |
|
$crs.='_'.$ENV{'request.course.sec'}; |
|
} |
|
$crs=~s/\_/\//g; |
|
$discussion=&Apache::lonfeedback::list_discussion |
|
($crs,$symb,$discussiononly); |
|
} |
|
return $discussion.($discussiononly?'':'</html>'); |
|
} |
} |
|
|
sub tokeninputfield { |
sub tokeninputfield { |