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

[bisitz]

bisitz		Fri Jan 23 13:29:15 2009 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  Message Preview:
    - Use pick_box
    - Added headline
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.262 loncom/interface/lonfeedback.pm:1.263
--- loncom/interface/lonfeedback.pm:1.262	Tue Jan 20 16:38:39 2009
+++ loncom/interface/lonfeedback.pm	Fri Jan 23 13:29:15 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.262 2009/01/20 16:38:39 bisitz Exp $
+# $Id: lonfeedback.pm,v 1.263 2009/01/23 13:29:15 bisitz 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
+    );
 }