--- loncom/interface/lonfeedback.pm 2006/12/05 02:55:52 1.226 +++ loncom/interface/lonfeedback.pm 2006/12/06 11:50:51 1.227 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.226 2006/12/05 02:55:52 albertel Exp $ +# $Id: lonfeedback.pm,v 1.227 2006/12/06 11:50:51 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2710,7 +2710,7 @@ sub decide_receiver { my %to=(); if ($env{'form.discuss'} eq 'author' ||$author) { $typestyle.='Submitting as Author Feedback
'; - $feedurl=~{^/res/($LONAPA::domain_re)/($LONCAPA::username_re)/}; + $feedurl=~ s/^\/res\/($LONAPA::domain_re)/($LONCAPA::username_re)/; $to{$2.':'.$1}=1; } if ($env{'form.discuss'} eq 'question' ||$question) {