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

1 files changed, 7 insertions, 3 deletions

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>
 |;
-
+  }
 }