loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.224, 2006/11/30 04:05:47	version 1.229, 2006/12/06 19:03:37
Line 44 use HTML::LCParser();	Line 44 use HTML::LCParser();
use Apache::lonspeller();	use Apache::lonspeller();
use Apache::longroup;	use Apache::longroup;
use Cwd;	use Cwd;
use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;

sub discussion_open {	sub discussion_open {
Line 2585 sub screen_header {	Line 2584 sub screen_header {
}	}
my ($blockblog) = &blocking_posts('blogs');	my ($blockblog) = &blocking_posts('blogs');
if (!$blockblog) {	if (!$blockblog) {
$discussoptions.= &add_bog_checkbox();	$discussoptions.= &add_blog_checkbox();
}	}
}	}
if ($msgoptions) { $msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" />'.&mt('Sending Messages').'</h2>'.$msgoptions; }	if ($msgoptions) { $msgoptions='<h2><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/feedback.gif').'" />'.&mt('Sending Messages').'</h2>'.$msgoptions; }
Line 2711 sub decide_receiver {	Line 2710 sub decide_receiver {
my %to=();	my %to=();
if ($env{'form.discuss'} eq 'author' \|\|$author) {	if ($env{'form.discuss'} eq 'author' \|\|$author) {
$typestyle.='Submitting as Author Feedback<br />';	$typestyle.='Submitting as Author Feedback<br />';
$feedurl=~/^\/res\/(\w+)\/(\w+)\//;	$feedurl=~ {^/res/($LONCAPA::domain_re)/($LONCAPA::username_re)/};
$to{$2.':'.$1}=1;	$to{$2.':'.$1}=1;
}	}
if ($env{'form.discuss'} eq 'question' \|\|$question) {	if ($env{'form.discuss'} eq 'question' \|\|$question) {