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

raeburn raeburn at source.lon-capa.org
Thu Mar 15 17:33:28 EDT 2012


raeburn		Thu Mar 15 21:33:28 2012 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - Modifications to changes in rev. 1.340.
    - Indentation.
    - Move perl variables outside single quotes.  
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.342 loncom/interface/lonfeedback.pm:1.343
--- loncom/interface/lonfeedback.pm:1.342	Thu Mar 15 15:02:59 2012
+++ loncom/interface/lonfeedback.pm	Thu Mar 15 21:33:27 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.342 2012/03/15 15:02:59 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.343 2012/03/15 21:33:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1931,15 +1931,17 @@
 <p>
 END
 
-$r->print(&Apache::lonhtmlcommon::start_pick_box());
-$r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));
-$r->print('<input type="text" name="subject" size="30" value="'."$subject".'" /></p>');
-$r->print(&Apache::lonhtmlcommon::row_closure());
-$r->print(&Apache::lonhtmlcommon::row_title(&mt('Message')));
-$r->print('<textarea name="comment" id="comment" cols="60" rows="10" $textareaclass>'."$comment".
-'</textarea>');
-$r->print(&Apache::lonhtmlcommon::row_closure(1));
-$r->print(&Apache::lonhtmlcommon::end_pick_box());
+    $r->print(&Apache::lonhtmlcommon::start_pick_box());
+    $r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject')));
+    $r->print('<input type="text" name="subject" size="30" value="'.
+              $subject.'" /></p>');
+    $r->print(&Apache::lonhtmlcommon::row_closure());
+    $r->print(&Apache::lonhtmlcommon::row_title(&mt('Message')));
+    $r->print('<textarea name="comment" id="comment" cols="60" rows="10" '.
+              $textareaclass.'>'.$comment.
+              '</textarea>');
+    $r->print(&Apache::lonhtmlcommon::row_closure(1));
+    $r->print(&Apache::lonhtmlcommon::end_pick_box());
 
     if ( ($env{'form.editdisc'}) || ($env{'form.replydisc'}) ) {
         if ($env{'form.origpage'}) {




More information about the LON-CAPA-cvs mailing list