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

[raeburn]

raeburn		Wed Mar 18 02:47:21 2009 EDT

  Modified files:              (Branch: version_2_8_X)
    /loncom/interface	lonfeedback.pm 
  Log:
  - Backport 1.263
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.255.2.4 loncom/interface/lonfeedback.pm:1.255.2.5
--- loncom/interface/lonfeedback.pm:1.255.2.4	Wed Mar 18 02:44:33 2009
+++ loncom/interface/lonfeedback.pm	Wed Mar 18 02:47:21 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.255.2.4 2009/03/18 02:44:33 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.255.2.5 2009/03/18 02:47:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2889,9 +2889,18 @@
 					
     my $end_page = &Apache::loncommon::end_page();
 
-    $r->print($start_page.'<table border="2"><tr><td>'.
-	      '<b>'.&mt('Subject').':</b> '.$subject.'<br /><br />'.
-	      $message.'</td></tr></table>'.$end_page);
+    $r->print($start_page
+             .'<h1>'.&mt('Preview').'</h1>'
+             .&Apache::lonhtmlcommon::start_pick_box()
+             .&Apache::lonhtmlcommon::row_title(&mt('Subject'))
+             .$subject
+             .&Apache::lonhtmlcommon::row_closure()
+             .&Apache::lonhtmlcommon::row_title(&mt('Message'))
+             .$message
+             .&Apache::lonhtmlcommon::row_closure(1)
+             .&Apache::lonhtmlcommon::end_pick_box()
+             .$end_page
+    );
 }