version 1.996, 2011/01/15 16:21:41
|
version 1.997, 2011/01/15 21:49:37
|
Line 6885 sub validate_page {
|
Line 6885 sub validate_page {
|
|
|
|
|
sub start_scrollbox { |
sub start_scrollbox { |
return '<table style="width: 600px;"><tr><td style="width: 500px;"><div style="overflow:auto; width:500px; height: 200px;">'; |
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 { |
sub end_scrollbox { |