--- loncom/interface/lonfeedback.pm 2006/12/08 22:35:56 1.233
+++ loncom/interface/lonfeedback.pm 2006/12/09 16:07:34 1.234
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.233 2006/12/08 22:35:56 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.234 2006/12/09 16:07:34 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -102,10 +102,11 @@ sub list_discussion {
my ($blocked,$blocktext) = &blocking_posts('boards',1);
if ($blocked) {
+ &Apache::lonenc::check_encrypt(\$ressymb);
if ($mode ne 'board') {
- &Apache::lonenc::check_encrypt(\$ressymb);
- return $blocktext.'
'.&send_message_link($ressymb);
+ $blocktext.='
'.&send_message_link($ressymb);
}
+ return $blocktext;
}
my @bgcols = ("#cccccc","#eeeeee");
@@ -833,7 +834,7 @@ sub blocking_posts {
if ($showstatus) {
my $showstart = &Apache::lonlocal::locallocaltime($startblock);
my $showend = &Apache::lonlocal::locallocaltime($endblock);
- $output = &mt('Discussion postings will not be viewable for resources in this course between [_1] and [_2] because communication is being blocked.',$showstart, $showend).'
'.
+ $output = '
'.&mt('Discussion postings will not be viewable for resources in this course between [_1] and [_2] because communication is being blocked.',$showstart, $showend).'
'.
&Apache::loncommon::build_block_table($startblock,$endblock,
\%setters);
}
@@ -2600,15 +2601,12 @@ sub screen_header {
&Apache::lonnet::allowed('pch',
$env{'request.course.id'}.
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
- my ($blocked) = &blocking_posts('boards');
- if (!$blocked) {
- $discussoptions=' '.
+ ''.&mt('Change Screenname').'';
}
my ($blockblog) = &blocking_posts('blogs');
if (!$blockblog) {
@@ -3792,6 +3790,13 @@ ENDREDIR
&Apache::lonenc::check_encrypt(\$feedurl);
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
+ if (($env{'form.replydisc'}) || ($env{'form.editdisc'})) {
+ my ($blocked,$blocktext) = &blocking_posts('boards',1);
+ if ($blocked) {
+ $r->print(&blocked_reply_or_edit($blocktext));
+ return OK;
+ }
+ }
my $options=&screen_header($feedurl,$symb);
if ($options) {
&mail_screen($r,$feedurl,$options);
@@ -3883,6 +3888,15 @@ ENDREDIR
&redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'},undef,undef,undef,undef,undef,undef,$group);
}
return OK;
+}
+
+sub blocked_reply_or_edit {
+ my ($blocktext) = @_;
+ return
+ &Apache::loncommon::start_page('Resource Feedback and Discussion').
+ $blocktext.'
'.
+ &mt('Back to previous page').
+ &Apache::loncommon::end_page();
}
sub wrap_symb {