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

[bisitz]

bisitz		Fri Jan 23 16:00:46 2009 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  "Set Margins" page:
    - Same style as on first printout page: Replaced table by pick_box
    - Use standard name %lt for texthash
    - Use double quotes for HTML attributes
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.547 loncom/interface/lonprintout.pm:1.548
--- loncom/interface/lonprintout.pm:1.547	Fri Dec 19 23:04:13 2008
+++ loncom/interface/lonprintout.pm	Fri Jan 23 16:00:46 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.547 2008/12/19 23:04:13 raeburn Exp $
+# $Id: lonprintout.pm,v 1.548 2009/01/23 16:00:46 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3636,50 +3636,36 @@
     }  else {
 	$size{'margin'} += 2.54;
     }
-    my %text = ('format' => 'How should each column be formatted?',
-		'width'  => 'Width:',
-		'height' => 'Height:',
-		'margin' => 'Left Margin:',);
-    %text = &Apache::lonlocal::texthash(%text);
-
-    $result .= <<ELEMENTHTML;
-
-<p>$text{'format'}</p>
-
-<table cellpadding='3'>
-  <tr>
-    <td align='right'><b>$text{'width'}</b></td>
-    <td align='left'><input type='text' name='$var.width' value="$size{'width'}" size='4' /></td>
-    <td align='left'>
-      <select name='$var.widthunit'>
-      $size{'width_options'}
-      </select>
-    </td>
-  </tr>
-  <tr>
-    <td align='right'><b>$text{'height'}</b></td>
-    <td align='left'><input type='text' name="$var.height" value="$size{'height'}" size='4' /></td>
-    <td align='left'>
-      <select name='$var.heightunit'>
-      $size{'height_options'}
-      </select>
-    </td>
-  </tr>
-  <tr>
-    <td align='right'><b>$text{'margin'}</b></td>
-    <td align='left'><input type='text' name='$var.lmargin' value="$size{'margin'}" size='4' /></td>
-    <td align='left'>
-      <select name='$var.lmarginunit'>
-      $size{'margin_options'}
-      </select>
-    </td>
-  </tr>
-</table>
-
-<!--<p>Hint: Some instructors like to leave scratch space for the student by
-making the width much smaller than the width of the page.</p>-->
-
-ELEMENTHTML
+    my %lt = &Apache::lonlocal::texthash(
+        'format' => 'How should each column be formatted?',
+        'width'  => 'Width',
+        'height' => 'Height',
+        'margin' => 'Left Margin'
+    );
+
+    $result .= '<p>'.$lt{'format'}.'</p>'
+              .&Apache::lonhtmlcommon::start_pick_box()
+              .&Apache::lonhtmlcommon::row_title($lt{'width'})
+              .'<input type="text" name="'.$var.'.width" value="'.$size{'width'}.'" size="4" />'
+              .'<select name="'.$var.'.widthunit">'
+              .$size{'width_options'}
+              .'</select>'
+              .&Apache::lonhtmlcommon::row_closure()
+              .&Apache::lonhtmlcommon::row_title($lt{'height'})
+              .'<input type="text" name="'.$var.'.height" value="'.$size{'height'}.'" size="4" />'
+              .'<select name="'.$var.'.heightunit">'
+              .$size{'height_options'}
+              .'</select>'
+              .&Apache::lonhtmlcommon::row_closure()
+              .&Apache::lonhtmlcommon::row_title($lt{'margin'})
+              .'<input type="text" name="'.$var.'.lmargin" value="'.$size{'margin'}.'" size="4" />'
+              .'<select name="'.$var.'.lmarginunit">'
+              .$size{'margin_options'}
+              .'</select>'
+              .&Apache::lonhtmlcommon::row_closure(1)
+              .&Apache::lonhtmlcommon::end_pick_box();
+    # <p>Hint: Some instructors like to leave scratch space for the student by
+    # making the width much smaller than the width of the page.</p>
 
     return $result;
 }