--- loncom/interface/lonfeedback.pm	2006/11/30 04:05:47	1.224
+++ loncom/interface/lonfeedback.pm	2006/12/06 19:03:37	1.229
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.224 2006/11/30 04:05:47 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.229 2006/12/06 19:03:37 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 {
@@ -2585,7 +2584,7 @@ sub screen_header {
         }
         my ($blockblog) = &blocking_posts('blogs');
         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; }
@@ -2711,7 +2710,7 @@ sub decide_receiver {
   my %to=();
   if ($env{'form.discuss'} eq 'author' ||$author) {
     $typestyle.='Submitting as Author Feedback<br />';
-    $feedurl=~/^\/res\/(\w+)\/(\w+)\//;
+    $feedurl=~ {^/res/($LONCAPA::domain_re)/($LONCAPA::username_re)/};
     $to{$2.':'.$1}=1;
   }
   if ($env{'form.discuss'} eq 'question' ||$question) {