--- loncom/interface/lonfeedback.pm 2006/04/10 19:59:53 1.189
+++ loncom/interface/lonfeedback.pm 2006/04/10 21:55:48 1.190
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.189 2006/04/10 19:59:53 albertel Exp $
+# $Id: lonfeedback.pm,v 1.190 2006/04/10 21:55:48 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -744,17 +744,22 @@ ENDDISCUSS
}
}
} else {
+ $discussion.='
';
if (&discussion_open($status) &&
&Apache::lonnet::allowed('pch',
$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
if ($outputtarget ne 'tex') {
- $discussion.='';
- }
+ &mt('Post Discussion').' ';
+ }
}
+ $discussion.=''.
+ &mt('Send Message').' |
';
}
return $discussion;
}
@@ -2284,7 +2289,7 @@ sub screen_header {
'';
}
}
- if ($env{'request.course.id'}) {
+ if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) {
if (&discussion_open(undef,$symb) &&
&Apache::lonnet::allowed('pch',
$env{'request.course.id'}.
@@ -2975,7 +2980,7 @@ sub handler {
# --------------------------- Get query string for limited number of parameters
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export']);
+ ['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export','sendmessageonly']);
if ($env{'form.editdisc'}) {
if (!(&editing_allowed())) {
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];