From 12498a933455c830e26e3289f836d3ab418bc304 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 26 Oct 2006 18:42:24 +0000
Subject: Fixed a few of the worst HTML errors in pos interface.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@318 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/pos.pl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'bin')

diff --git a/bin/pos.pl b/bin/pos.pl
index dd858612..00cf8202 100755
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -110,9 +110,12 @@ sub add {
   $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 @@ sub form_footer {
   
   $form->hide_form(qw(rowcount callback path login sessionid));
   
-  print qq|
-</form>
+  print qq|</form>|;
 
+  if (!$form->{dontdisplayend}){
+    print qq|
 </body>
 </html>
 |;
-
+  }
 }
 
 
-- 
cgit v1.2.3