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

[www]

www		Sat Jan  7 20:01:16 2012 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  Turn Feedback link into modal window
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.327 loncom/interface/lonfeedback.pm:1.328
--- loncom/interface/lonfeedback.pm:1.327	Sat Jan  7 03:01:11 2012
+++ loncom/interface/lonfeedback.pm	Sat Jan  7 20:01:16 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.327 2012/01/07 03:01:11 www Exp $
+# $Id: lonfeedback.pm,v 1.328 2012/01/07 20:01:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -787,10 +787,12 @@
 sub send_message_link {
     my ($ressymb) = @_;
     my $output = '<span class="LC_message_link">'.
-                 '  <a href="/adm/feedback?sendmessageonly=1&symb='.
-                 &escape($ressymb).'"><img alt="" class="LC_noBorder" src="'.
-                 &Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').
-                 '" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span></a></span>';
+                 &discussion_link($ressymb,
+                    '<img alt="" class="LC_noBorder" src="'.
+                    &Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').
+                    '" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span>',
+                    'sendmessageonly').
+                 '</span>';
     return $output;
 }
 
@@ -4118,6 +4120,8 @@
 	  $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0];
       } elsif ($env{'form.origpage'}) {
 	  $symb=""; 
+      } elsif ($env{'form.sendmessageonly'}) {
+          $symb=(split(/\:\:\:/,$env{'form.sendmessageonly'}))[0];
       } else {
 	  $symb=&Apache::lonnet::symbread($feedurl);
       }