[Orca-checkins] rev 253 - trunk/orca/lib/Orca

[Blair Zajac]

Author: blair
Date: Thu Oct  2 13:46:49 2003
New Revision: 253

Modified:
   trunk/orca/lib/Orca/HTMLFile.pm
Log:
* lib/Orca/HTMLFile.pm
  (DESTROY): Do not print a <hr/> after Orca's html_page_footer
  configuration parameter is printed into the output HTML file unless
  this parameter contains at least one non-whitespace character,
  otherwise the page looks odd with two <hr/>'s.


Modified: trunk/orca/lib/Orca/HTMLFile.pm
==============================================================================
--- trunk/orca/lib/Orca/HTMLFile.pm	(original)
+++ trunk/orca/lib/Orca/HTMLFile.pm	Thu Oct  2 13:46:49 2003
@@ -71,11 +71,12 @@
 sub DESTROY {
   my $self = shift;
 
+  if ($self->[$i_bottom] =~ /\S/) {
+    print { $self->[I_FD] } $self->[$i_bottom], "\n<br />\n", $html_hr, "\n";
+  }
+
   print { $self->[I_FD] } <<END;
-    $self->[$i_bottom]
 
-    <br />
-    $html_hr
     <table cellpadding="0" border="0">
       <tr valign="bottom">
         <td width="186">