--- loncom/interface/lonfeedback.pm 2006/11/30 08:51:20 1.225 +++ loncom/interface/lonfeedback.pm 2006/12/05 02:55:52 1.226 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.225 2006/11/30 08:51:20 albertel Exp $ +# $Id: lonfeedback.pm,v 1.226 2006/12/05 02:55:52 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,7 +44,6 @@ use HTML::LCParser(); use Apache::lonspeller(); use Apache::longroup; use Cwd; -use lib '/home/httpd/lib/perl/'; use LONCAPA; sub discussion_open { @@ -2711,7 +2710,7 @@ sub decide_receiver { my %to=(); if ($env{'form.discuss'} eq 'author' ||$author) { $typestyle.='Submitting as Author Feedback
'; - $feedurl=~/^\/res\/(\w+)\/(\w+)\//; + $feedurl=~{^/res/($LONAPA::domain_re)/($LONCAPA::username_re)/}; $to{$2.':'.$1}=1; } if ($env{'form.discuss'} eq 'question' ||$question) {