SF.net SVN: ledger-smb: [318] trunk/bin/pos.pl

[..hidden..]

Revision: 318
          http://svn.sourceforge.net/ledger-smb/?rev=318&view=rev
Author:   einhverfr
Date:     2006-10-26 11:42:24 -0700 (Thu, 26 Oct 2006)

Log Message:
-----------
Fixed a few of the worst HTML errors in pos interface.

Modified Paths:
--------------
    trunk/bin/pos.pl

Modified: trunk/bin/pos.pl
===================================================================
--- trunk/bin/pos.pl	2006-10-26 18:39:20 UTC (rev 317)
+++ trunk/bin/pos.pl	2006-10-26 18:42:24 UTC (rev 318)
@@ -110,9 +110,12 @@
   $form->{partsgroup} = "";
   for (@{ $form->{all_partsgroup} }) { $form->{partsgroup} .= "$_->{partsgroup}--$_->{translation}\n"; }
 
+  $form->{dontdisplayend} = 1;
+
   &display_form;
 
   $form->{dontdisplayrows} = 1;
+  $form->{dontdisplayend} = 0;
   &openinvoices;
 }
 
@@ -603,13 +606,14 @@
   
   $form->hide_form(qw(rowcount callback path login sessionid));
   
-  print qq|
-</form>
+  print qq|</form>|;
 
+  if (!$form->{dontdisplayend}){
+    print qq|
 </body>
 </html>
 |;
-
+  }
 }
 
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.