[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm

foxr lon-capa-cvs@mail.lon-capa.org
Wed, 06 Dec 2006 11:50:52 -0000


foxr		Wed Dec  6 06:50:52 2006 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  My best guess about how to fix the syntax errors in this file.
  
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.226 loncom/interface/lonfeedback.pm:1.227
--- loncom/interface/lonfeedback.pm:1.226	Mon Dec  4 21:55:52 2006
+++ loncom/interface/lonfeedback.pm	Wed Dec  6 06:50:51 2006
@@ -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 @@
   my %to=();
   if ($env{'form.discuss'} eq 'author' ||$author) {
     $typestyle.='Submitting as Author Feedback<br />';
-    $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) {