loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.995, 2011/01/10 21:12:54
+version 1.997, 2011/01/15 21:49:37
  Line 6883  sub validate_page {
      }
  }
+ sub start_scrollbox {
+    my ($outerwidth,$width,$height)=@_;
+    unless ($outerwidth) { $outerwidth='520px'; }
+    unless ($width) { $width='500px'; }
+    unless ($height) { $height='200px'; }
+    return "<table style='width: $outerwidth; border: 1px solid black;'><tr><td style='width: $width;' bgcolor='#FFFFFF'><div style='overflow:auto; width:$width; height: $height;'>";
+ }
+ sub end_scrollbox {
+    return '</td></tr></table>';
+ }
  sub simple_error_page {
      my ($r,$title,$msg) = @_;
      my $page =