loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.225, 2006/11/30 08:51:20	version 1.226, 2006/12/05 02:55:52
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 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/($LONAPA::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) {