From 86b1b489a4ed2f9bc0cba6cafeab0d6eca5584dc Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 4 Dec 2007 21:29:13 +0000
Subject: there's no reason this should still be hanging aroudn the tree

---
 sql-ledger/bin/js/menu.pl         |  188 ---
 sql-ledger/bin/lynx/menu.pl       |  151 ---
 sql-ledger/bin/mozilla/admin.pl   | 1638 ----------------------
 sql-ledger/bin/mozilla/am.pl      | 2394 --------------------------------
 sql-ledger/bin/mozilla/ap.pl      | 1439 --------------------
 sql-ledger/bin/mozilla/ar.pl      | 1486 --------------------
 sql-ledger/bin/mozilla/arap.pl    |  415 ------
 sql-ledger/bin/mozilla/arapprn.pl |  660 ---------
 sql-ledger/bin/mozilla/bp.pl      |  567 --------
 sql-ledger/bin/mozilla/ca.pl      |  478 -------
 sql-ledger/bin/mozilla/cp.pl      |  724 ----------
 sql-ledger/bin/mozilla/ct.pl      | 2327 -------------------------------
 sql-ledger/bin/mozilla/gl.pl      | 1066 ---------------
 sql-ledger/bin/mozilla/hr.pl      | 1217 -----------------
 sql-ledger/bin/mozilla/ic.pl      | 2706 -------------------------------------
 sql-ledger/bin/mozilla/io.pl      | 1637 ----------------------
 sql-ledger/bin/mozilla/ir.pl      |  806 -----------
 sql-ledger/bin/mozilla/is.pl      |  932 -------------
 sql-ledger/bin/mozilla/login.pl   |  325 -----
 sql-ledger/bin/mozilla/menu.pl    |  158 ---
 sql-ledger/bin/mozilla/oe.pl      | 2470 ---------------------------------
 sql-ledger/bin/mozilla/pe.pl      | 1236 -----------------
 sql-ledger/bin/mozilla/pos.pl     |  878 ------------
 sql-ledger/bin/mozilla/ps.pl      |   42 -
 sql-ledger/bin/mozilla/pw.pl      |   73 -
 sql-ledger/bin/mozilla/rc.pl      |  509 -------
 sql-ledger/bin/mozilla/rp.pl      | 2167 -----------------------------
 27 files changed, 28689 deletions(-)
 delete mode 100644 sql-ledger/bin/js/menu.pl
 delete mode 100644 sql-ledger/bin/lynx/menu.pl
 delete mode 100644 sql-ledger/bin/mozilla/admin.pl
 delete mode 100644 sql-ledger/bin/mozilla/am.pl
 delete mode 100644 sql-ledger/bin/mozilla/ap.pl
 delete mode 100644 sql-ledger/bin/mozilla/ar.pl
 delete mode 100644 sql-ledger/bin/mozilla/arap.pl
 delete mode 100644 sql-ledger/bin/mozilla/arapprn.pl
 delete mode 100644 sql-ledger/bin/mozilla/bp.pl
 delete mode 100644 sql-ledger/bin/mozilla/ca.pl
 delete mode 100644 sql-ledger/bin/mozilla/cp.pl
 delete mode 100644 sql-ledger/bin/mozilla/ct.pl
 delete mode 100644 sql-ledger/bin/mozilla/gl.pl
 delete mode 100644 sql-ledger/bin/mozilla/hr.pl
 delete mode 100644 sql-ledger/bin/mozilla/ic.pl
 delete mode 100644 sql-ledger/bin/mozilla/io.pl
 delete mode 100644 sql-ledger/bin/mozilla/ir.pl
 delete mode 100644 sql-ledger/bin/mozilla/is.pl
 delete mode 100644 sql-ledger/bin/mozilla/login.pl
 delete mode 100644 sql-ledger/bin/mozilla/menu.pl
 delete mode 100644 sql-ledger/bin/mozilla/oe.pl
 delete mode 100644 sql-ledger/bin/mozilla/pe.pl
 delete mode 100644 sql-ledger/bin/mozilla/pos.pl
 delete mode 100644 sql-ledger/bin/mozilla/ps.pl
 delete mode 100644 sql-ledger/bin/mozilla/pw.pl
 delete mode 100644 sql-ledger/bin/mozilla/rc.pl
 delete mode 100644 sql-ledger/bin/mozilla/rp.pl

(limited to 'sql-ledger/bin')

diff --git a/sql-ledger/bin/js/menu.pl b/sql-ledger/bin/js/menu.pl
deleted file mode 100644
index 718d22dfd..000000000
--- a/sql-ledger/bin/js/menu.pl
+++ /dev/null
@@ -1,188 +0,0 @@
-######################################################################
-# SQL-Ledger Accounting
-# Copyright (c) 2004
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#######################################################################
-
-$menufile = "menu.ini";
-use SL::Menu;
-
-
-1;
-# end of main
-
-
-sub display {
-
-  $menuwidth = ($myconfig{menuwidth}) ? $myconfig{menuwidth} : ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "155";
-
-  $form->header(1);
-
-  print qq|
-
-<FRAMESET COLS="$menuwidth,*" BORDER="1">
-
-  <FRAME NAME="acc_menu" SRC="$form->{script}?login=$form->{login}&sessionid=$form->{sessionid}&action=acc_menu&path=$form->{path}">
-  <FRAME NAME="main_window" SRC="am.pl?login=$form->{login}&sessionid=$form->{sessionid}&action=company_logo&path=$form->{path}">
-
-</FRAMESET>
-
-</BODY>
-</HTML>
-|;
-
-}
-
-
-sub acc_menu {
-
-  my $menu = new Menu "$menufile";
-  $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
-  $menu = new Menu "$form->{login}_$menufile" if (-f "$form->{login}_$menufile");
-
-  $form->{title} = $locale->text('Accounting Menu');
-
-  $form->header;
-
-  print qq|
-<script type="text/javascript">
-function SwitchMenu(obj) {
-	if (document.getElementById) {
-	var el = document.getElementById(obj);
-	var ar = document.getElementById("cont").getElementsByTagName("DIV");
-
-		if (el.style.display == "none") {
-			el.style.display = "block"; //display the block of info
-		} else {
-			el.style.display = "none";
-		}
-
-	}
-}
-function ChangeClass(menu, newClass) {
-	 if (document.getElementById) {
-	 	document.getElementById(menu).className = newClass;
-	 }
-}
-document.onselectstart = new Function("return false");
-</script>
-
-<body class=menu>
-|;
-
-  &section_menu($menu);
-
-  print qq|
-</body>
-</html>
-|;
-
-}
-
-
-sub section_menu {
-  my ($menu, $level) = @_;
-
- print qq|
-	<div id="cont">
-	|;
-
-  # build tiered menus
-  my @menuorder = $menu->access_control(\%myconfig, $level);
-  
-  while (@menuorder){
-    $i++;
-    $item = shift @menuorder;
-    $label = $item;
-    $label =~ s/.*--//g;
-    $label = $locale->text($label);
-
-    $menu->{$item}{target} = "main_window" unless $menu->{$item}{target};
-
-    if ($menu->{$item}{submenu}) {
-      
-	$display = "display: none;" unless $level eq ' ';
-
-	print qq|
-<div id="menu$i" class="menuOut" onclick="SwitchMenu('sub$i')" onmouseover="ChangeClass('menu$i','menuOver')" onmouseout="ChangeClass('menu$i','menuOut')">$label</div>
-	<div class="submenu" id="sub$i" style="$display">|;
-	
-	# remove same level items
-	map { shift @menuorder } grep /^$item/, @menuorder;
-
-	&section_menu($menu, $item);
-	
-	print qq|
-
-		</div>
-		|;
-
-    } else {
-
-      if ($menu->{$item}{module}) {
-	if ($level eq "") {
-	  print qq|<div id="menu$i" class="menuOut" onmouseover="ChangeClass('menu$i','menuOver')" onmouseout="ChangeClass('menu$i','menuOut')"> |. 
-	  $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a></div>|;
-
-	  # remove same level items
-	  map { shift @menuorder } grep /^$item/, @menuorder;
-
-          &section_menu($menu, $item);
-
-	} else {
-	
-	  print qq|<div class="submenu"> |.
-          $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a></div>|;
-	}
-
-      } else {
-
-	$display = "display: none;" unless $item eq ' ';
-
-	print qq|
-<div id="menu$i" class="menuOut" onclick="SwitchMenu('sub$i')" onmouseover="ChangeClass('menu$i','menuOver')" onmouseout="ChangeClass('menu$i','menuOut')">$label</div>
-	<div class="submenu" id="sub$i" style="$display">|;
-	
-	&section_menu($menu, $item);
-	
-	print qq|
-
-		</div>
-		|;
-
-      }
-
-    }
-
-  }
-
-  print qq|
-	</div>
-	|;
-}
-
-
-sub menubar {
-
-  1;
-
-}
-
-
diff --git a/sql-ledger/bin/lynx/menu.pl b/sql-ledger/bin/lynx/menu.pl
deleted file mode 100644
index 16abe975e..000000000
--- a/sql-ledger/bin/lynx/menu.pl
+++ /dev/null
@@ -1,151 +0,0 @@
-######################################################################
-# SQL-Ledger Accounting
-# Copyright (c) 2000
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#  Contributors: Christopher Browne <cbrowne@acm.org>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#######################################################################
-#
-# menu for text based browsers (lynx)
-#
-#######################################################################
-
-$menufile = "menu.ini";
-use SL::Menu;
-
-
-1;
-# end of main
-
-
-
-sub display {
-
-  $menu = new Menu "$menufile";
-  $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
-  $menu = new Menu "$form->{login}_$menufile" if (-f "$form->{login}_$menufile");
-  
-  @menuorder = $menu->access_control(\%myconfig);
-
-  $form->{title} = "SQL-Ledger $form->{version}";
-  
-  $form->header(1);
-
-  $offset = int (21 - $#menuorder)/2;
-
-  print "<pre>";
-  print "\n" x $offset;
-  print "</pre>";
-
-  print qq|<center><table>|;
-
-  map { print "<tr><td>".$menu->menuitem(\%myconfig, \%$form, $_).$locale->text($_).qq|</a></td></tr>|; } @menuorder;
-
-  print qq'
-</table>
-
-</body>
-</html>
-';
-
-}
-
-
-sub section_menu {
-
-  $menu = new Menu "$menufile", $form->{level};
-  $menu = new Menu "custom_$menufile", $form->{level} if (-f "custom_$menufile");
-  $menu = new Menu "$form->{login}_$menufile", $form->{level} if (-f "$form->{login}_$menufile");
-
-  # build tiered menus
-  @menuorder = $menu->access_control(\%myconfig, $form->{level});
-
-  foreach $item (@menuorder) {
-    $a = $item;
-    $item =~ s/^$form->{level}--//;
-    push @neworder, $a unless ($item =~ /--/);
-  }
-  @menuorder = @neworder;
- 
-  $level = $form->{level};
-  $level =~ s/--/ /g;
-
-  $form->{title} = $locale->text($level);
-  
-  $form->header;
-
-  $offset = int (21 - $#menuorder)/2;
-  print "<pre>";
-  print "\n" x $offset;
-  print "</pre>";
-  
-  print qq|<center><table>|;
-
-  foreach $item (@menuorder) {
-    $label = $item;
-    $label =~ s/$form->{level}--//g;
-
-    # remove target
-    $menu->{$item}{target} = "";
-
-    print "<tr><td>".$menu->menuitem(\%myconfig, \%$form, $item, $form->{level}).$locale->text($label)."</a></td></tr>";
-  }
-  
-  print qq'</table>
-
-</body>
-</html>
-';
-
-}
-
-
-sub acc_menu {
-  
-  &section_menu;
-  
-}
-
-
-sub menubar {
-  $menu = new Menu "$menufile", "";
-  
-  # build menubar
-  @menuorder = $menu->access_control(\%myconfig, "");
-
-  @neworder = ();
-  map { push @neworder, $_ unless ($_ =~ /--/) } @menuorder;
-  @menuorder = @neworder;
-
-  print "<p>";
-  $form->{script} = "menu.pl";
-
-  print "| ";
-  foreach $item (@menuorder) {
-    $label = $item;
-
-    # remove target
-    $menu->{$item}{target} = "";
-
-    print $menu->menuitem(\%myconfig, \%$form, $item, "").$locale->text($label)."</a> | ";
-  }
-  
-}
-
-
diff --git a/sql-ledger/bin/mozilla/admin.pl b/sql-ledger/bin/mozilla/admin.pl
deleted file mode 100644
index 8a4daba78..000000000
--- a/sql-ledger/bin/mozilla/admin.pl
+++ /dev/null
@@ -1,1638 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2002
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# setup module
-# add/edit/delete users
-#
-#======================================================================
-
-$menufile = "menu.ini";
-
-use SL::Form;
-use SL::User;
-
-
-$form = new Form;
-
-$locale = new Locale $language, "admin";
-  
-eval { require DBI; };
-$form->error($locale->text('DBI not installed!')) if ($@);
-
-$form->{stylesheet} = "sql-ledger.css";
-$form->{favicon} = "favicon.ico";
-$form->{timeout} = 600;
-
-require "$form->{path}/pw.pl";
-
-# customization
-if (-f "$form->{path}/custom_$form->{script}") {
-  eval { require "$form->{path}/custom_$form->{script}"; };
-  $form->error($@) if ($@);
-}
-
-
-if ($form->{action}) {
-
-  $subroutine = $locale->findsub($form->{action});
-
-  &check_password unless $form->{action} eq 'logout';
-  
-  &$subroutine;
-    
-} else {
-
-  # if there are no drivers bail out
-  $form->error($locale->text('No Database Drivers available!')) unless (User->dbdrivers);
-
-  # create memberfile
-  if (! -f $memberfile) {
-    open(FH, ">$memberfile") or $form->error("$memberfile : $!");
-    print FH qq|# SQL-Ledger Accounting members
-
-[root login]
-password=
-
-|;
-    close FH;
-  }
-
-  &adminlogin;
-
-}
-
-1;
-# end
-
-
-sub adminlogin {
-
-  $form->{title} = qq|SQL-Ledger $form->{version} |.$locale->text('Administration');
-  
-  $form->{login} = "root login";
-  $form->header(1);
-  
-    print qq|
-<script language="JavaScript" type="text/javascript">
-<!--
-function sf(){
-  document.admin.password.focus();
-}
-// End -->
-</script>
-
-<body class=admin onload="sf()">
-
-<div align=center>
-
-<a href="http://www.sql-ledger.org"><img src=sql-ledger.png border=0></a>
-<h1 class=login>|.$locale->text('Version').qq| $form->{version}<p>|.$locale->text('Administration').qq|</h1>
-
-<form method=post action="$form->{script}" name=admin>
-
-<table>
-  <tr>
-    <th>|.$locale->text('Password').qq|</th>
-    <td><input type=password name=password></td>
-    <td><input type=submit class=submit name=action value="|.$locale->text('Login').qq|"></td>
-  </tr>
-<input type=hidden name=action value=login>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-</table>
-
-</form>
-
-<a href=http://www.sql-ledger.org>SQL-Ledger |.$locale->text('website').qq|</a>
-
-</div>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub login {
-
-  &list_users;
-
-}
-
-
-sub logout {
-
-  $form->{callback} = "$form->{script}?path=$form->{path}&endsession=1";
-  $form->redirect($locale->text('You are logged out'));
-
-}
-
-
-sub add_user {
-  
-  $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Add User');
-
-  $form->{Oracle_sid} = $sid;
-  $form->{Oracle_dbport} = '1521';
-  $form->{Oracle_dbhost} = `hostname`;
-
-  if (-f "css/sql-ledger.css") {
-    $myconfig->{stylesheet} = "sql-ledger.css";
-  }
-  $myconfig->{vclimit} = 1000;
-  $myconfig->{menuwidth} = 155;
-  $myconfig->{timeout} = 3600;
-  
-  &form_header;
-  &form_footer;
-  
-}
-
-
-
-sub edit {
-
-  $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Edit User');
-  $form->{edit} = 1;
-
-  &form_header;
-  &form_footer;
-
-}
-
-
-sub form_footer {
-
-  if ($form->{edit}) {
-    $delete = qq|<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">
-<input type=hidden name=edit value=1>|;
-  }
-
-  print qq|
-
-<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}&sessionid=$form->{sessionid}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
-$delete
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub list_users {
-
-  open(FH, "$memberfile") or $form->error("$memberfile : $!");
-
-  $nologin = qq|
-<input type=submit class=submit name=action value="|.$locale->text('Lock System').qq|">|;
-
-  if (-e "$userspath/nologin") {
-    $nologin = qq|
-<input type=submit class=submit name=action value="|.$locale->text('Unlock System').qq|">|;
-  }
-
-
-  while (<FH>) {
-    chop;
-    
-    if (/^\[.*\]/) {
-      $login = $_;
-      $login =~ s/(\[|\])//g;
-    }
-
-    if (/^(name=|company=|templates=|dbuser=|dbdriver=|dbname=|dbhost=)/) {
-      chop ($var = $&);
-      ($null, $member{$login}{$var}) = split /=/, $_, 2;
-    }
-  }
-  
-  close(FH);
-
-# type=submit $locale->text('Pg Database Administration')
-# type=submit $locale->text('PgPP Database Administration')
-# type=submit $locale->text('Oracle Database Administration')
-
-  foreach $item (User->dbdrivers) {
-    $dbdrivers .= qq|<input name=action type=submit class=submit value="|.$locale->text("$item Database Administration").qq|">|;
-  }
-
-
-  $column_header{login} = qq|<th>|.$locale->text('Login').qq|</th>|;
-  $column_header{name} = qq|<th>|.$locale->text('Name').qq|</th>|;
-  $column_header{company} = qq|<th>|.$locale->text('Company').qq|</th>|;
-  $column_header{dbdriver} = qq|<th>|.$locale->text('Driver').qq|</th>|;
-  $column_header{dbhost} = qq|<th>|.$locale->text('Host').qq|</th>|;
-  $column_header{dataset} = qq|<th>|.$locale->text('Dataset').qq|</th>|;
-  $column_header{templates} = qq|<th>|.$locale->text('Templates').qq|</th>|;
-
-  @column_index = qw(login name company dbdriver dbhost dataset templates);
-
-  $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Administration');
-
-  $form->{login} = "root login";
-  $form->header;
-
-  print qq|
-<body class=admin>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-  <tr class=listheading>
-    <th>$form->{title}</th>
-  </tr>
-  <tr size=5></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-        </tr>
-|;
-
-foreach $key (sort keys %member) {
-  $href = "$script?action=edit&login=$key&path=$form->{path}&sessionid=$form->{sessionid}";
-  $href =~ s/ /%20/g;
-  
-  $member{$key}{templates} =~ s/^$templates\///;
-  $member{$key}{dbhost} = $locale->text('localhost') unless $member{$key}{dbhost};
-  $member{$key}{dbname} = $member{$key}{dbuser} if ($member{$key}{dbdriver} eq 'Oracle');
-
-  $column_data{login} = qq|<td><a href=$href>$key</a></td>|;
-  $column_data{name} = qq|<td>$member{$key}{name}</td>|;
-  $column_data{company} = qq|<td>$member{$key}{company}</td>|;
-  $column_data{dbdriver} = qq|<td>$member{$key}{dbdriver}</td>|;
-  $column_data{dbhost} = qq|<td>$member{$key}{dbhost}</td>|;
-  $column_data{dataset} = qq|<td>$member{$key}{dbname}</td>|;
-  $column_data{templates} = qq|<td>$member{$key}{templates}</td>|;
-  
-  $i++; $i %= 2;
-  print qq|
-        <tr class=listrow$i>|;
-
-  map { print "$column_data{$_}\n" } @column_index;
-
-  print qq|
-        </tr>|;
-}
-
-
-print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br><input type=submit class=submit name=action value="|.$locale->text('Add User').qq|">
-<input type=submit class=submit name=action value="|.$locale->text('Change Admin Password').qq|">
-
-$dbdrivers
-$nologin
-
-<input type=submit class=submit name=action value="|.$locale->text('Logout').qq|">
-
-</form>
-
-|.$locale->text('Click on login name to edit!').qq|
-<br>
-|.$locale->text('To add a user to a group edit a name, change the login name and save.  A new user with the same variables will then be saved under the new login name.').qq|
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub form_header {
-
-  # if there is a login, get user
-  if ($form->{login}) {
-    # get user
-    $myconfig = new User "$memberfile", "$form->{login}";
-
-    $myconfig->{signature} =~ s/\\n/\r\n/g;
-    $myconfig->{address} =~ s/\\n/\r\n/g;
-
-    # strip basedir from templates directory
-    $myconfig->{templates} =~ s/^$templates\///;
-
-    $myconfig->{dbpasswd} = unpack 'u', $myconfig->{dbpasswd};
-  }
-
-
-  foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) {
-    $dateformat .= ($item eq $myconfig->{dateformat}) ? "<option selected>$item\n" : "<option>$item\n";
-  }
-
-  foreach $item (qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00)) {
-    $numberformat .= ($item eq $myconfig->{numberformat}) ? "<option selected>$item\n" : "<option>$item\n";
-  }
-
-
-  %countrycodes = User->country_codes;
-  $countrycodes = "";
-  
-  foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) {
-    $countrycodes .= ($myconfig->{countrycode} eq $key) ? "<option selected value=$key>$countrycodes{$key}" : "<option value=$key>$countrycodes{$key}";
-  }
-  $countrycodes = qq|<option value="">English\n$countrycodes|;
-
-  # is there a templates basedir
-  if (! -d "$templates") {
-    $form->error($locale->text('Directory').": $templates ".$locale->text('does not exist'));
-  }
-
-  opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!");
-  @all = grep !/^\.\.?$/, readdir TEMPLATEDIR;
-  closedir TEMPLATEDIR;
-
-  @allhtml = sort grep /\.html/, @all;
-  @alldir = grep !/\.(html|tex|txt)$/, @all;
-  
-  @allhtml = reverse grep !/Default/, @allhtml;
-  push @allhtml, 'Default';
-  @allhtml = reverse @allhtml;
-  
-  foreach $item (sort @alldir) {
-    if ($item eq $myconfig->{templates}) {
-      $usetemplates .= qq|<option selected>$item\n|;
-    } else {
-      $usetemplates .= qq|<option>$item\n|;
-    }
-  }
-  
-  $lastitem = $allhtml[0];
-  $lastitem =~ s/-.*//g;
-  $mastertemplates = qq|<option>$lastitem\n|;
-  foreach $item (@allhtml) {
-    $item =~ s/-.*//g;
-    
-    if ($item ne $lastitem) {
-      $mastertemplates .= qq|<option>$item\n|;
-      $lastitem = $item;
-    }
-  }
-
-  opendir CSS, "css/.";
-  @all = grep /.*\.css$/, readdir CSS;
-  closedir CSS;
-  
-  foreach $item (@all) {
-    if ($item eq $myconfig->{stylesheet}) {
-      $selectstylesheet .= qq|<option selected>$item\n|;
-    } else {
-      $selectstylesheet .= qq|<option>$item\n|;
-    }
-  }
-  $selectstylesheet .= "<option>\n";
-  
-  if (%printer && $latex) {
-    $selectprinter = "<option>\n";
-    foreach $item (sort keys %printer) {
-      if ($myconfig->{printer} eq $item) {
-	$selectprinter .= qq|<option value="$item" selected>$item\n|;
-      } else {
-	$selectprinter .= qq|<option value="$item">$item\n|;
-      }
-    }
-
-    $printer = qq|
-	<tr>
-	  <th align=right>|.$locale->text('Printer').qq|</th>
-	  <td><select name=printer>$selectprinter</select></td>
-	</tr>
-|;
-
-  }
-  
-  $user = $form->{login};
-  $form->{login} = "root login";
-  $form->header;
-  $form->{login} = $user;
- 
-  print qq|
-<body class=admin>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr class=listheading><th colspan=2>$form->{title}</th></tr>
-  <tr size=5></tr>
-  <tr valign=top>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Login').qq|</th>
-	  <td><input name=login value="$myconfig->{login}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Password').qq|</th>
-	  <td><input type=password name=new_password size=8 value=$myconfig->{password}></td>
-	  <input type=hidden name=old_password value=$myconfig->{password}>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Name').qq|</th>
-	  <td><input name=name size=15 value="$myconfig->{name}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('E-mail').qq|</th>
-	  <td><input name=email size=30 value="$myconfig->{email}"></td>
-	</tr>
-	<tr valign=top>
-	  <th align=right>|.$locale->text('Signature').qq|</th>
-	  <td><textarea name=signature rows=3 cols=35>$myconfig->{signature}</textarea></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Phone').qq|</th>
-	  <td><input name=tel size=14 value="$myconfig->{tel}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Fax').qq|</th>
-	  <td><input name=fax size=14 value="$myconfig->{fax}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Company').qq|</th>
-	  <td><input name=company size=35 value="$myconfig->{company}"></td>
-	</tr>
-	<tr valign=top>
-	  <th align=right>|.$locale->text('Address').qq|</th>
-	  <td><textarea name=address rows=4 cols=35>$myconfig->{address}</textarea></td>
-	</tr>
-      </table>
-    </td>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Date Format').qq|</th>
-	  <td><select name=dateformat>$dateformat</select></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Number Format').qq|</th>
-	  <td><select name=numberformat>$numberformat</select></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Dropdown Limit').qq|</th>
-	  <td><input name=vclimit value="$myconfig->{vclimit}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Menu Width').qq|</th>
-	  <td><input name=menuwidth value="$myconfig->{menuwidth}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Language').qq|</th>
-	  <td><select name=countrycode>$countrycodes</select></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Character Set').qq|</th>
-	  <td><input name=charset value="$myconfig->{charset}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Session Timeout').qq|</th>
-	  <td><input name=timeout value="$myconfig->{timeout}"></td>
-	</tr>
-
-	<tr>
-	  <th align=right>|.$locale->text('Stylesheet').qq|</th>
-	  <td><select name=userstylesheet>$selectstylesheet</select></td>
-	</tr>
-	$printer
-	<tr>
-	  <th align=right>|.$locale->text('Use Templates').qq|</th>
-	  <td><select name=usetemplates>$usetemplates</select></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('New Templates').qq|</th>
-	  <td><input name=newtemplates></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Setup Templates').qq|</th>
-	  <td><select name=mastertemplates>$mastertemplates</select></td>
-	</tr>
-	<input type=hidden name=templates value=$myconfig->{templates}>
-      </table>
-    </td>
-  </tr>
-  <tr class=listheading>
-    <th colspan=2>|.$locale->text('Database').qq|</th>
-  </tr>|;
-
-    # list section for database drivers
-    foreach $item (User->dbdrivers) {
-      
-    print qq|
-  <tr>
-    <td colspan=2>
-      <table>
-	<tr>|;
-
-    $checked = "";
-    if ($myconfig->{dbdriver} eq $item) {
-      map { $form->{"${item}_$_"} = $myconfig->{$_} } qw(dbhost dbport dbuser dbpasswd dbname sid);
-      $checked = "checked";
-    }
-
-    print qq|
-	  <th align=right>|.$locale->text('Driver').qq|</th>
-	  <td><input name=dbdriver type=radio class=radio value=$item $checked>&nbsp;$item</td>
-	  <th align=right>|.$locale->text('Host').qq|</th>
-	  <td><input name="${item}_dbhost" size=30 value=$form->{"${item}_dbhost"}></td>
-	</tr>
-	<tr>|;
-
-    if ($item =~ /Pg/) {
-      print qq|
-	  <th align=right>|.$locale->text('Dataset').qq|</th>
-	  <td><input name="${item}_dbname" size=15 value=$form->{"${item}_dbname"}></td>
-	  <th align=right>|.$locale->text('Port').qq|</th>
-	  <td><input name="${item}_dbport" size=4 value=$form->{"${item}_dbport"}></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('User').qq|</th>
-	  <td><input name="${item}_dbuser" size=15 value=$form->{"${item}_dbuser"}></td>
-	  <th align=right>|.$locale->text('Password').qq|</th>
-	  <td><input name="${item}_dbpasswd" type=password size=10 value=$form->{"${item}_dbpasswd"}></td>
-	</tr>|;
-
-    }
-
-    if ($item eq 'Oracle') {
-      print qq|
-	  <th align=right>SID</th>
-	  <td><input name=Oracle_sid value=$form->{Oracle_sid}></td>
-	  <th align=right>|.$locale->text('Port').qq|</th>
-	  <td><input name="${item}_dbport size=4 value=$form->{"${item}_dbport"}></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Dataset').qq|</th>
-	  <td><input name="${item}_dbuser" size=15 value=$form->{"${item}_dbuser"}></td>
-	  <th align=right>|.$locale->text('Password').qq|</th>
-	  <td><input name="${item}_dbpasswd" type=password size=10 value=$form->{"${item}_dbpasswd"}></td>
-	  
-	</tr>|;
-    }
-    
-      
-    print qq|
-	<input type=hidden name=old_dbpasswd value=$myconfig->{dbpasswd}>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td colspan=2><hr size=2 noshade></td>
-  </tr>
-|;
-
-  }
-
-
-  # access control
-  open(FH, $menufile) or $form->error("$menufile : $!");
-  # scan for first menu level
-  @a = <FH>;
-  close(FH);
-  
-  if (open(FH, "custom_$menufile")) {
-    push @a, <FH>;
-  }
-  close(FH);
-
-  foreach $item (@a) {
-    next unless $item =~ /\[\w+/;
-    next if $item =~ /\#/;
-
-    $item =~ s/(\[|\])//g;
-    chop $item;
-
-    if ($item =~ /--/) {
-      ($level, $menuitem) = split /--/, $item, 2;
-    } else {
-      $level = $item;
-      $menuitem = $item;
-      push @acsorder, $item;
-    }
-
-    push @{ $acs{$level} }, $menuitem;
-
-  }
-  
-  %role = ( 'admin' => $locale->text('Administrator'),
-            'user' => $locale->text('User'),
-	    'manager' => $locale->text('Manager')
-
-	   );
-	    
-  $selectrole = "";
-  foreach $item (qw(user admin manager)) {
-    $selectrole .= ($myconfig->{role} eq $item) ? "<option selected value=$item>$role{$item}\n" : "<option value=$item>$role{$item}\n";
-  }
-  
-  print qq|
-  <tr class=listheading>
-    <th colspan=2>|.$locale->text('Access Control').qq|</th>
-  </tr>
-  <tr>
-    <td><select name=role>$selectrole</select></td>
-  </tr>
-|;
-  
-  foreach $item (split /;/, $myconfig->{acs}) {
-    ($key, $value) = split /--/, $item, 2;
-    $excl{$key}{$value} = 1;
-  }
-  
-  foreach $key (@acsorder) {
-
-    $checked = "checked";
-    if ($form->{login}) {
-      $checked = ($excl{$key}{$key}) ? "" : "checked";
-    }
-    
-    # can't have variable names with spaces
-    # the 1 is for apache 2
-    $item = $form->escape("${key}--$key", 1);
-    
-    $acsheading = $key;
-    $acsheading =~ s/ /&nbsp;/g;
-    
-    $acsheading = qq|
-    <th align=left><input name="$item" class=checkbox type=checkbox value=1 $checked>&nbsp;$acsheading</th>\n|;
-    $menuitems .= "$item;";
-    $acsdata = "
-    <td>";
-
-    foreach $item (@{ $acs{$key} }) {
-      next if ($key eq $item);
-
-      $checked = "checked";
-      if ($form->{login}) {
-	$checked = ($excl{$key}{$item}) ? "" : "checked";
-      }
-
-      $acsitem = $form->escape("${key}--$item", 1);
-      
-      $acsdata .= qq|
-    <br><input name="$acsitem" class=checkbox type=checkbox value=1 $checked>&nbsp;$item|;
-      $menuitems .= "$acsitem;";
-    }
-
-    $acsdata .= "
-    </td>";
-
-    print qq|
-  <tr valign=top>$acsheading $acsdata
-  </tr>
-|;
-  }
-  
-  print qq|<input type=hidden name=acs value="$menuitems">
-  
-   <tr>
-    <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-</div>
-|;
-
-}
-
-
-sub save {
-
-  # no driver checked
-  $form->error($locale->text('Database Driver not checked!')) unless $form->{dbdriver};
-
-  # no spaces allowed in login name
-  ($form->{login}) = split / /, $form->{login};
-
-  $form->isblank("login", $locale->text('Login name missing!'));
-  
-  # check for duplicates
-  if (!$form->{edit}) {
-    $temp = new User "$memberfile", "$form->{login}";
-   
-    if ($temp->{login}) {
-      $form->error("$form->{login} ".$locale->text('is already a member!'));
-    }
-  }
-  
-  # no spaces allowed in directories
-  ($form->{newtemplates}) = split / /, $form->{newtemplates};
-  
-  if ($form->{newtemplates}) {
-    $form->{templates} = $form->{newtemplates};
-  } else {
-    $form->{templates} = ($form->{usetemplates}) ? $form->{usetemplates} : $form->{login};
-  }
-  
-  # is there a basedir
-  if (! -d "$templates") {
-    $form->error($locale->text('Directory').": $templates ".$locale->text('does not exist'));
-  }
-
-  # add base directory to $form->{templates}
-  $form->{templates} = "$templates/$form->{templates}";
-
-
-  $myconfig = new User "$memberfile", "$form->{login}";
-
-  # redo acs variable and delete all the acs codes
-  @acs = split /;/, $form->{acs};
-
-  $form->{acs} = "";
-  foreach $item (@acs) {
-    $item = $form->escape($item, 1);
-
-    if (!$form->{$item}) {
-      $form->{acs} .= $form->unescape($form->unescape($item)).";";
-    }
-    delete $form->{$item};
-  }
-  
-  # check which database was filled in
-  
-  $form->{dbhost} = $form->{"$form->{dbdriver}_dbhost"};
-  $form->{dbport} = $form->{"$form->{dbdriver}_dbport"};
-  $form->{dbpasswd} = $form->{"$form->{dbdriver}_dbpasswd"};
-  $form->{dbuser} = $form->{"$form->{dbdriver}_dbuser"};
-  $form->{dbname} = $form->{"$form->{dbdriver}_dbname"};
- 
-  if ($form->{dbdriver} eq 'Oracle') {
-    $form->{sid} = $form->{Oracle_sid}, ;
-
-    $form->isblank("dbhost", $locale->text('Hostname missing!'));
-    $form->isblank("dbport", $locale->text('Port missing!'));
-    $form->isblank("dbuser", $locale->text('Dataset missing!'));
-  }
-  if ($form->{dbdriver} =~ /Pg/) {
-    $form->isblank("dbname", $locale->text('Dataset missing!'));
-    $form->isblank("dbuser", $locale->text('Database User missing!'));
-  }
-    
-  foreach $item (keys %{$form}) {
-    $myconfig->{$item} = $form->{$item};
-  }
-
-  $myconfig->{password} = $form->{new_password} if $form->{new_password} ne $form->{old_password};
-
-  delete $myconfig->{stylesheet};
-  if ($form->{userstylesheet}) {
-    $myconfig->{stylesheet} = $form->{userstylesheet};
-  }
-  
-  $myconfig->save_member($memberfile, $userspath);
-
-  # create user template directory and copy master files
-  if (! -d "$form->{templates}") {
-    umask(002);
-    
-    if (mkdir "$form->{templates}", oct("771")) {
-      
-      umask(007);
-      
-      # copy templates to the directory
-      opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!");
-      @templates = grep /$form->{mastertemplates}.*?\.(html|tex|txt)$/, readdir TEMPLATEDIR;
-      closedir TEMPLATEDIR;
-
-      foreach $file (@templates) {
-	open(TEMP, "$templates/$file") or $form->error("$templates/$file : $!");
-	
-	$file =~ s/$form->{mastertemplates}-//;
-	open(NEW, ">$form->{templates}/$file") or $form->error("$form->{templates}/$file : $!");
-	  
-	while ($line = <TEMP>) {
-	  print NEW $line;
-	}
-	close(TEMP);
-	close(NEW);
-      }
-    } else {
-      $form->error("$!: $form->{templates}");
-    }
-  }
-
-  $form->redirect($locale->text('User saved!'));
-  
-}
-
-
-sub delete {
-
-  $form->{templates} = ($form->{templates}) ? "$templates/$form->{templates}" : "$templates/$form->{login}";
-  
-  $form->error("$memberfile ".$locale->text('locked!')) if (-f ${memberfile}.LCK);
-  open(FH, ">${memberfile}.LCK") or $form->error("${memberfile}.LCK : $!");
-  close(FH);
-  
-  if (! open(CONF, "+<$memberfile")) {
-    unlink "${memberfile}.LCK";
-    $form->error("$memberfile : $!");
-  }
-
-  @config = <CONF>;
-
-  seek(CONF, 0, 0);
-  truncate(CONF, 0);
-  
-  while ($line = shift @config) {
-
-    chop $line;
-
-    if ($line =~ /^\[/) {
-      last if ($line =~ /\[$form->{login}\]/);
-      $login = &login_name($line);
-    }
-    
-    if ($line =~ /^templates=/) {
-      $user{$login} = &get_value($line);
-    }
-
-    print CONF "$line\n";
-  }
-
-  # remove everything up to next login or EOF
-  # and save template variable
-  while ($line = shift @config) {
-
-    chop $line;
-    
-    ($key, $value) = split /=/, $line, 2;
-    $myconfig{$key} = $value;
-    
-    last if ($line =~ /^\[/);
-  }
-
-  # this one is either the next login or EOF
-  print CONF "$line\n";
-
-  $login = &login_name($line);
-  
-
-  while ($line = shift @config) {
-
-    chop $line;
-
-    if ($line =~ /^\[/) {
-      $login = &login_name($line);
-    }
-    
-    if ($line =~ /^templates=/) {
-      $user{$login} = &get_value($line);
-    }
-    
-    print CONF "$line\n";
-  }
-
-  close(CONF);
-  unlink "${memberfile}.LCK";
-
-  # scan %user for $templatedir
-  foreach $login (keys %user) {
-    last if ($found = ($myconfig{templates} eq $user{$login}));
-  }
-
-  map { $form->{$_} = $myconfig{$_} } keys %myconfig;
-  
-  # if found keep directory otherwise delete
-  if (!$found) {
-    # delete it if there is a template directory
-    $dir = "$form->{templates}";
-    if (-d "$dir") {
-      unlink <$dir/*.html>;
-      unlink <$dir/*.tex>;
-      unlink <$dir/*.txt>;
-      rmdir "$dir";
-    }
-  }
-  
-  # delete config file for user
-  unlink "$userspath/$form->{login}.conf";
-
-  User::delete_login("", \%$form);
-  
-  $form->redirect($locale->text('User deleted!'));
-  
-}
-
-
-sub login_name {
-  my $login = shift;
-  
-  $login =~ s/\[\]//g;
-  return ($login) ? $login : undef;
-  
-}
-
-
-
-sub get_value {
-  my $line = shift;
-  
-  my ($null, $value) = split /=/, $line, 2;
-
-  # remove comments
-  $value =~ s/^\s*#.*//g;
-      
-  # remove any trailing whitespace
-  $value =~ s/^\s*(.*?)\s*$/$1/;
-
-  $value;
-}
-
-
-
-sub change_admin_password {
-
-  $form->{title} = qq|SQL-Ledger |.$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Change Admin Password');
-
-  $form->{login} = "root login";
-  $form->header;
-
-  print qq|
-<body class=admin>
-
-<form method=post action=$form->{script}>
-
-<table>
-  <tr>
-  <tr class=listheading>
-    <th>|.$locale->text('Change Password').qq|</th>
-  </tr>
-  <tr size=5></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr>
-          <th align=right>|.$locale->text('Password').qq|</th>
-	  <td><input type=password name=new_password></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Confirm').qq|</th>
-	  <td><input type=password name=confirm_password></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-
-</table>
-
-<br>
-<hr size=3 noshade>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<p>
-<input type=submit class=submit name=action value="|.$locale->text('Change Password').qq|">
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub change_password {
-
-  $form->error($locale->text('Passwords do not match!')) if $form->{new_password} ne $form->{confirm_password};
-  
-  $root->{password} = $form->{new_password};
-  
-  $root->{'root login'} = 1;
-  $root->save_member($memberfile);
-
-  $form->{callback} = "$form->{script}?action=list_users&path=$form->{path}&sessionid=$form->{sessionid}";
-
-  $form->redirect($locale->text('Password changed!'));
-
-}
-
-
-sub check_password {
-
-  $root = new User "$memberfile", "root login";
-
-  if ($root->{password}) {
-      
-    if ($form->{password}) {
-      $form->{callback} .= "&password=$form->{password}" if $form->{callback};
-      $form->{sessionid} = time;
-      if ($root->{password} ne crypt $form->{password}, 'ro') {
-	&getpassword;
-	exit;
-      }
-    } else {
-      if ($ENV{HTTP_USER_AGENT}) {
-	$ENV{HTTP_COOKIE} =~ s/;\s*/;/g;
-	%cookie = split /[=;]/, $ENV{HTTP_COOKIE};
-	if ((! $cookie{"SQL-Ledger-root login"}) || $cookie{"SQL-Ledger-root login"} ne $form->{sessionid}) {
-	  &getpassword(1);
-	  exit;
-	}
-      }
-    }
-  }
-
-}
-
-
-sub pg_database_administration {
-
-  $form->{dbdriver} = 'Pg';
-  &dbselect_source;
-
-}
-
-
-sub pgpp_database_administration {
-
-  $form->{dbdriver} = 'PgPP';
-  &dbselect_source;
-
-}
-
-
-sub oracle_database_administration {
-  
-  $form->{dbdriver} = 'Oracle';
-  &dbselect_source;
-
-}
-
-
-sub dbdriver_defaults {
-
-  # load some defaults for the selected driver
-  %driverdefaults = ( 'Pg' => { dbport => '',
-                                dbuser => 'sql-ledger',
-		             dbdefault => 'template1',
-				dbhost => '',
-			 connectstring => $locale->text('Connect to')
-			      },
-                  'Oracle' => { dbport => '1521',
-		                dbuser => 'oralin',
-		             dbdefault => $sid,
-				dbhost => `hostname`,
-			 connectstring => 'SID'
-			      }
-                    );
-
-  $driverdefaults{PgPP} = $driverdefaults{Pg};
-
-  map { $form->{$_} = $driverdefaults{$form->{dbdriver}}{$_} } keys %{ $driverdefaults{Pg} };
-  
-}
-  
-
-sub dbselect_source {
-
-  &dbdriver_defaults;
-
-  $msg{Pg} = $locale->text('Leave host and port field empty unless you want to make a remote connection.');
-  $msg{PgPP} = $msg{Pg};
-  $msg{Oracle} = $locale->text('You must enter a host and port for local and remote connections!');
-  
-
- $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." / ".$locale->text('Database Administration');
-  
-  $form->{login} = "root login";
-  $form->header;
-
-  print qq|
-<body class=admin>
-
-<center>
-<h2>$form->{title}</h2>
-
-<form method=post action=$form->{script}>
-
-<table>
-  <tr>
-    <td>
-      <table>
-	<tr class=listheading>
-	  <th colspan=4>|.$locale->text('Database').qq|</th>
-	</tr>
-	<input type=hidden name=dbdriver value=$form->{dbdriver}>
-	<tr>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right>|.$locale->text('Host').qq|</th>
-		<td><input name=dbhost size=25 value=$form->{dbhost}></td>
-		<th align=right>|.$locale->text('Port').qq|</th>
-		<td><input name=dbport size=5 value=$form->{dbport}></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('User').qq|</th>
-		<td><input name=dbuser size=10 value=$form->{dbuser}></td>
-		<th align=right>|.$locale->text('Password').qq|</th>
-		<td><input type=password name=dbpasswd size=10></td>
-	      </tr>
-	      <tr>
-
-		<th align=right>$form->{connectstring}</th>
-		<td colspan=3><input name=dbdefault size=10 value=$form->{dbdefault}></td>
-
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-
-<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}">
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-
-<input type=submit class=submit name=action value="|.$locale->text('Create Dataset').qq|">
-<input type=submit class=submit name=action value="|.$locale->text('Update Dataset').qq|">
-<input type=submit class=submit name=action value="|.$locale->text('Delete Dataset').qq|">
-
-</form>
-
-    </td>
-  </tr>
-</table>
-
-<p>|.$locale->text('This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!')
-
-.qq|
-<br>$msg{$form->{dbdriver}}
-
-
-</body>
-</html>
-|;
-
-}
-
-
-sub continue {
-
-  &{ $form->{nextsub} };
-
-}
-
-
-sub update_dataset {
-
-  %needsupdate = User->dbneedsupdate(\%$form);
-
-  $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Update Dataset');
-  
-  $form->{login} = "root login";
-  $form->header;
-
-  print qq|
-<body class=admin>
-
-
-<center>
-<h2>$form->{title}</h2>
-|;
-
-
-  foreach $key (sort keys %needsupdate) {
-    if ($needsupdate{$key} ne $form->{dbversion}) {
-      $upd .= qq|<input name="db$key" type=checkbox value=1 checked> $key\n|;
-      $form->{dbupdate} .= "db$key ";
-    }
-  }
-
-  chop $form->{dbupdate};
-
-
-  if ($form->{dbupdate}) {
-
-    print qq|
-<table width=100%>
-<form method=post action=$form->{script}>
-
-<input type=hidden name=dbdriver value=$form->{dbdriver}>
-<input type=hidden name=dbhost value=$form->{dbhost}>
-<input type=hidden name=dbport value=$form->{dbport}>
-<input type=hidden name=dbuser value=$form->{dbuser}>
-<input type=hidden name=dbpasswd value=$form->{dbpasswd}>
-<input type=hidden name=dbdefault value=$form->{dbdefault}>
-
-<tr class=listheading>
-  <th>|.$locale->text('The following Datasets need to be updated').qq|</th>
-</tr>
-<tr>
-<td>
-
-$upd
-
-</td>
-</tr>
-<tr>
-<td>
-
-<input name=dbupdate type=hidden value="$form->{dbupdate}">
-
-<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=nextsub value=dbupdate>
-
-<hr size=3 noshade>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-
-</td></tr>
-</table>
-</form>
-|;
-
-  } else {
-
-    print $locale->text('All Datasets up to date!');
-
-  }
-  
-  print qq|
-
-</body>
-</html>
-|;
-
-}
-
-
-sub dbupdate {
-
-  User->dbupdate(\%$form);
-
-  $form->redirect($locale->text('Dataset updated!'));
-  
-}
-
-
-sub create_dataset {
-
-  @dbsources = sort User->dbsources(\%$form);
-
-  opendir SQLDIR, "sql/." or $form->error($!);
-  foreach $item (sort grep /-chart\.sql/, readdir SQLDIR) {
-    next if ($item eq 'Default-chart.sql');
-    $item =~ s/-chart\.sql//;
-    push @charts, qq|<input name=chart class=radio type=radio value="$item">$item|;
-  }
-  closedir SQLDIR;
-
-  # add Default at beginning
-  unshift @charts, qq|<input name=chart class=radio type=radio value="Default" checked>Default|;
-
-  $selectencoding = qq|<option>
-  <option value=SQL_ASCII>ASCII
-  <option value=EUC_JP>Japanese EUC
-  <option value=EUC_CN>Chinese EUC
-  <option value=EUC_KR>Korean EUC
-  <option value=JOHAB>Korean EUC (Hangle base)
-  <option value=EUC_TW>Taiwan EUC
-  <option value=UNICODE>Unicode (UTF-8)
-  <option value=MULE_INTERNAL>Mule internal type
-  <option value=LATIN1>ISO 8859-1/ECMA 94 (Latin alphabet no. 1)
-  <option value=LATIN2>ISO 8859-2/ECMA 94 (Latin alphabet no. 2)
-  <option value=LATIN3>ISO 8859-3/ECMA 94 (Latin alphabet no. 3)
-  <option value=LATIN4>ISO 8859-4/ECMA 94 (Latin alphabet no. 4)
-  <option value=LATIN5>ISO 8859-9/ECMA 128 (Latin alphabet no. 5)
-  <option value=LATIN6>ISO 8859-10/ECMA 144 (Latin alphabet no. 6)
-  <option value=LATIN7>ISO 8859-13 (Latin alphabet no. 7)
-  <option value=LATIN8>ISO 8859-14 (Latin alphabet no. 8)
-  <option value=LATIN9>ISO 8859-15 (Latin alphabet no. 9)
-  <option value=LATIN10>ISO 8859-16/ASRO SR 14111 (Latin alphabet no. 10)
-  <option value=ISO_8859_5>ISO 8859-5/ECMA 113 (Latin/Cyrillic)
-  <option value=ISO_8859_6>ISO 8859-6/ECMA 114 (Latin/Arabic)
-  <option value=ISO_8859_7>ISO 8859-7/ECMA 118 (Latin/Greek)
-  <option value=ISO_8859_8>ISO 8859-8/ECMA 121 (Latin/Hebrew)
-  <option value=KOI8>KOI8-R(U)
-  <option value=WIN>Windows CP1251
-  <option value=ALT>Windows CP866
-  <option value=WIN1256>Windows CP1256 (Arabic)
-  <option value=TCVN>Windows CP1258 (Vietnamese)
-  <option value=WIN874>Windows CP874 (Thai)
-  |;
-  
-  $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Create Dataset');
-  
-  $form->{login} = "root login";
-  $form->header;
-
-  print qq|
-<body class=admin>
-
-
-<center>
-<h2>$form->{title}</h2>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr class=listheading>
-    <th colspan=2>&nbsp;</th>
-  </tr>
-
-  <tr>
-
-    <th align=right nowrap>|.$locale->text('Existing Datasets').qq|</th>
-    <td>
-|;
-
-    map { print "[&nbsp;$_&nbsp;] " } @dbsources;
-    
-    print qq|
-    </td>
-  </tr>
-  
-  <tr>
-
-    <th align=right nowrap>|.$locale->text('Create Dataset').qq|</th>
-    <td><input name=db></td>
-
-  </tr>
-
-  <tr>
-
-    <th align=right nowrap>|.$locale->text('Multibyte Encoding').qq|</th>
-    <td><select name=encoding>$selectencoding</select></td>
-
-  </tr>
- 
-  <tr>
-
-    <th align=right nowrap>|.$locale->text('Create Chart of Accounts').qq|</th>
-    <td>
-      <table>
-|;
-
-  while (@charts) {
-    print qq|
-        <tr>
-|;
-
-    map { print "<td>$charts[$_]</td>\n" } (0 .. 2);
-
-    print qq|
-        </tr>
-|;
-
-    splice @charts, 0, 3;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td colspan=2>
-    <hr size=3 noshade>
-    </td>
-  </tr>
-</table>
- 
-<input type=hidden name=dbdriver value=$form->{dbdriver}>
-<input type=hidden name=dbuser value=$form->{dbuser}>
-<input type=hidden name=dbhost value=$form->{dbhost}>
-<input type=hidden name=dbport value=$form->{dbport}>
-<input type=hidden name=dbpasswd value=$form->{dbpasswd}>
-<input type=hidden name=dbdefault value=$form->{dbdefault}>
-
-<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=nextsub value=dbcreate>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub dbcreate {
-
-  $form->isblank("db", $locale->text('Dataset missing!'));
-
-  User->dbcreate(\%$form);
-  
-  $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Create Dataset');
-
-  $form->{login} = "root login";
-  $form->header;
-
-  print qq|
-<body class=admin>
-
-
-<center>
-<h2>$form->{title}</h2>
-
-<form method=post action=$form->{script}>|
-
-.$locale->text('Dataset')." $form->{db} ".$locale->text('successfully created!')
-
-.qq|
-
-<input type=hidden name=path value="$form->{path}">
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=nextsub value=list_users>
-
-<p><input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-
-</body>
-</html>
-|;
-
-}
-
-
-sub delete_dataset {
-
-  if (@dbsources = User->dbsources_unused(\%$form, $memberfile)) {
-    foreach $item (sort @dbsources) {
-      $dbsources .= qq|<input name=db class=radio type=radio value=$item>&nbsp;$item |;
-    }
-  } else {
-    $form->error($locale->text('Nothing to delete!'));
-  }
-
-  $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Delete Dataset');
-
-  $form->{login} = "root login";
-  $form->header;
-
-  print qq|
-<body class=admin>
-
-<h2>$form->{title}</h2>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr class=listheading>
-    <th>|.$locale->text('The following Datasets are not in use and can be deleted').qq|</th>
-  </tr>
-
-  <tr>
-    <td>
-    $dbsources
-    </td>
-  </tr>
-  
-  <tr><td>
-<p>
-<input type=hidden name=dbdriver value=$form->{dbdriver}>
-<input type=hidden name=dbuser value=$form->{dbuser}>
-<input type=hidden name=dbhost value=$form->{dbhost}>
-<input type=hidden name=dbport value=$form->{dbport}>
-<input type=hidden name=dbpasswd value=$form->{dbpasswd}>
-<input type=hidden name=dbdefault value=$form->{dbdefault}>
-
-<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}">
-
-<input type=hidden name=path value="$form->{path}">
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=nextsub value=dbdelete>
-
-<hr size=3 noshade>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-
-  </td></tr>
-</table>
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub dbdelete {
-
-  if (!$form->{db}) {
-    $form->error($locale->text('No Dataset selected!'));
-  }
-
-  User->dbdelete(\%$form);
-
-  $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Delete Dataset');
-
-  $form->{login} = "root login";
-  $form->header;
-
-  print qq|
-<body class=admin>
-
-
-<center>
-<h2>$form->{title}</h2>
-
-<form method=post action=$form->{script}>
-
-$form->{db} |.$locale->text('successfully deleted!')
-
-.qq|
-
-<input type=hidden name=path value="$form->{path}">
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=nextsub value=list_users>
-
-<p><input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-
-</body>
-</html>
-|;
-
-}
-
-
-sub unlock_system {
-
-  unlink "$userspath/nologin";
-  
-  $form->{callback} = "$form->{script}?action=list_users&path=$form->{path}&sessionid=$form->{sessionid}";
-
-  $form->redirect($locale->text('Lockfile removed!'));
-
-}
-
-
-sub lock_system {
-
-  open(FH, ">$userspath/nologin") or $form->error($locale->text('Cannot create Lock!'));
-  close(FH);
-  
-  $form->{callback} = "$form->{script}?action=list_users&path=$form->{path}&sessionid=$form->{sessionid}";
-
-  $form->redirect($locale->text('Lockfile created!'));
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/am.pl b/sql-ledger/bin/mozilla/am.pl
deleted file mode 100644
index 834290343..000000000
--- a/sql-ledger/bin/mozilla/am.pl
+++ /dev/null
@@ -1,2394 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# administration
-#
-#======================================================================
-
-
-use SL::AM;
-use SL::CA;
-use SL::Form;
-use SL::User;
-use SL::RP;
-use SL::GL;
-
-
-1;
-# end of main
-
-
-
-sub add { &{ "add_$form->{type}" } };
-sub edit { &{ "edit_$form->{type}" } };
-sub save { &{ "save_$form->{type}" } };
-sub delete { &{ "delete_$form->{type}" } };
-
-
-sub save_as_new {
-
-  delete $form->{id};
-
-  &save;
-
-}
-
-
-sub add_account {
-  
-  $form->{title} = "Add";
-  $form->{charttype} = "A";
-  
-  $form->{callback} = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &account_header;
-  &form_footer;
-  
-}
-
-
-sub edit_account {
-  
-  $form->{title} = "Edit";
-  
-  $form->{accno} =~ s/\\'/'/g;
-  $form->{accno} =~ s/\\\\/\\/g;
- 
-  AM->get_account(\%myconfig, \%$form);
-  
-  foreach my $item (split(/:/, $form->{link})) {
-    $form->{$item} = "checked";
-  }
-
-  &account_header;
-  &form_footer;
-
-}
-
-
-sub account_header {
-
-  $form->{title} = $locale->text("$form->{title} Account");
-  
-  $checked{$form->{charttype}} = "checked";
-  $checked{"$form->{category}_"} = "checked";
-  $checked{CT_tax} = ($form->{CT_tax}) ? "" : "checked";
-  
-  map { $form->{$_} = $form->quote($form->{$_}) } qw(accno description);
-
-# this is for our parser only!
-# type=submit $locale->text('Add Account')
-# type=submit $locale->text('Edit Account')
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=account>
-
-<input type=hidden name=inventory_accno_id value=$form->{inventory_accno_id}>
-<input type=hidden name=income_accno_id value=$form->{income_accno_id}>
-<input type=hidden name=expense_accno_id value=$form->{expense_accno_id}>
-<input type=hidden name=fxgain_accno_id values=$form->{fxgain_accno_id}>
-<input type=hidden name=fxloss_accno_id values=$form->{fxloss_accno_id}>
-
-<table border=0 width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Account Number').qq|</th>
-	  <td><input name=accno size=20 value="$form->{accno}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Description').qq|</th>
-	  <td><input name=description size=40 value="$form->{description}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Account Type').qq|</th>
-	  <td>
-	    <table>
-	      <tr valign=top>
-		<td><input name=category type=radio class=radio value=A $checked{A_}>&nbsp;|.$locale->text('Asset').qq|\n<br>
-		<input name=category type=radio class=radio value=C $checked{C_}>&nbsp;|.$locale->text('Contra').qq|\n<br>
-		<input name=category type=radio class=radio value=L $checked{L_}>&nbsp;|.$locale->text('Liability').qq|\n<br>
-		<input name=category type=radio class=radio value=Q $checked{Q_}>&nbsp;|.$locale->text('Equity').qq|\n<br>
-		<input name=category type=radio class=radio value=I $checked{I_}>&nbsp;|.$locale->text('Income').qq|\n<br>
-		<input name=category type=radio class=radio value=E $checked{E_}>&nbsp;|.$locale->text('Expense')
-		.qq|</td>
-		<td width=50>&nbsp;</td>
-		<td>
-		<input name=charttype type=radio class=radio value="H" $checked{H}>&nbsp;|.$locale->text('Heading').qq|<br>
-		<input name=charttype type=radio class=radio value="A" $checked{A}>&nbsp;|.$locale->text('Account')
-		.qq|</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-
-
-if ($form->{charttype} eq "A") {
-  print qq|
-	<tr>
-	  <td colspan=2>
-	    <table>
-	      <tr>
-		<th align=left>|.$locale->text('Is this a summary account to record').qq|</th>
-		<td>
-		<input name=AR type=checkbox class=checkbox value=AR $form->{AR}>&nbsp;|.$locale->text('AR')
-		.qq|&nbsp;<input name=AP type=checkbox class=checkbox value=AP $form->{AP}>&nbsp;|.$locale->text('AP')
-		.qq|&nbsp;<input name=IC type=checkbox class=checkbox value=IC $form->{IC}>&nbsp;|.$locale->text('Inventory')
-		.qq|</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-	<tr>
-	  <th colspan=2>|.$locale->text('Include in drop-down menus').qq|</th>
-	</tr>
-	<tr valign=top>
-	  <td colspan=2>
-	    <table width=100%>
-	      <tr>
-		<th align=left>|.$locale->text('Receivables').qq|</th>
-		<th align=left>|.$locale->text('Payables').qq|</th>
-		<th align=left>|.$locale->text('Parts Inventory').qq|</th>
-		<th align=left>|.$locale->text('Service Items').qq|</th>
-		<th align=left>|.$locale->text('Labor/Overhead').qq|</th>
-	      </tr>
-	      <tr>
-		<td>
-		<input name=AR_amount type=checkbox class=checkbox value=AR_amount $form->{AR_amount}>&nbsp;|.$locale->text('Income').qq|\n<br>
-		<input name=AR_paid type=checkbox class=checkbox value=AR_paid $form->{AR_paid}>&nbsp;|.$locale->text('Payment').qq|\n<br>
-		<input name=AR_tax type=checkbox class=checkbox value=AR_tax $form->{AR_tax}>&nbsp;|.$locale->text('Tax') .qq|
-		</td>
-		<td>
-		<input name=AP_amount type=checkbox class=checkbox value=AP_amount $form->{AP_amount}>&nbsp;|.$locale->text('Expense/Asset').qq|\n<br>
-		<input name=AP_paid type=checkbox class=checkbox value=AP_paid $form->{AP_paid}>&nbsp;|.$locale->text('Payment').qq|\n<br>
-		<input name=AP_tax type=checkbox class=checkbox value=AP_tax $form->{AP_tax}>&nbsp;|.$locale->text('Tax') .qq|
-		</td>
-		<td>
-		<input name=IC_sale type=checkbox class=checkbox value=IC_sale $form->{IC_sale}>&nbsp;|.$locale->text('Income').qq|\n<br>
-		<input name=IC_cogs type=checkbox class=checkbox value=IC_cogs $form->{IC_cogs}>&nbsp;|.$locale->text('COGS').qq|\n<br>
-		<input name=IC_taxpart type=checkbox class=checkbox value=IC_taxpart $form->{IC_taxpart}>&nbsp;|.$locale->text('Tax') .qq|
-		</td>
-		<td>
-		<input name=IC_income type=checkbox class=checkbox value=IC_income $form->{IC_income}>&nbsp;|.$locale->text('Income').qq|\n<br>
-		<input name=IC_expense type=checkbox class=checkbox value=IC_expense $form->{IC_expense}>&nbsp;|.$locale->text('Expense').qq|\n<br>
-		<input name=IC_taxservice type=checkbox class=checkbox value=IC_taxservice $form->{IC_taxservice}>&nbsp;|.$locale->text('Tax') .qq|
-		</td>
-		<td>
-		<br>
-		<input name=IC_cogs type=checkbox class=checkbox value=IC_cogs $form->{IC_cogs}>&nbsp;|.$locale->text('COGS').qq|\n<br>
-		</td>
-	      </tr>
-	    </table>
-	  </td>  
-	</tr>  
-	<tr>
-	  <td colspan=2>
-	    <table>
-	      <tr>
-		<th align=left>|.$locale->text('Include this account on the customer/vendor forms to flag customer/vendor as taxable?').qq|</th>
-		<td>
-		  <input name=CT_tax type=radio class=radio value=CT_tax $form->{CT_tax}>&nbsp;|.$locale->text('Yes').qq|&nbsp;
-		  <input name=CT_tax type=radio class=radio value="" $checked{CT_tax}>&nbsp;|.$locale->text('No')
-		.qq|
-		</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-}
-
-print qq|
-        <tr>
-	  <th align=right>|.$locale->text('GIFI').qq|</th>
-	  <td><input name=gifi_accno size=9 value=$form->{gifi_accno}></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub form_footer {
-
-  print qq|
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
-|;
-
-  if ($form->{id}) {
-    print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Save as new').qq|">
-|;
-  }
-
-  if ($form->{id} && $form->{orphaned}) {
-    print qq|<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|;
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-	      
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-  
-sub save_account {
-
-  $form->isblank("accno", $locale->text('Account Number missing!'));
-  $form->isblank("category", $locale->text('Account Type missing!'));
-  
-  # check for conflicting accounts
-  if ($form->{AR} || $form->{AP} || $form->{IC}) {
-    map { $a .= $form->{$_} } qw(AR AP IC);
-    $form->error($locale->text('Cannot set account for more than one of AR, AP or IC')) if length $a > 2;
-
-    map { $form->error("$form->{AR}$form->{AP}$form->{IC} ". $locale->text('account cannot be set to any other type of account')) if $form->{$_} } qw(AR_amount AR_tax AR_paid AP_amount AP_tax AP_paid IC_sale IC_cogs IC_taxpart IC_income IC_expense IC_taxservice);
-  }
-
-  foreach $item ("AR", "AP") {
-    $i = 0;
-    map { $i++ if $form->{$_} } ("${item}_amount", "${item}_paid", "${item}_tax");
-    $form->error($locale->text('Cannot set multiple options for')." $item") if $i > 1;
-  }
-  
-  $i = 0;
-  map { $i++ if $form->{$_} } qw(IC_sale IC_cogs IC_taxpart);
-  $form->error($locale->text('Cannot set multiple options for Parts Inventory')) if $i > 1;
-
-  $i = 0;
-  map { $i++ if $form->{$_} } qw(IC_income IC_expense IC_taxservice);
-  $form->error($locale->text('Cannot set multiple options for Service Items')) if $i > 1;
-  
-  $form->redirect($locale->text('Account saved!')) if (AM->save_account(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot save account!'));
-
-}
-
-
-sub list_account {
-
-  CA->all_accounts(\%myconfig, \%$form);
-
-  $form->{title} = $locale->text('Chart of Accounts');
-  
-  # construct callback
-  $callback = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  @column_index = qw(accno gifi_accno description debit credit link);
-
-  $column_header{accno} = qq|<th class=listtop>|.$locale->text('Account').qq|</a></th>|;
-  $column_header{gifi_accno} = qq|<th class=listtop>|.$locale->text('GIFI').qq|</a></th>|;
-  $column_header{description} = qq|<th class=listtop>|.$locale->text('Description').qq|</a></th>|;
-  $column_header{debit} = qq|<th class=listtop>|.$locale->text('Debit').qq|</a></th>|;
-  $column_header{credit} = qq|<th class=listtop>|.$locale->text('Credit').qq|</a></th>|;
-  $column_header{link} = qq|<th class=listtop>|.$locale->text('Link').qq|</a></th>|;
-
-
-  $form->header;
-  $colspan = $#column_index + 1;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop colspan=$colspan>$form->{title}</th>
-  </tr>
-  <tr height=5></tr>
-  <tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-</tr>
-|;
-
-  # escape callback
-  $callback = $form->escape($callback);
-  
-  foreach $ca (@{ $form->{CA} }) {
-    
-    $ca->{debit} = "&nbsp;";
-    $ca->{credit} = "&nbsp;";
-
-    if ($ca->{amount} > 0) {
-      $ca->{credit} = $form->format_amount(\%myconfig, $ca->{amount}, 2, "&nbsp;");
-    }
-    if ($ca->{amount} < 0) {
-      $ca->{debit} = $form->format_amount(\%myconfig, -$ca->{amount}, 2, "&nbsp;");
-    }
-
-    $ca->{link} =~ s/:/<br>/og;
-
-    if ($ca->{charttype} eq "H") {
-      print qq|<tr class=listheading>|;
-
-      $column_data{accno} = qq|<th><a class=listheading href=$form->{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}</a></th>|;
-      $column_data{gifi_accno} = qq|<th class=listheading><a href=$form->{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{gifi_accno}</a>&nbsp;</th>|;
-      $column_data{description} = qq|<th class=listheading>$ca->{description}&nbsp;</th>|;
-      $column_data{debit} = qq|<th>&nbsp;</th>|;
-      $column_data{credit} = qq| <th>&nbsp;</th>|;
-      $column_data{link} = qq|<th>&nbsp;</th>|;
-
-    } else {
-      $i++; $i %= 2;
-      print qq|
-<tr valign=top class=listrow$i>|;
-      $column_data{accno} = qq|<td><a href=$form->{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}</a></td>|;
-      $column_data{gifi_accno} = qq|<td><a href=$form->{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{gifi_accno}</a>&nbsp;</td>|;
-      $column_data{description} = qq|<td>$ca->{description}&nbsp;</td>|;
-      $column_data{debit} = qq|<td align=right>$ca->{debit}</td>|;
-      $column_data{credit} = qq|<td align=right>$ca->{credit}</td>|;
-      $column_data{link} = qq|<td>$ca->{link}&nbsp;</td>|;
-      
-    }
-
-    map { print "$column_data{$_}\n" } @column_index;
-    
-    print "</tr>\n";
-  }
-  
-  print qq|
-  <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
-</table>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub delete_account {
-
-  $form->{title} = $locale->text('Delete Account');
-
-  foreach $id (qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)) {
-    if ($form->{id} == $form->{$id}) {
-      $form->error($locale->text('Cannot delete default account!'));
-    }
-  }
-
-  $form->redirect($locale->text('Account deleted!')) if (AM->delete_account(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot delete account!'));
-
-}
-
-
-sub list_gifi {
-
-  @{ $form->{fields} } = qw(accno description);
-  $form->{table} = "gifi";
-  
-  AM->gifi_accounts(\%myconfig, \%$form);
-
-  $form->{title} = $locale->text('GIFI');
-  
-  # construct callback
-  $callback = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  @column_index = qw(accno description);
-
-  $column_header{accno} = qq|<th class=listheading>|.$locale->text('GIFI').qq|</a></th>|;
-  $column_header{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</a></th>|;
-
-
-  $form->header;
-  $colspan = $#column_index + 1;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop colspan=$colspan>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-</tr>
-|;
-
-  # escape callback
-  $callback = $form->escape($callback);
-  
-  foreach $ca (@{ $form->{ALL} }) {
-    
-    $i++; $i %= 2;
-    
-    print qq|
-<tr valign=top class=listrow$i>|;
-    
-    $column_data{accno} = qq|<td><a href=$form->{script}?action=edit_gifi&coa=1&accno=$ca->{accno}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}</td>|;
-    $column_data{description} = qq|<td>$ca->{description}&nbsp;</td>|;
-    
-    map { print "$column_data{$_}\n" } @column_index;
-    
-    print "</tr>\n";
-  }
-  
-  print qq|
-  <tr>
-    <td colspan=$colspan><hr size=3 noshade></td>
-  </tr>
-</table>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub add_gifi {
-  $form->{title} = "Add";
-  
-  # construct callback
-  $form->{callback} = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  $form->{coa} = 1;
-  
-  &gifi_header;
-  &gifi_footer;
-  
-}
-
-
-sub edit_gifi {
-  
-  $form->{title} = "Edit";
-  
-  AM->get_gifi(\%myconfig, \%$form);
-
-  $form->error($locale->text('Account does not exist!')) unless $form->{accno};
-  
-  &gifi_header;
-  &gifi_footer;
-  
-}
-
-
-sub gifi_header {
-
-  $form->{title} = $locale->text("$form->{title} GIFI");
-  
-# $locale->text('Add GIFI')
-# $locale->text('Edit GIFI')
-
-  map { $form->{$_} = $form->quote($form->{$_}) } qw(accno description);
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value="$form->{accno}">
-<input type=hidden name=type value=gifi>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('GIFI').qq|</th>
-	  <td><input name=accno size=20 value="$form->{accno}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Description').qq|</th>
-	  <td><input name=description size=60 value="$form->{description}"></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub gifi_footer {
-
-  print qq|
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br><input type=submit class=submit name=action value="|.$locale->text('Save').qq|">|;
-
-  if ($form->{coa}) {
-    print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Copy to COA').qq|">
-|;
-
-    if ($form->{accno} && $form->{orphaned}) {
-      print qq|<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|;
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub save_gifi {
-
-  $form->isblank("accno", $locale->text('GIFI missing!'));
-  AM->save_gifi(\%myconfig, \%$form);
-  $form->redirect($locale->text('GIFI saved!'));
-
-}
-
-
-sub copy_to_coa {
-
-  $form->isblank("accno", $locale->text('GIFI missing!'));
-
-  AM->save_gifi(\%myconfig, \%$form);
-
-  delete $form->{id};
-  $form->{gifi_accno} = $form->{accno};
-  
-  $form->{title} = "Add";
-  $form->{charttype} = "A";
-  
-  &account_header;
-  &form_footer;
-  
-}
-
-
-sub delete_gifi {
-
-  AM->delete_gifi(\%myconfig, \%$form);
-  $form->redirect($locale->text('GIFI deleted!'));
-
-}
-
-
-sub add_department {
-
-  $form->{title} = "Add";
-  $form->{role} = "P";
-  
-  $form->{callback} = "$form->{script}?action=add_department&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &department_header;
-  &form_footer;
-
-}
-
-
-sub edit_department {
-
-  $form->{title} = "Edit";
-
-  AM->get_department(\%myconfig, \%$form);
-
-  &department_header;
-  &form_footer;
-
-}
-
-
-sub list_department {
-
-  AM->departments(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  $form->sort_order();
-  
-  $form->{callback} = "$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $callback = $form->escape($form->{callback});
-  
-  $form->{title} = $locale->text('Departments');
-
-  @column_index = qw(description cost profit);
-
-  $column_header{description} = qq|<th width=90%><a class=listheading href=$href>|.$locale->text('Description').qq|</a></th>|;
-  $column_header{cost} = qq|<th class=listheading nowrap>|.$locale->text('Cost Center').qq|</th>|;
-  $column_header{profit} = qq|<th class=listheading nowrap>|.$locale->text('Profit Center').qq|</th>|;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  foreach $ref (@{ $form->{ALL} }) {
-    
-    $i++; $i %= 2;
-    
-    print qq|
-        <tr valign=top class=listrow$i>
-|;
-
-   $costcenter = ($ref->{role} eq "C") ? "*" : "&nbsp;";
-   $profitcenter = ($ref->{role} eq "P") ? "*" : "&nbsp;";
-   
-   $column_data{description} = qq|<td><a href=$form->{script}?action=edit_department&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|;
-   $column_data{cost} = qq|<td align=center>$costcenter</td>|;
-   $column_data{profit} = qq|<td align=center>$profitcenter</td>|;
-
-   map { print "$column_data{$_}\n" } @column_index;
-
-   print qq|
-	</tr>
-|;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-  <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=department>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Add Department').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-  
-  </body>
-  </html> 
-|;
-  
-}
-
-
-sub department_header {
-
-  $form->{title} = $locale->text("$form->{title} Department");
-
-# $locale->text('Add Department')
-# $locale->text('Edit Department')
-
-  $form->{description} = $form->quote($form->{description});
-
-  if (($rows = $form->numtextrows($form->{description}, 60)) > 1) {
-    $description = qq|<textarea name="description" rows=$rows cols=60 wrap=soft>$form->{description}</textarea>|;
-  } else {
-    $description = qq|<input name=description size=60 value="$form->{description}">|;
-  }
-
-  $costcenter = "checked" if $form->{role} eq "C";
-  $profitcenter = "checked" if $form->{role} eq "P";
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=department>
-
-<table width=100%>
-  <tr>
-    <th class=listtop colspan=2>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <th align=right>|.$locale->text('Description').qq|</th>
-    <td>$description</td>
-  </tr>
-  <tr>
-    <td></td>
-    <td><input type=radio style=radio name=role value="C" $costcenter> |.$locale->text('Cost Center').qq|
-        <input type=radio style=radio name=role value="P" $profitcenter> |.$locale->text('Profit Center').qq|
-    </td>
-  <tr>
-    <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub save_department {
-
-  $form->isblank("description", $locale->text('Description missing!'));
-  AM->save_department(\%myconfig, \%$form);
-  $form->redirect($locale->text('Department saved!'));
-
-}
-
-
-sub delete_department {
-
-  AM->delete_department(\%myconfig, \%$form);
-  $form->redirect($locale->text('Department deleted!'));
-
-}
-
-
-sub add_business {
-
-  $form->{title} = "Add";
-  
-  $form->{callback} = "$form->{script}?action=add_business&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &business_header;
-  &form_footer;
-
-}
-
-
-sub edit_business {
-
-  $form->{title} = "Edit";
-
-  AM->get_business(\%myconfig, \%$form);
-
-  &business_header;
-
-  $form->{orphaned} = 1;
-  &form_footer;
-
-}
-
-
-sub list_business {
-
-  AM->business(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  $form->sort_order();
-  
-  $form->{callback} = "$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $callback = $form->escape($form->{callback});
-  
-  $form->{title} = $locale->text('Type of Business');
-
-  @column_index = qw(description discount);
-
-  $column_header{description} = qq|<th width=90%><a class=listheading href=$href>|.$locale->text('Description').qq|</a></th>|;
-  $column_header{discount} = qq|<th class=listheading>|.$locale->text('Discount').qq| %</th>|;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  foreach $ref (@{ $form->{ALL} }) {
-    
-    $i++; $i %= 2;
-    
-    print qq|
-        <tr valign=top class=listrow$i>
-|;
-
-   $discount = $form->format_amount(\%myconfig, $ref->{discount} * 100, 2, "&nbsp");
-   
-   $column_data{description} = qq|<td><a href=$form->{script}?action=edit_business&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|;
-   $column_data{discount} = qq|<td align=right>$discount</td>|;
-   
-   map { print "$column_data{$_}\n" } @column_index;
-
-   print qq|
-	</tr>
-|;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-  <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=business>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Add Business').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  
-  </form>
-  
-  </body>
-  </html> 
-|;
-  
-}
-
-
-sub business_header {
-
-  $form->{title} = $locale->text("$form->{title} Business");
-
-# $locale->text('Add Business')
-# $locale->text('Edit Business')
-
-  $form->{description} = $form->quote($form->{description});
-  $form->{discount} = $form->format_amount(\%myconfig, $form->{discount} * 100);
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=business>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Type of Business').qq|</th>
-	  <td><input name=description size=30 value="$form->{description}"></td>
-	<tr>
-	<tr>
-	  <th align=right>|.$locale->text('Discount').qq| %</th>
-	  <td><input name=discount size=5 value=$form->{discount}></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub save_business {
-
-  $form->isblank("description", $locale->text('Description missing!'));
-  AM->save_business(\%myconfig, \%$form);
-  $form->redirect($locale->text('Business saved!'));
-
-}
-
-
-sub delete_business {
-
-  AM->delete_business(\%myconfig, \%$form);
-  $form->redirect($locale->text('Business deleted!'));
-
-}
-
-
-
-sub add_sic {
-
-  $form->{title} = "Add";
-  
-  $form->{callback} = "$form->{script}?action=add_sic&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &sic_header;
-  &form_footer;
-
-}
-
-
-sub edit_sic {
-
-  $form->{title} = "Edit";
-
-  $form->{code} =~ s/\\'/'/g;
-  $form->{code} =~ s/\\\\/\\/g;
-  
-  AM->get_sic(\%myconfig, \%$form);
-  $form->{id} = $form->{code};
-
-  &sic_header;
-
-  $form->{orphaned} = 1;
-  &form_footer;
-
-}
-
-
-sub list_sic {
-
-  AM->sic(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $form->sort_order();
-
-  $form->{callback} = "$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $callback = $form->escape($form->{callback});
-  
-  $form->{title} = $locale->text('Standard Industrial Codes');
-
-  @column_index = $form->sort_columns(qw(code description));
-
-  $column_header{code} = qq|<th><a class=listheading href=$href&sort=code>|.$locale->text('Code').qq|</a></th>|;
-  $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  foreach $ref (@{ $form->{ALL} }) {
-    
-    $i++; $i %= 2;
-    
-    if ($ref->{sictype} eq 'H') {
-      print qq|
-        <tr valign=top class=listheading>
-|;
-      $column_data{code} = qq|<th><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</th>|;
-      $column_data{description} = qq|<th>$ref->{description}</th>|;
-     
-    } else {
-      print qq|
-        <tr valign=top class=listrow$i>
-|;
-
-      $column_data{code} = qq|<td><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</td>|;
-      $column_data{description} = qq|<td>$ref->{description}</td>|;
-
-   }
-    
-   map { print "$column_data{$_}\n" } @column_index;
-
-   print qq|
-	</tr>
-|;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-  <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=sic>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Add SIC').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-  
-  </body>
-  </html> 
-|;
-  
-}
-
-
-sub sic_header {
-
-  $form->{title} = $locale->text("$form->{title} SIC");
-
-# $locale->text('Add SIC')
-# $locale->text('Edit SIC')
-
-  map { $form->{$_} = $form->quote($form->{$_}) } qw(code description);
-
-  $checked = ($form->{sictype} eq 'H') ? "checked" : "";
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=type value=sic>
-<input type=hidden name=id value="$form->{code}">
-
-<table width=100%>
-  <tr>
-    <th class=listtop colspan=2>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <th align=right>|.$locale->text('Code').qq|</th>
-    <td><input name=code size=10 value="$form->{code}"></td>
-  <tr>
-  <tr>
-    <td></td>
-    <th align=left><input name=sictype type=checkbox style=checkbox value="H" $checked> |.$locale->text('Heading').qq|</th>
-  <tr>
-  <tr>
-    <th align=right>|.$locale->text('Description').qq|</th>
-    <td><input name=description size=60 value="$form->{description}"></td>
-  </tr>
-    <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub save_sic {
-
-  $form->isblank("code", $locale->text('Code missing!'));
-  $form->isblank("description", $locale->text('Description missing!'));
-  AM->save_sic(\%myconfig, \%$form);
-  $form->redirect($locale->text('SIC saved!'));
-
-}
-
-
-sub delete_sic {
-
-  AM->delete_sic(\%myconfig, \%$form);
-  $form->redirect($locale->text('SIC deleted!'));
-
-}
-
-
-sub add_language {
-
-  $form->{title} = "Add";
-  
-  $form->{callback} = "$form->{script}?action=add_language&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &language_header;
-  &form_footer;
-
-}
-
-
-sub edit_language {
-
-  $form->{title} = "Edit";
-
-  $form->{code} =~ s/\\'/'/g;
-  $form->{code} =~ s/\\\\/\\/g;
-  
-  AM->get_language(\%myconfig, \%$form);
-  $form->{id} = $form->{code};
-
-  &language_header;
-
-  $form->{orphaned} = 1;
-  &form_footer;
-
-}
-
-
-sub list_language {
-
-  AM->language(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $form->sort_order();
-
-  $form->{callback} = "$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $callback = $form->escape($form->{callback});
-  
-  $form->{title} = $locale->text('Languages');
-
-  @column_index = $form->sort_columns(qw(code description));
-
-  $column_header{code} = qq|<th><a class=listheading href=$href&sort=code>|.$locale->text('Code').qq|</a></th>|;
-  $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  foreach $ref (@{ $form->{ALL} }) {
-    
-    $i++; $i %= 2;
-
-    print qq|
-        <tr valign=top class=listrow$i>
-|;
-
-    $column_data{code} = qq|<td><a href=$form->{script}?action=edit_language&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</td>|;
-    $column_data{description} = qq|<td>$ref->{description}</td>|;
-    
-   map { print "$column_data{$_}\n" } @column_index;
-
-   print qq|
-	</tr>
-|;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-  <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=language>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Add Language').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-  
-  </body>
-  </html> 
-|;
-  
-}
-
-
-sub language_header {
-
-  $form->{title} = $locale->text("$form->{title} Language");
-
-# $locale->text('Add Language')
-# $locale->text('Edit Language')
-
-  map { $form->{$_} = $form->quote($form->{$_}) } qw(code description);
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=type value=language>
-<input type=hidden name=id value="$form->{code}">
-
-<table width=100%>
-  <tr>
-    <th class=listtop colspan=2>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <th align=right>|.$locale->text('Code').qq|</th>
-    <td><input name=code size=10 value="$form->{code}"></td>
-  <tr>
-  <tr>
-    <th align=right>|.$locale->text('Description').qq|</th>
-    <td><input name=description size=60 value="$form->{description}"></td>
-  </tr>
-    <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub save_language {
-
-  $form->isblank("code", $locale->text('Code missing!'));
-  $form->isblank("description", $locale->text('Description missing!'));
-  AM->save_language(\%myconfig, \%$form);
-  $form->redirect($locale->text('Language saved!'));
-
-}
-
-
-sub delete_language {
-
-  AM->delete_language(\%myconfig, \%$form);
-  $form->redirect($locale->text('Language deleted!'));
-
-}
-
-
-sub display_stylesheet {
-  
-  $form->{file} = "css/$myconfig{stylesheet}";
-  &display_form;
-  
-}
-
-
-sub display_form {
-
-  $form->{file} =~ s/^(.:)*?\/|\.\.\///g; 
-  $form->{file} =~ s/^\/*//g;
-  $form->{file} =~ s/$userspath//;
-
-  $form->error("$!: $form->{file}") unless -f $form->{file};
-
-  AM->load_template(\%$form);
-
-  $form->{title} = $form->{file};
-
-  # if it is anything but html
-  if ($form->{file} !~ /\.html$/) {
-    $form->{body} = "<pre>\n$form->{body}\n</pre>";
-  }
-    
-  $form->header;
-
-  print qq|
-<body>
-
-$form->{body}
-
-<form method=post action=$form->{script}>
-
-<input name=file type=hidden value=$form->{file}>
-<input name=type type=hidden value=template>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input name=action type=submit class=submit value="|.$locale->text('Edit').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub edit_template {
-
-  AM->load_template(\%$form);
-
-  $form->{title} = $locale->text('Edit Template');
-  # convert &nbsp to &amp;nbsp;
-  $form->{body} =~ s/&nbsp;/&amp;nbsp;/gi;
-  
-
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input name=file type=hidden value=$form->{file}>
-<input name=type type=hidden value=template>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input name=callback type=hidden value="$form->{script}?action=display_form&file=$form->{file}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}">
-
-<textarea name=body rows=25 cols=70>
-$form->{body}
-</textarea>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print q|
-  </form>
-
-
-</body>
-</html>
-|;
-
-}
-
-
-sub save_template {
-
-  AM->save_template(\%$form);
-  $form->redirect($locale->text('Template saved!'));
-  
-}
-
-
-sub defaults {
-  
-  # get defaults for account numbers and last numbers
-  AM->defaultaccounts(\%myconfig, \%$form);
-
-  foreach $key (keys %{ $form->{IC} }) {
-    foreach $accno (sort keys %{ $form->{IC}{$key} }) {
-      $form->{account}{$key} .= ($form->{IC}{$key}{$accno}{id} == $form->{defaults}{$key}) ? "<option selected>$accno--$form->{IC}{$key}{$accno}{description}\n" : "<option>$accno--$form->{IC}{$key}{$accno}{description}\n";
-    }
-  }
-
-  $form->{title} = $locale->text('System Defaults');
-  
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=type value=defaults>
-
-<table width=100%>
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Business Number').qq|</th>
-	  <td><input name=businessnumber size=25 value="$form->{defaults}{businessnumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Weight Unit').qq|</th>
-	  <td><input name=weightunit size=5 value="$form->{defaults}{weightunit}"></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <th class=listheading>|.$locale->text('Last Numbers & Default Accounts').qq|</th>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Inventory Account').qq|</th>
-	  <td><select name=inventory_accno>$form->{account}{IC}</select></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Income Account').qq|</th>
-	  <td><select name=income_accno>$form->{account}{IC_income}</select></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Expense Account').qq|</th>
-	  <td><select name=expense_accno>$form->{account}{IC_expense}</select></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Foreign Exchange Gain').qq|</th>
-	  <td><select name=fxgain_accno>$form->{account}{FX_gain}</select></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Foreign Exchange Loss').qq|</th>
-	  <td><select name=fxloss_accno>$form->{account}{FX_loss}</select></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <th align=left>|.$locale->text('Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies').qq|</th>
-  </tr>
-  <tr>
-    <td>
-    <input name=curr size=40 value="$form->{defaults}{curr}">
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Sales Invoice Number').qq|</th>
-	  <td><input name=sinumber size=40 value="$form->{defaults}{sinumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Sales Order Number').qq|</th>
-	  <td><input name=sonumber size=40 value="$form->{defaults}{sonumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Vendor Invoice Number').qq|</th>
-	  <td><input name=vinumber size=40 value="$form->{defaults}{vinumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Purchase Order Number').qq|</th>
-	  <td><input name=ponumber size=40 value="$form->{defaults}{ponumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Sales Quotation Number').qq|</th>
-	  <td><input name=sqnumber size=40 value="$form->{defaults}{sqnumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('RFQ Number').qq|</th>
-	  <td><input name=rfqnumber size=40 value="$form->{defaults}{rfqnumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Partnumber').qq|</th>
-	  <td><input name=partnumber size=40 value="$form->{defaults}{partnumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Employee Number').qq|</th>
-	  <td><input name=employeenumber size=40 value="$form->{defaults}{employeenumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Customer Number').qq|</th>
-	  <td><input name=customernumber size=40 value="$form->{defaults}{customernumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Vendor Number').qq|</th>
-	  <td><input name=vendornumber size=40 value="$form->{defaults}{vendornumber}"></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <th class=listheading>|.$locale->text('Tax Accounts').qq|</th>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th></th>
-	  <th>|.$locale->text('Rate').qq| (%)</th>
-	  <th>|.$locale->text('Number').qq|</th>
-	</tr>
-|;
-
-  foreach $accno (sort keys %{ $form->{taxrates} }) {
-    $form->{taxrates}{$accno}{rate} = $form->format_amount(\%myconfig, $form->{taxrates}{$accno}{rate});
-    
-    print qq|
-	<tr>
-	  <th align=right>$form->{taxrates}{$accno}{description}</th>
-	  <td><input name=$form->{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}></td>
-	  <td><input name="taxnumber_$form->{taxrates}{$accno}{id}" value="$form->{taxrates}{$accno}{taxnumber}"></td>
-	</tr>
-|;
-    $form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} ";
-  }
-
-  chop $form->{taxaccounts};
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-
-}
-
-
-sub config {
-
-  foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) {
-    $dateformat .= ($item eq $myconfig{dateformat}) ? "<option selected>$item\n" : "<option>$item\n";
-  }
-
-  foreach $item (qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00)) {
-    $numberformat .= ($item eq $myconfig{numberformat}) ? "<option selected>$item\n" : "<option>$item\n";
-  }
-
-  map { $myconfig{$_} = $form->quote($myconfig{$_}) } qw(name company address signature);
-  map { $myconfig{$_} =~ s/\\n/\r\n/g } qw(address signature);
-
-  %countrycodes = User->country_codes;
-  $countrycodes = '';
-  
-  foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) {
-    $countrycodes .= ($myconfig{countrycode} eq $key) ? "<option selected value=$key>$countrycodes{$key}\n" : "<option value=$key>$countrycodes{$key}\n";
-  }
-  $countrycodes = qq|<option value="">English\n$countrycodes|;
-
-  opendir CSS, "css/.";
-  @all = grep /.*\.css$/, readdir CSS;
-  closedir CSS;
-
-  foreach $item (@all) {
-    if ($item eq $myconfig{stylesheet}) {
-      $selectstylesheet .= qq|<option selected>$item\n|;
-    } else {
-      $selectstylesheet .= qq|<option>$item\n|;
-    }
-  }
-  $selectstylesheet .= "<option>\n";
-  
-  if (%printer && $latex) {
-    $selectprinter = "<option>\n";
-    foreach $item (sort keys %printer) {
-      if ($myconfig{printer} eq $item) {
-	$selectprinter .= qq|<option value="$item" selected>$item\n|;
-      } else {
-	$selectprinter .= qq|<option value="$item">$item\n|;
-      }
-    }
-
-    $printer = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Printer').qq|</th>
-		<td><select name=printer>$selectprinter</select></td>
-	      </tr>
-|;
-  }
-  
-  $form->{title} = $locale->text('Edit Preferences for').qq| $form->{login}|;
-  
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=old_password value=$myconfig{password}>
-<input type=hidden name=type value=preferences>
-<input type=hidden name=role value=$myconfig{role}>
-
-<table width=100%>
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right>|.$locale->text('Name').qq|</th>
-		<td><input name=name size=20 value="$myconfig{name}"></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('E-mail').qq|</th>
-		<td><input name=email size=35 value="$myconfig{email}"></td>
-	      </tr>
-	      <tr valign=top>
-		<th align=right>|.$locale->text('Signature').qq|</th>
-		<td><textarea name=signature rows=3 cols=35>$myconfig{signature}</textarea></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Phone').qq|</th>
-		<td><input name=tel size=14 value="$myconfig{tel}"></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Fax').qq|</th>
-		<td><input name=fax size=14 value="$myconfig{fax}"></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Company').qq|</th>
-		<td><input name=company size=35 value="$myconfig{company}"></td>
-	      </tr>
-	      <tr valign=top>
-		<th align=right>|.$locale->text('Address').qq|</th>
-		<td><textarea name=address rows=4 cols=35>$myconfig{address}</textarea></td>
-	      </tr>
-	    </table>
-	  </td>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right>|.$locale->text('Password').qq|</th>
-		<td><input type=password name=new_password size=10 value=$myconfig{password}></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Confirm').qq|</th>
-		<td><input type=password name=confirm_password size=10></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Date Format').qq|</th>
-		<td><select name=dateformat>$dateformat</select></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Number Format').qq|</th>
-		<td><select name=numberformat>$numberformat</select></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Dropdown Limit').qq|</th>
-		<td><input name=vclimit size=10 value="$myconfig{vclimit}"></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Menu Width').qq|</th>
-		<td><input name=menuwidth size=10 value="$myconfig{menuwidth}"></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Language').qq|</th>
-		<td><select name=countrycode>$countrycodes</select></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Character Set').qq|</th>
-		<td><input name=charset size=20 value="$myconfig{charset}"></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Session Timeout').qq|</th>
-		<td><input name=timeout size=10 value="$myconfig{timeout}"></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Stylesheet').qq|</th>
-		<td><select name=usestylesheet>$selectstylesheet</select></td>
-	      </tr>
-	      $printer
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub save_defaults {
-
-  $form->redirect($locale->text('Defaults saved!')) if (AM->save_defaults(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot save defaults!'));
-
-}
-
-
-sub save_preferences {
-
-  $form->{stylesheet} = $form->{usestylesheet};
-
-  if ($form->{new_password} ne $form->{old_password}) {
-    $form->error($locale->text('Password does not match!')) if $form->{new_password} ne $form->{confirm_password};
-  }
-
-  $form->redirect($locale->text('Preferences saved!')) if AM->save_preferences(\%myconfig, \%$form, $memberfile, $userspath);
-  $form->error($locale->text('Cannot save preferences!'));
-
-}
-
-
-sub backup {
-
-  if ($form->{media} eq 'email') {
-    $form->error($locale->text('No email address for')." $myconfig{name}") unless ($myconfig{email});
-    
-    $form->{OUT} = "$sendmail";
-
-  }
-
-  $SIG{INT} = 'IGNORE';
-  AM->backup(\%myconfig, \%$form, $userspath, $gzip);
-
-  if ($form->{media} eq 'email') {
-    $form->redirect($locale->text('Backup sent to').qq| $myconfig{email}|);
-  }
-
-}
-
-
-
-sub audit_control {
-
-  $form->{title} = $locale->text('Audit Control');
-
-  AM->closedto(\%myconfig, \%$form);
-  
-  if ($form->{revtrans}) {
-    $checked{revtransY} = "checked";
-  } else {
-    $checked{revtransN} = "checked";
-  }
-  
-  if ($form->{audittrail}) {
-    $checked{audittrailY} = "checked";
-  } else {
-    $checked{audittrailN} = "checked";
-  }
- 
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<table width=100%>
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Enforce transaction reversal for all dates').qq|</th>
-	  <td><input name=revtrans class=radio type=radio value="1" $checked{revtransY}> |.$locale->text('Yes').qq| <input name=revtrans class=radio type=radio value="0" $checked{revtransN}> |.$locale->text('No').qq|</td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Close Books up to').qq|</th>
-	  <td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Activate Audit trails').qq|</th>
-	  <td><input name=audittrail class=radio type=radio value="1" $checked{audittrailY}> |.$locale->text('Yes').qq| <input name=audittrail class=radio type=radio value="0" $checked{audittrailN}> |.$locale->text('No').qq|</td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Remove Audit trails up to').qq|</th>
-	  <td><input name=removeaudittrail size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-</table>
-
-<hr size=3 noshade>
-
-<br>
-<input type=hidden name=nextsub value=doclose>
-
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub doclose {
-
-  AM->closebooks(\%myconfig, \%$form);
-  
-  if ($form->{revtrans}) {
-    $msg = $locale->text('Transaction reversal enforced for all dates');
-  } else {
-    if ($form->{closedto}) {
-      $msg = $locale->text('Transaction reversal enforced up to')
-      ." ".$locale->date(\%myconfig, $form->{closedto}, 1);
-    } else {
-      $msg = $locale->text('Books are open');
-    }
-  }
-
-  $msg .= "<p>";
-  if ($form->{audittrail}) {
-    $msg .= $locale->text('Audit trails enabled');
-  } else {
-    $msg .= $locale->text('Audit trails disabled');
-  }
-
-  $msg .= "<p>";
-  if ($form->{removeaudittrail}) {
-    $msg .= $locale->text('Audit trail removed up to')
-    ." ".$locale->date(\%myconfig, $form->{removeaudittrail}, 1);
-  }
-    
-  $form->redirect($msg);
-  
-}
-
-
-sub add_warehouse {
-
-  $form->{title} = "Add";
-  
-  $form->{callback} = "$form->{script}?action=add_warehouse&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &warehouse_header;
-  &form_footer;
-
-}
-
-
-sub edit_warehouse {
-
-  $form->{title} = "Edit";
-
-  AM->get_warehouse(\%myconfig, \%$form);
-
-  &warehouse_header;
-  &form_footer;
-
-}
-
-
-sub list_warehouse {
-
-  AM->warehouses(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  $form->sort_order();
-  
-  $form->{callback} = "$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  $callback = $form->escape($form->{callback});
-  
-  $form->{title} = $locale->text('Warehouses');
-
-  @column_index = qw(description);
-
-  $column_header{description} = qq|<th width=100%><a class=listheading href=$href>|.$locale->text('Description').qq|</a></th>|;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  foreach $ref (@{ $form->{ALL} }) {
-    
-    $i++; $i %= 2;
-    
-    print qq|
-        <tr valign=top class=listrow$i>
-|;
-
-   $column_data{description} = qq|<td><a href=$form->{script}?action=edit_warehouse&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|;
-
-   map { print "$column_data{$_}\n" } @column_index;
-
-   print qq|
-	</tr>
-|;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-  <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=warehouse>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Add Warehouse').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-  
-  </body>
-  </html> 
-|;
-  
-}
-
-
-
-sub warehouse_header {
-
-  $form->{title} = $locale->text("$form->{title} Warehouse");
-
-# $locale->text('Add Warehouse')
-# $locale->text('Edit Warehouse')
-
-  $form->{description} = $form->quote($form->{description});
-
-  if (($rows = $form->numtextrows($form->{description}, 60)) > 1) {
-    $description = qq|<textarea name="description" rows=$rows cols=60 wrap=soft>$form->{description}</textarea>|;
-  } else {
-    $description = qq|<input name=description size=60 value="$form->{description}">|;
-  }
-
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=warehouse>
-
-<table width=100%>
-  <tr>
-    <th class=listtop colspan=2>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <th align=right>|.$locale->text('Description').qq|</th>
-    <td>$description</td>
-  </tr>
-  <tr>
-    <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub save_warehouse {
-
-  $form->isblank("description", $locale->text('Description missing!'));
-  AM->save_warehouse(\%myconfig, \%$form);
-  $form->redirect($locale->text('Warehouse saved!'));
-
-}
-
-
-sub delete_warehouse {
-
-  AM->delete_warehouse(\%myconfig, \%$form);
-  $form->redirect($locale->text('Warehouse deleted!'));
-
-}
-
-
-sub yearend {
-
-  AM->earningsaccounts(\%myconfig, \%$form);
-  map { $chart .= "<option>$_->{accno}--$_->{description}" } @{ $form->{chart} };
-  
-  $form->{title} = $locale->text('Yearend');
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=decimalplaces value=2>
-<input type=hidden name=l_accno value=Y>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Yearend').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}" value=$todate></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Reference').qq|</th>
-	  <td><input name=reference size=20 value="|.$locale->text('Yearend').qq|"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Description').qq|</th>
-	  <td><textarea name=description rows=3 cols=50 wrap=soft></textarea></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Retained Earnings').qq|</th>
-	  <td><select name=accno>$chart</select></td>
-	</tr>
-	<tr>
-          <th align=right>|.$locale->text('Method').qq|</th>
-          <td><input name=method class=radio type=radio value=accrual checked>&nbsp;|.$locale->text('Accrual').qq|&nbsp;<input name=method class=radio type=radio value=cash>&nbsp;|.$locale->text('Cash').qq|</td>
-        </tr>
-      </table>
-    </td>
-  </tr>
-</table>
-
-<hr size=3 noshade>
-
-<input type=hidden name=nextsub value=generate_yearend>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">|;
-
-}
-
-
-sub generate_yearend {
-
-  $form->isblank("todate", $locale->text('Yearend date missing!'));
-
-  RP->yearend_statement(\%myconfig, \%$form);
-  
-  $form->{transdate} = $form->{todate};
-
-  $earnings = 0;
-  
-  $form->{rowcount} = 1;
-  foreach $key (keys %{ $form->{I} }) {
-    if ($form->{I}{$key}{charttype} eq "A") {
-      $form->{"debit_$form->{rowcount}"} = $form->{I}{$key}{this};
-      $earnings += $form->{I}{$key}{this};
-      $form->{"accno_$form->{rowcount}"} = $key;
-      $form->{rowcount}++;
-      $ok = 1;
-    }
-  }
-
-  foreach $key (keys %{ $form->{E} }) {
-    if ($form->{E}{$key}{charttype} eq "A") {
-      $form->{"credit_$form->{rowcount}"} = $form->{E}{$key}{this} * -1;
-      $earnings += $form->{E}{$key}{this};
-      $form->{"accno_$form->{rowcount}"} = $key;
-      $form->{rowcount}++;
-      $ok = 1;
-    }
-  }
-  if ($earnings > 0) {
-    $form->{"credit_$form->{rowcount}"} = $earnings;
-    $form->{"accno_$form->{rowcount}"} = $form->{accno}
-  } else {
-    $form->{"debit_$form->{rowcount}"} = $earnings * -1;
-    $form->{"accno_$form->{rowcount}"} = $form->{accno}
-  }
-  
-  if ($ok) {
-    if (AM->post_yearend(\%myconfig, \%$form)) {
-      $form->redirect($locale->text('Yearend posted!'));
-    }
-    $form->error($locale->text('Yearend posting failed!'));
-  } else {
-    $form->error('Nothing to do!');
-  }
-  
-}
-
-
-
-sub company_logo {
-  
-  $myconfig{address} =~ s/\\n/<br>/g;
-  $myconfig{dbhost} = $locale->text('localhost') unless $myconfig{dbhost};
-
-  map { $form->{$_} = $myconfig{$_} } qw(charset stylesheet);
-  
-  $form->{title} = $locale->text('About');
-  
-  # create the logo screen
-  $form->header;
-
-  print qq|
-<body>
-
-<pre>
-
-</pre>
-<center>
-<a href="http://www.sql-ledger.org" target=_top><img src=sql-ledger.gif border=0></a>
-<h1 class=login>|.$locale->text('Version').qq| $form->{version}</h1>
-
-<p>
-|.$locale->text('Licensed to').qq|
-<p>
-<b>
-$myconfig{company}
-<br>$myconfig{address}
-</b>
-
-<p>
-<table border=0>
-  <tr>
-    <th align=right>|.$locale->text('User').qq|</th>
-    <td>$myconfig{name}</td>
-  </tr>
-  <tr>
-    <th align=right>|.$locale->text('Dataset').qq|</th>
-    <td>$myconfig{dbname}</td>
-  </tr>
-  <tr>
-    <th align=right>|.$locale->text('Database Host').qq|</th>
-    <td>$myconfig{dbhost}</td>
-  </tr>
-</table>
-
-</center>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub continue {
-    
-  &{ $form->{nextsub} };
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/ap.pl b/sql-ledger/bin/mozilla/ap.pl
deleted file mode 100644
index 30494b6e6..000000000
--- a/sql-ledger/bin/mozilla/ap.pl
+++ /dev/null
@@ -1,1439 +0,0 @@
-#=====================================================================
-# SQL-Ledger, accounting project
-# Copyright (C) 2000
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#  Contributors:
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Accounts Payable
-#
-#======================================================================
-
-
-use SL::AP;
-use SL::IR;
-use SL::PE;
-
-require "$form->{path}/arap.pl";
-require "$form->{path}/arapprn.pl";
-
-1;
-# end of main
-
-
-# this is for our long dates
-# $locale->text('January')
-# $locale->text('February')
-# $locale->text('March')
-# $locale->text('April')
-# $locale->text('May ')
-# $locale->text('June')
-# $locale->text('July')
-# $locale->text('August')
-# $locale->text('September')
-# $locale->text('October')
-# $locale->text('November')
-# $locale->text('December')
-
-# this is for our short month
-# $locale->text('Jan')
-# $locale->text('Feb')
-# $locale->text('Mar')
-# $locale->text('Apr')
-# $locale->text('May')
-# $locale->text('Jun')
-# $locale->text('Jul')
-# $locale->text('Aug')
-# $locale->text('Sep')
-# $locale->text('Oct')
-# $locale->text('Nov')
-# $locale->text('Dec')
-
-
-sub add {
-
-  $form->{title} = "Add";
-  
-  $form->{callback} = "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &create_links;
-  &display_form;
-  
-}
-
-
-sub edit {
-  
-  $form->{title} = "Edit";
-
-  &create_links;
-  &display_form;
-
-}
-
-
-sub display_form {
-  
-  &form_header;
-  &form_footer;
-
-}
-
-
-sub create_links {
-
-  $form->create_links("AP", \%myconfig, "vendor");
-
-  $duedate = $form->{duedate};
-
-  $form->{formname} = "transaction";
-  $form->{format} = "postscript" if $myconfig{printer};
-  $form->{media} = $myconfig{printer};
-  
-  # currencies
-  @curr = split /:/, $form->{currencies};
-  chomp $curr[0];
-  $form->{defaultcurrency} = $curr[0];
-
-  map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
-
-  IR->get_vendor(\%myconfig, \%$form);
-
-  $form->{duedate} = $duedate if $duedate;
-  $form->{notes} = $form->{intnotes} if !$form->{id};
-
-  $form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";
-  $form->{oldtransdate} = $form->{transdate};
-  
-  # vendors
-  if (@{ $form->{all_vendor} }) {
-    $form->{vendor} = qq|$form->{vendor}--$form->{vendor_id}|;
-    map { $form->{selectvendor} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_vendor} });
-  }
-  
-  # departments
-  if (@{ $form->{all_departments} }) {
-    $form->{selectdepartment} = "<option>\n";
-    $form->{department} = "$form->{department}--$form->{department_id}";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-
-  $form->{employee} = "$form->{employee}--$form->{employee_id}"; 
- 
-  # projects
-  if (@{ $form->{all_projects} }) {
-    $form->{selectprojectnumber} = "<option>\n";
-    map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } (@{ $form->{all_projects} });
-  }
-
-  if (@{ $form->{all_languages} }) {
-    $form->{selectlanguage} = "<option>\n";
-    map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} };
-  }
-
-  # forex
-  $form->{forex} = $form->{exchangerate};
-  $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
-  
-  foreach $key (keys %{ $form->{AP_links} }) {
-    
-    foreach $ref (@{ $form->{AP_links}{$key} }) {
-      if ($key eq "AP_tax") {
-	$form->{"selectAP_tax_$ref->{accno}"} = "<option>$ref->{accno}--$ref->{description}\n";
-	$form->{"calctax_$ref->{accno}"} = 1;
-	next;
-      }
-      $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";
-    }
-	
-    # if there is a value we have an old entry
-    for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
-
-      if ($key eq "AP_paid") {
-	$form->{"AP_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
-	$form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount};
-	$form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate};
-	$form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source};
-	$form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo};
-	
-	$form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate};
-	
-	$form->{paidaccounts}++;
-      } else {
-
-        $akey = $key;
-        $akey =~ s/AP_//;
-
-	if ($key eq "AP_tax") {
-	  $form->{"${key}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
-	  $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = $form->round_amount($form->{acc_trans}{$key}->[$i-1]->{amount} / $exchangerate * -1, 2);
-	  if ($form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"} > 0) {
-	    $totaltax += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"};
-	    $taxrate += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"};
-	  } else {
-	    $totalwithholding += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"};
-	    $withholdingrate += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"};
-	  }
-
-	} else {
-	  $form->{"${akey}_$i"} = $form->round_amount($form->{acc_trans}{$key}->[$i-1]->{amount} / $exchangerate, 2);
-	  if ($akey eq 'amount') {
-	    $form->{"${akey}_$i"} *= -1;
-	    $totalamount += $form->{"${akey}_$i"};
-	    $form->{rowcount}++;
-	    
-	    $form->{"projectnumber_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{projectnumber}--$form->{acc_trans}{$key}->[$i-1]->{project_id}";
-	  }
-	  $form->{"${key}_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
-	}
-      }
-    }
-  }
-
-  $form->{paidaccounts} = 1 if not defined $form->{paidaccounts};
-
-  if ($form->{taxincluded} && $totalamount) {
-  # add tax to amounts and invtotal
-    for $i (1 .. $form->{rowcount}) {
-      $taxamount = ($totaltax + $totalwithholding) * $form->{"amount_$i"} / $totalamount;
-      $tax = $form->round_amount($taxamount, 2);
-      $diff += ($taxamount - $tax);
-      $form->{"amount_$i"} += $tax;
-    }
-    $form->{amount_1} += $form->round_amount($diff, 2);
-  }
-
-  # check if calculated is equal to stored
-  foreach $item (split / /, $form->{taxaccounts}) {
-    if ($form->{taxincluded}) {
-      if ($form->{"${item}_rate"} > 0) {
-	if ($taxrate) {
-	  $taxamount = $form->round_amount(($totalamount + $totaltax + $totalwithholding) * $taxrate / (1 + $taxrate), 2) * $form->{"${item}_rate"} / $taxrate;
-	}
-      } else {
-	if ($withholdingrate) {
-	  $taxamount = $form->round_amount(($totalamount + $totaltax + $totalwithholding) * $withholdingrate / (1 - $withholdingrate), 2) * $form->{"${item}_rate"} / $withholdingrate;
-	}
-      }
-    } else {
-      $taxamount = $totalamount * $form->{"${item}_rate"};
-    }
-    $taxamount = $form->round_amount($taxamount, 2);
-
-    $form->{"calctax_$item"} = 0;
-    if ($form->{"tax_$item"} == $taxamount) {
-      $form->{"calctax_$item"} = 1;
-    }
-  }
-  
-  $form->{invtotal} = $totalamount + $totaltax + $totalwithholding;
-  $form->{rowcount}++ if $form->{id};
-  
-  $form->{AP} = $form->{AP_1};
-  $form->{rowcount} = 1 unless $form->{AP_amount_1};
-  
-  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
-
-  # readonly
-  $form->{readonly} = 1 if $myconfig{acs} =~ /AP--Add Transaction/;
-
-}
-
-
-sub form_header {
-
-  $title = $form->{title};
-  $form->{title} = $locale->text("$title AP Transaction");
-
-  $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
-  
-# type=submit $locale->text('Add AP Transaction')
-# type=submit $locale->text('Edit AP Transaction')
-
-  # set option selected
-  foreach $item (qw(AP currency)) {
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
-  }
-  
-  foreach $item (qw(vendor department)) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"});
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/;
-  }
-
-  $form->{selectprojectnumber} = $form->unescape($form->{selectprojectnumber});
-
-  # format amounts
-  $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
-
-  $exchangerate = qq|
-<input type=hidden name=forex value=$form->{forex}>
-|;
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    if ($form->{forex}) {
-      $exchangerate .= qq|
-	      <th align=right>|.$locale->text('Exchange Rate').qq|</th>
-              <td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td>
-|;
-    } else {
-      $exchangerate .= qq|
-	     <th align=right>|.$locale->text('Exchange Rate').qq|</th>
-             <td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
-|;
-    }
-  }
-  
-  $taxincluded = "";
-  if ($form->{taxaccounts}) {
-    $taxincluded = qq|
-            <tr>
-              <td align=right><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
-              <th align=left nowrap>|.$locale->text('Tax Included').qq|</th>
-            </tr>
-|;
-  }
-
-
-  if (($rows = $form->numtextrows($form->{notes}, 50)) < 2) {
-    $rows = 2;
-  }
-  $notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
-  
-  $department = qq|
-              <tr>
-	        <th align="right" nowrap>|.$locale->text('Department').qq|</th>
-		<td colspan=3><select name=department>$form->{selectdepartment}</select>
-		<input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|">
-		</td>
-	      </tr>
-| if $form->{selectdepartment};
-
-  $n = ($form->{creditremaining} < 0) ? "0" : "1";
-  
-  $vendor = ($form->{selectvendor}) ? qq|<select name=vendor>$form->{selectvendor}</select>| : qq|<input name=vendor value="$form->{vendor}" size=35>|; 
-
-  
-  $form->header;
- 
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-
-<input type=hidden name=type value="transaction">
-<input type=hidden name=vc value="vendor">
-
-<input type=hidden name=queued value="$form->{queued}">
-<input type=hidden name=printed value="$form->{printed}">
-<input type=hidden name=emailed value="$form->{emailed}">
-
-<input type=hidden name=sort value=$form->{sort}>
-
-<input type=hidden name=closedto value=$form->{closedto}>
-<input type=hidden name=locked value=$form->{locked}>
-
-<input type=hidden name=title value="$title">
-
-<input type=hidden name=employee value="$form->{employee}">
-
-<input type=hidden name=oldtransdate value=$form->{oldtransdate}>
-<input type=hidden name=audittrail value="$form->{audittrail}">
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table width=100%>
-        <tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Vendor').qq|</th>
-		<td colspan=3>$vendor</td>
-		<input type=hidden name=selectvendor value="|.$form->escape($form->{selectvendor},1).qq|">
-		<input type=hidden name=oldvendor value="$form->{oldvendor}">
-		<input type=hidden name=vendor_id value="$form->{vendor_id}">
-		<input type=hidden name=terms value=$form->{terms}>
-	      </tr>
-	      <tr>
-	        <td></td>
-		<td colspan=3>
-		  <table width=100%>
-		    <tr>
-		      <th align=left nowrap>|.$locale->text('Credit Limit').qq|</th>
-		      <td>$form->{creditlimit}</td>
-		      <th align=left nowrap>|.$locale->text('Remaining').qq|</th>
-		      <td class="plus$n">|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td>
-		      <input type=hidden name=creditlimit value=$form->{creditlimit}>
-		      <input type=hidden name=creditremaining value=$form->{creditremaining}>
-		    </tr>
-		  </table>
-		</td>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Currency').qq|</th>
-		<td><select name=currency>$form->{selectcurrency}</select></td>
-		<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-		<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
-		<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
-		<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
-		$exchangerate
-	      </tr>
-	      $department
-	      $taxincluded
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
-		<td><input name=invnumber size=20 value="$form->{invnumber}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
-		<td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Invoice Date').qq|</th>
-		<td><input name=transdate size=11 title="$myconfig{'dateformat'}" value=$form->{transdate}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Due Date').qq|</th>
-		<td><input name=duedate size=11 title="$myconfig{'dateformat'}" value=$form->{duedate}></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <input type=hidden name=selectAP_amount value="$form->{selectAP_amount}">
-  <input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|">
-  <input type=hidden name=rowcount value=$form->{rowcount}>
-  <tr>
-    <td>
-      <table width=100%>
-|;
-
-  $amount = $locale->text('Amount');
-
-  for $i (1 .. $form->{rowcount}) {
-
-    $selectAP_amount = $form->{selectAP_amount};
-    $selectAP_amount =~ s/option>\Q$form->{"AP_amount_$i"}\E/option selected>$form->{"AP_amount_$i"}/;
-    
-    $selectprojectnumber = $form->{selectprojectnumber};
-    $selectprojectnumber =~ s/(<option value="\Q$form->{"projectnumber_$i"}\E")/$1 selected/;
-    
-    # format amounts
-    $form->{"amount_$i"} = $form->format_amount(\%myconfig, $form->{"amount_$i"}, 2);
-
-    $project = qq|
-          <td align=right><select name="projectnumber_$i">$selectprojectnumber</select></td>
-| if $form->{selectprojectnumber};
-	  
-    print qq|
-	<tr>
-	  <th align=right nowrap>$amount</th>
-	  <td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td>
-	  <td></td>
-	  <td><select name="AP_amount_$i">$selectAP_amount</select></td>
-	  $project
-	</tr>
-|;
-    $amount = "";
-  }
-
-  $taxlabel = ($form->{taxincluded}) ? $locale->text('Tax Included') : $locale->text('Tax');
-  
-  foreach $item (split / /, $form->{taxaccounts}) {
-
-    $form->{"calctax_$item"} = ($form->{"calctax_$item"}) ? "checked" : "";
-    
-    # format and reverse tax
-    $form->{"tax_$item"} = $form->format_amount(\%myconfig, $form->{"tax_$item"}, 2); 
-
-    print qq|
-        <tr>
-	  <th align=right nowrap>${taxlabel}</th>
-	  <td><input name="tax_$item" size=10 value=$form->{"tax_$item"}></td>
-	  <td align=right><input name="calctax_$item" class=checkbox type=checkbox value=1 $form->{"calctax_$item"}></td>
-	  <td><select name=AP_tax_$item>$form->{"selectAP_tax_$item"}</select></td>
-        </tr>
-	<input type=hidden name="${item}_rate" value="$form->{"${item}_rate"}">
-	<input type=hidden name="${item}_description" value="$form->{"${item}_description"}">
-	<input type=hidden name="${item}_taxnumber" value="$form->{"${item}_taxnumber"}">
-	<input type=hidden name="selectAP_tax_$item" value="$form->{"selectAP_tax_$item"}">
-|;
-  }
-   
-  $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2);
-
-  print qq|
-        <tr>
-	  <th align=right nowrap>|.$locale->text('Total').qq|</th>
-	  <td>$form->{invtotal}</td>
-	  <td></td>
-
-	  <input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
-	  <input type=hidden name=oldtotalpaid value=$form->{oldtotalpaid}>
-	  
-	  <input type=hidden name=taxaccounts value="$form->{taxaccounts}">
-	  
-          <td><select name=AP>$form->{selectAP}</select></td>
-	  <input type=hidden name=selectAP value="$form->{selectAP}">
-	  
-	</tr>
-	<tr valign=top>
-	  <th align=right nowrap>|.$locale->text('Notes').qq|</th>
-	  <td colspan=5>$notes</td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-	  <th class=listheading colspan=6>|.$locale->text('Payments').qq|</th>
-	</tr>
-|;
-
-
-  if ($form->{currency} eq $form->{defaultcurrency}) {
-    @column_index = qw(datepaid source memo paid AP_paid);
-  } else {
-    @column_index = qw(datepaid source memo paid exchangerate AP_paid);
-  }
-
-  $column_data{datepaid} = "<th>".$locale->text('Date')."</th>";
-  $column_data{paid} = "<th>".$locale->text('Amount')."</th>";
-  $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>";
-  $column_data{AP_paid} = "<th>".$locale->text('Account')."</th>";
-  $column_data{source} = "<th>".$locale->text('Source')."</th>";
-  $column_data{memo} = "<th>".$locale->text('Memo')."</th>";
-
-  print "
-        <tr>
-";
-  map { print "$column_data{$_}\n" } @column_index;
-  print "
-        </tr>
-";
-
-  $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
-  for $i (1 .. $form->{paidaccounts}) {
-    print "
-        <tr>
-";
-
-    $form->{"selectAP_paid_$i"} = $form->{selectAP_paid};
-    $form->{"selectAP_paid_$i"} =~ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;
-
-    # format amounts
-    $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
-    $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
-    
-    $exchangerate = qq|&nbsp;|;
-    if ($form->{currency} ne $form->{defaultcurrency}) {
-      if ($form->{"forex_$i"}) {
-	$exchangerate = qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|;
-      } else {
-	$exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
-      }
-    }
-
-    $exchangerate .= qq|
-<input type=hidden name="forex_$i" value=$form->{"forex_$i"}>
-|;
-
-    $column_data{"paid_$i"} = qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|;
-    $column_data{"AP_paid_$i"} = qq|<td align=center><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|;
-    $column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|;
-    $column_data{"datepaid_$i"} = qq|<td align=center><input name="datepaid_$i" size=11 title="($myconfig{'dateformat'})" value=$form->{"datepaid_$i"}></td>|;
-    $column_data{"source_$i"} = qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
-    $column_data{"memo_$i"} = qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|;
-    
-    map { print qq|$column_data{"${_}_$i"}\n| } @column_index;
-
-    print "
-        </tr>
-";
-  }
-
-  print qq|
-    <input type=hidden name=paidaccounts value=$form->{paidaccounts}>
-    <input type=hidden name=selectAP_paid value="$form->{selectAP_paid}">
-    
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub form_footer {
-
-  &print_options;
-  
-  print qq|
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<p>
-|;
-
-  
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-
-  if (! $form->{readonly}) {
-    
-    if ($form->{id}) {
-      print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-|;
-
-      if (!$form->{locked}) {
-	print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">
-  |;
-      }
-
-      print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|">
-|;
-
-    } else {
-      if ($transdate > $closedto) {
-	print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">|;
-      }
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print "
-</form>
-
-</body>
-</html>
-";
-
-}
-
-
-sub update {
-  my $display = shift;
-
-  if ($display) {
-    goto TAXCALC;
-  }
-
-  $form->{invtotal} = 0;
-  
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate);
-  
-  @flds = qw(amount AP_amount projectnumber);
-  $count = 0;
-  for $i (1 .. $form->{rowcount}) {
-    $form->{"amount_$i"} = $form->parse_amount(\%myconfig, $form->{"amount_$i"});
-    if ($form->{"amount_$i"}) {
-      push @a, {};
-      my $j = $#a;
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
-  $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
-  $form->{rowcount} = $count + 1;
-  
-  map { $form->{invtotal} += $form->{"amount_$_"} } (1 .. $form->{rowcount});
-  
-  $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'sell')));
-
-  if (&check_name(vendor)) {
-    $form->{notes} = $form->{intnotes} unless $form->{id};
-  }
-
-  if ($form->{transdate} ne $form->{oldtransdate}) { 
-    $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1);
-    $form->{oldtransdate} = $form->{transdate};
-  }
-
-
-
-TAXCALC:
-  # recalculate taxes
-
-  @taxaccounts = split / /, $form->{taxaccounts};
-
-  map { $form->{"tax_$_"} = $form->parse_amount(\%myconfig, $form->{"tax_$_"}) } @taxaccounts;
-  
-  if ($form->{taxincluded}) {
-    $taxrate = 0;
-    $withholdingrate = 0;
-
-    foreach $item (@taxaccounts) {
-      $form->{"calctax_$item"} = 1 if $form->{calctax};
-      
-      if ($form->{"calctax_$item"}) {
-	if ($form->{"${item}_rate"} > 0) {
-	  $taxrate += $form->{"${item}_rate"};
-	} else {
-	  $withholdingrate += $form->{"${item}_rate"};
-	}
-      }
-    }
-
-    foreach $item (@taxaccounts) {
-      if ($form->{"calctax_$item"}) {
-	if ($form->{"${item}_rate"} > 0) {
-	  if ($taxrate) {
-	    $amount = $form->round_amount($form->{invtotal} * $taxrate / (1 + $taxrate), 2) * $form->{"${item}_rate"} / $taxrate;
-	    $form->{"tax_$item"} = $form->round_amount($amount, 2);
-	    $taxdiff += ($amount - $form->{"tax_$item"});
-	  }
-	} else {
-	  if ($withholdingrate) {
-	    $amount = $form->round_amount($form->{invtotal} * $withholdingrate / (1 - $withholdingrate), 2) * $form->{"${item}_rate"} / $withholdingrate;
-	    $form->{"tax_$item"} = $form->round_amount($amount, 2);
-	    $taxdiff += ($amount - $form->{"tax_$item"});
-	  }
-	}
-	
-	if (abs $taxdiff >= 0.005) {
-	  $form->{"tax_$item"} += $form->round_amount($taxdiff, 2);
-	  $taxdiff = 0;
-	}
-      }
-      $form->{"selectAP_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|;
-      $totaltax += $form->{"tax_$item"};
-    }
-  } else {
-    foreach $item (@taxaccounts) {
-      $form->{"calctax_$item"} = 1 if $form->{calctax};
-      
-      if ($form->{"calctax_$item"}) {
-	$form->{"tax_$item"} = $form->round_amount($form->{invtotal} * $form->{"${item}_rate"}, 2);
-      }
-      $form->{"selectAP_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|;
-      $totaltax += $form->{"tax_$item"};
-    }
-  }
-
-  $form->{invtotal} = ($form->{taxincluded}) ? $form->{invtotal} : $form->{invtotal} + $totaltax;
-  
-  for $i (1 .. $form->{paidaccounts}) {
-    if ($form->{"paid_$i"}) {
-      map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
-
-      $totalpaid += $form->{"paid_$i"};
-      
-      $form->{"exchangerate_$i"} = $exchangerate if ($form->{"forex_$i"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'sell')));
-    }
-  }
-
-  $form->{creditremaining} -= ($form->{invtotal} - $totalpaid + $form->{oldtotalpaid} - $form->{oldinvtotal});
-  $form->{oldinvtotal} = $form->{invtotal};
-  $form->{oldtotalpaid} = $totalpaid;
-  
-  &display_form;
-
-}
- 
- 
-sub post {
-
-  # check if there is a vendor, invoice and due date
-  $form->isblank("transdate", $locale->text("Invoice Date missing!"));
-  $form->isblank("duedate", $locale->text("Due Date missing!"));
-  $form->isblank("vendor", $locale->text('Vendor missing!'));
-  
-  
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-
-  $form->error($locale->text('Cannot post transaction for a closed period!')) if ($transdate <= $closedto);
-
-  $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency});
-
-  for $i (1 .. $form->{paidaccounts}) {
-    if ($form->{"paid_$i"}) {
-      $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);
-
-      $form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
-
-      $form->error($locale->text('Cannot post payment for a closed period!')) if ($datepaid <= $closedto);
-
-      if ($form->{currency} ne $form->{defaultcurrency}) {
-	$form->{"exchangerate_$i"} = $form->{exchangerate} if ($transdate == $datepaid);
-	$form->isblank("exchangerate_$i", $locale->text('Exchange rate for payment missing!'));
-      }
-      
-    }
-  }
-      
-
-  # if old vendor ne vendor redo form
-  ($vendor) = split /--/, $form->{vendor};
-  if ($form->{oldvendor} ne "$vendor--$form->{vendor_id}") {
-    &update;
-    exit;
-  }
-
-  $form->{invnumber} = $form->update_defaults(\%myconfig, "vinumber") unless $form->{invnumber};
-
-  $form->{id} = 0 if $form->{postasnew};
-
-  $form->redirect($locale->text('Transaction posted!')) if (AP->post_transaction(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot post transaction!'));
-  
-}
-
-
-sub post_as_new {
-
-  $form->{postasnew} = 1;
-  &post;
-
-}
-
-
-sub delete {
-
-  $form->{title} = $locale->text('Confirm!');
-  
-  $form->header;
-
-  delete $form->{header};
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-  $form->hide_form();
-
-  print qq|
-<h2 class=confirm>$form->{title}</h2>
-
-<h4>|.$locale->text('Are you sure you want to delete Transaction').qq| $form->{invnumber}</h4>
-
-<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub yes {
-
-  $form->redirect($locale->text('Transaction deleted!')) if (AP->delete_transaction(\%myconfig, \%$form, $spool));
-  $form->error($locale->text('Cannot delete transaction!'));
-
-}
-
-
-sub search {
-
-  $form->create_links("AP", \%myconfig, "vendor");
-
-  $form->{selectAP} = "<option>\n";
-  map { $form->{selectAP} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{AP_links}{AP} };
-
-  
-  if (@{ $form->{all_vendor} }) {
-    map { $vendor .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_vendor} };
-    $vendor = qq|<select name=vendor><option>\n$vendor\n</select>|;
-  } else {
-    $vendor = qq|<input name=vendor size=35>|;
-  }
-
-  # departments
-  if (@{ $form->{all_departments} }) { 
-    $form->{selectdepartment} = "<option>\n";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-
-  $department = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Department').qq|</th>
-	  <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
-	</tr>
-| if $form->{selectdepartment};
-
-  $form->{title} = $locale->text('AP Transactions');
-
-  $invnumber = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
-	  <td colspan=3><input name=invnumber size=20></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Order Number').qq|</th>
-	  <td colspan=3><input name=ordnumber size=20></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Notes').qq|</th>
-	  <td colspan=3><input name=notes size=40></td>
-	</tr>
-|;
-
-  $openclosed = qq|
-	      <tr>
-		<td align=right><input name=open class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Open').qq|</td>
-		<td align=right><input name=closed class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Closed').qq|</td>
-	      </tr>
-|;
-
-  if ($form->{outstanding}) {
-    $form->{title} = $locale->text('AP Outstanding');
-    $invnumber = "";
-    $openclosed = "";
-  }
-
-  # accounting years
-  $form->{selectaccountingyear} = "<option>\n";
-  map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} };
-  $form->{selectaccountingmonth} = "<option>\n";
-  map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} };
-
-  $selectfrom = qq|
-        <tr>
-	<th align=right>|.$locale->text('Period').qq|</th>
-	<td colspan=3>
-	<select name=month>$form->{selectaccountingmonth}</select>
-	<select name=year>$form->{selectaccountingyear}</select>
-	<input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	<input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	<input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	<input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	</td>
-      </tr>	
-|;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=outstanding value=$form->{outstanding}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-        <tr>
-	  <th align=right>|.$locale->text('Account').qq|</th>
-	  <td colspan=3><select name=AP>$form->{selectAP}</select></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Vendor').qq|</th>
-	  <td colspan=3>$vendor</td>
-	</tr>
-	$department
-	$invnumber
-	<tr>
-	  <th align=right nowrap>|.$locale->text('From').qq|</th>
-	  <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-        <input type=hidden name=sort value=transdate>
-	$selectfrom
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td>
-	    <table width=100%>
-	      $openclosed
-	      <tr>
-		<td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('ID').qq|</td>
-		<td align=right><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Invoice Number').qq|</td>
-		<td align=right><input name="l_ordnumber" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Order Number').qq|</td>
-	      </tr>
-	      <tr>
-		<td align=right><input name="l_name" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Vendor').qq|</td>
-		<td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Invoice Date').qq|</td>
-	      </tr>
-	      <tr>
-		<td align=right><input name="l_netamount" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Amount').qq|</td>
-		<td align=right><input name="l_tax" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Tax').qq|</td>
-		<td align=right><input name="l_amount" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Total').qq|</td>
-		<td align=right><input name="l_curr" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Currency').qq|</td>
-	      </tr>
-	      <tr>
-		<td align=right><input name="l_datepaid" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Date Paid').qq|</td>
-		<td align=right><input name="l_paid" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Paid').qq|</td>
-		<td align=right><input name="l_duedate" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Due Date').qq|</td>
-		<td align=right><input name="l_due" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Amount Due').qq|</td>
-	      </tr>
-	      <tr valign=top>
-		<td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Notes').qq|</td>
-		<td align=right><input name="l_employee" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Employee').qq|</td>
-		<td align=right><input name="l_manager" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Manager').qq|</td>
-	      </tr>
-	      <tr>
-		<td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Subtotal').qq|</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<input type=hidden name=nextsub value=$form->{nextsub}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub ap_transactions {
-
-  if ($form->{vendor}) {
-    $form->{vendor} = $form->unescape($form->{vendor});
-    ($form->{vendor}, $form->{vendor_id}) = split(/--/, $form->{vendor});
-  }
-
-  AP->ap_transactions(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=ap_transactions&direction=$form->{direction}&oldsort=$form->{oldsort}&outstanding=$form->{outstanding}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $form->sort_order();
-  
-  $callback = "$form->{script}?action=ap_transactions&direction=$form->{direction}&oldsort=$form->{oldsort}&outstanding=$form->{outstanding}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $callback .= "&title=".$form->escape($form->{title},1);
-  $href .= "&title=".$form->escape($form->{title});
-
-  if ($form->{AP}) {
-    $callback .= "&AP=".$form->escape($form->{AP},1);
-    $href .= "&AP=".$form->escape($form->{AP});
-    $form->{AP} =~ s/--/ /;
-    $option = $locale->text('Account')." : $form->{AP}";
-  }
-
-  if ($form->{vendor}) {
-    $callback .= "&vendor=".$form->escape($form->{vendor},1)."--$form->{vendor_id}";
-    $href .= "&vendor=".$form->escape($form->{vendor})."--$form->{vendor_id}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Vendor')." : $form->{vendor}";
-  }
-  if ($form->{department}) {
-    $callback .= "&department=".$form->escape($form->{department},1);
-    $href .= "&department=".$form->escape($form->{department});
-    ($department) = split /--/, $form->{department};
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Department')." : $department";
-  }
-  if ($form->{invnumber}) {
-    $callback .= "&invnumber=".$form->escape($form->{invnumber},1);
-    $href .= "&invnumber=".$form->escape($form->{invnumber});
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Invoice Number')." : $form->{invnumber}";
-  }
-  if ($form->{ordnumber}) {
-    $callback .= "&ordnumber=".$form->escape($form->{ordnumber},1);
-    $href .= "&ordnumber=".$form->escape($form->{ordnumber});
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Order Number')." : $form->{ordnumber}";
-  }
-  if ($form->{notes}) {
-    $callback .= "&notes=".$form->escape($form->{notes},1);
-    $href .= "&notes=".$form->escape($form->{notes});
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('Notes')." : $form->{notes}";
-  }
-  
-  if ($form->{transdatefrom}) {
-    $callback .= "&transdatefrom=$form->{transdatefrom}";
-    $href .= "&transdatefrom=$form->{transdatefrom}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
-  }
-  if ($form->{transdateto}) {
-    $callback .= "&transdateto=$form->{transdateto}";
-    $href .= "&transdateto=$form->{transdateto}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1);
-  }
-  if ($form->{open}) {
-    $callback .= "&open=$form->{open}";
-    $href .= "&open=$form->{open}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Open');
-  }
-  if ($form->{closed}) {
-    $callback .= "&closed=$form->{closed}";
-    $href .= "&closed=$form->{closed}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Closed');
-  }
-
-  @columns = $form->sort_columns(qw(transdate id invnumber ordnumber name netamount tax amount paid due curr datepaid duedate notes employee manager));
-
-  foreach $item (@columns) {
-    if ($form->{"l_$item"} eq "Y") {
-      push @column_index, $item;
-
-      if ($form->{l_curr} && $item =~ /(amount|tax|paid|due)/) {
-	push @column_index, "fx_$item";
-      }
-      
-      # add column to href and callback
-      $callback .= "&l_$item=Y";
-      $href .= "&l_$item=Y";
-    }
-  }
-  
-  if ($form->{l_subtotal} eq 'Y') {
-    $callback .= "&l_subtotal=Y";
-    $href .= "&l_subtotal=Y";
-  }
-  
-    
-  $column_header{id} = qq|<th><a class=listheading href=$href&sort=id>|.$locale->text('ID').qq|</a></th>|;
-  $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</a></th>|;
-  $column_header{duedate} = qq|<th><a class=listheading href=$href&sort=duedate>|.$locale->text('Due Date').qq|</a></th>|;
-  $column_header{due} = qq|<th class=listheading>|.$locale->text('Amount Due').qq|</th>|;
-  $column_header{invnumber} = qq|<th><a class=listheading href=$href&sort=invnumber>|.$locale->text('Invoice').qq|</a></th>|;
-  $column_header{ordnumber} = qq|<th><a class=listheading href=$href&sort=ordnumber>|.$locale->text('Order').qq|</a></th>|;
-  $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Vendor').qq|</a></th>|;
-  $column_header{netamount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|;
-  $column_header{tax} = qq|<th class=listheading>|.$locale->text('Tax').qq|</th>|;
-  $column_header{amount} = qq|<th class=listheading>|.$locale->text('Total').qq|</th>|;
-  $column_header{paid} = qq|<th class=listheading>|.$locale->text('Paid').qq|</th>|;
-  $column_header{datepaid} = qq|<th><a class=listheading href=$href&sort=datepaid>|.$locale->text('Date Paid').qq|</a></th>|;
-  $column_header{notes} = qq|<th class=listheading>|.$locale->text('Notes').qq|</th>|;
-  $column_header{employee} = "<th><a class=listheading href=$href&sort=employee>".$locale->text('Employee')."</th>";
-  $column_header{manager} = "<th><a class=listheading href=$href&sort=manager>".$locale->text('Manager')."</th>";
-
-  $column_header{curr} = "<th><a class=listheading href=$href&sort=curr>" . $locale->text('Curr') . "</a></th>";
-  map { $column_header{"fx_$_"} = "<th>&nbsp;</th>" } qw(amount tax netamount paid due);
-  
-  $form->{title} = ($form->{title}) ? $form->{title} : $locale->text('AP Transactions');
-
-  $form->header;
-  
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-
-  print qq|
-	</tr>
-|;
-
-  # add sort and escape callback
-  $form->{callback} = "$callback&sort=$form->{sort}";
-  $callback = $form->escape($form->{callback});
-
-  # flip direction
-  $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC";
-  $href =~ s/&direction=(\w+)&/&direction=$direction&/;
-
-  if (@{ $form->{transactions} }) {
-    $sameitem = $form->{transactions}->[0]->{$form->{sort}};
-  }
-  
-  # sums and tax on reports by Antonio Gallardo
-  #
-  foreach $ap (@{ $form->{transactions} }) {
-
-    if ($form->{l_subtotal} eq 'Y') {
-      if ($sameitem ne $ap->{$form->{sort}}) {
-	&ap_subtotal;
-	$sameitem = $ap->{$form->{sort}};
-      }
-    }
-
-    if ($form->{l_curr}) {
-      map { $ap->{"fx_$_"} = $ap->{$_}/$ap->{exchangerate} } qw(netamount amount paid);
-      
-      map { $column_data{"fx_$_"} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{"fx_$_"}, 2, "&nbsp;")."</td>" } qw(netamount amount paid);
-
-      $column_data{fx_tax} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{fx_amount} - $ap->{fx_netamount}, 2, "&nbsp;")."</td>";
-      $column_data{fx_due} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{fx_amount} - $ap->{fx_paid}, 2, "&nbsp;")."</td>";
-
-      $subtotalfxnetamount += $ap->{fx_netamount};
-      $subtotalfxamount += $ap->{fx_amount};
-      $subtotalfxpaid += $ap->{fx_paid};
-
-      $totalfxnetamount += $ap->{fx_netamount};
-      $totalfxamount += $ap->{fx_amount};
-      $totalfxpaid += $ap->{fx_paid};
-
-    }
-    
-    map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{$_}, 2, "&nbsp;")."</td>" } qw(netamount amount paid);
-    
-    $column_data{tax} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{amount} - $ap->{netamount}, 2, "&nbsp;") . "</td>";
-    $column_data{due} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{amount} - $ap->{paid}, 2, "&nbsp;")."</td>";
-
-    $totalnetamount += $ap->{netamount};
-    $totalamount += $ap->{amount};
-    $totalpaid += $ap->{paid};
-
-    $subtotalnetamount += $ap->{netamount};
-    $subtotalamount += $ap->{amount};
-    $subtotalpaid += $ap->{paid};
-
-    $column_data{transdate} = "<td>$ap->{transdate}&nbsp;</td>";
-    $column_data{duedate} = "<td>$ap->{duedate}&nbsp;</td>";
-    $column_data{datepaid} = "<td>$ap->{datepaid}&nbsp;</td>";
-
-    $module = ($ap->{invoice}) ? "ir.pl" : $form->{script};
-
-    $column_data{invnumber} = qq|<td><a href="$module?action=edit&path=$form->{path}&id=$ap->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ap->{invnumber}</a></td>|;
-    $column_data{id} = "<td>$ap->{id}</td>";
-    $column_data{ordnumber} = "<td>$ap->{ordnumber}&nbsp;</td>";
-
-    $name = $form->escape($ap->{name});
-    $column_data{name} = "<td><a href=$href&vendor=$name--$ap->{vendor_id}&sort=$form->{sort}>$ap->{name}</a></td>";
-
-    $ap->{notes} =~ s/\r\n/<br>/g;
-    $column_data{notes} = "<td>$ap->{notes}&nbsp;</td>";
-    $column_data{employee} = "<td>$ap->{employee}&nbsp;</td>";
-    $column_data{manager} = "<td>$ap->{manager}&nbsp;</td>";
-    $column_data{curr} = "<td>$ap->{curr}</td>";
-    
-    $i++;
-    $i %= 2;
-    print "
-        <tr class=listrow$i >
-";
-    
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-	</tr>
-|;
-
-  }
-  
-  if ($form->{l_subtotal} eq 'Y') {
-    &ap_subtotal;
-  }
-  
-  # print totals
-  print qq|
-        <tr class=listtotal>
-|;
-  
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  
-  $column_data{netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;")."</th>";
-  $column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalpaid, 2, "&nbsp;")."</th>";
-  $column_data{due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalpaid, 2, "&nbsp;")."</th>";
-
-  if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) {
-    $column_data{fx_netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxnetamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalnetfxamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxpaid, 2, "&nbsp;")."</th>";
-    $column_data{fx_due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalfxpaid, 2, "&nbsp;")."</th>";
-  }
-
-  map { print "$column_data{$_}\n" } @column_index;
-
-  if ($myconfig{acs} !~ /AP--AP/) {
-    $i = 1;
-    $button{'AP--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|"> |;
-    $button{'AP--Add Transaction'}{order} = $i++;
-    $button{'AP--Vendor Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice.').qq|"> |;
-    $button{'AP--Vendor Invoice'}{order} = $i++;
-
-    foreach $item (split /;/, $myconfig{acs}) {
-      delete $button{$item};
-    }
-  }
-
-  print qq|
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>  
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input type=hidden name=vendor value="$form->{vendor}">
-<input type=hidden name=vendor_id value=$form->{vendor_id}>
-<input type=hidden name=vc value=vendor>
-
-<input name=callback type=hidden value="$form->{callback}">
-  
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub ap_subtotal {
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  
-  $column_data{netamount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount, 2, "&nbsp;")."</th>";
-  $column_data{paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalpaid, 2, "&nbsp;")."</th>";
-  $column_data{due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalpaid, 2, "&nbsp;")."</th>";
-
-  if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) {
-    $column_data{fx_tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount - $subtotalfxnetamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxpaid, 2, "&nbsp;")."</th>";
-    $column_data{fx_due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount - $subtotalfxpaid, 2, "&nbsp;")."</th>";
-  }
-  
-  $subtotalnetamount = 0;
-  $subtotalamount = 0;
-  $subtotalpaid = 0;
-  
-  $subtotalfxnetamount = 0;
-  $subtotalfxamount = 0;
-  $subtotalfxpaid = 0;
-
-  print "<tr class=listsubtotal>";
-  
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-  </tr>
-|;
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/ar.pl b/sql-ledger/bin/mozilla/ar.pl
deleted file mode 100644
index 8f98981e5..000000000
--- a/sql-ledger/bin/mozilla/ar.pl
+++ /dev/null
@@ -1,1486 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2000
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#  Contributors:
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Accounts Receivable
-#
-#======================================================================
-
-
-use SL::AR;
-use SL::IS;
-use SL::PE;
-
-require "$form->{path}/arap.pl";
-require "$form->{path}/arapprn.pl";
-
-1;
-# end of main
-
-# this is for our long dates
-# $locale->text('January')
-# $locale->text('February')
-# $locale->text('March')
-# $locale->text('April')
-# $locale->text('May ')
-# $locale->text('June')
-# $locale->text('July')
-# $locale->text('August')
-# $locale->text('September')
-# $locale->text('October')
-# $locale->text('November')
-# $locale->text('December')
-
-# this is for our short month
-# $locale->text('Jan')
-# $locale->text('Feb')
-# $locale->text('Mar')
-# $locale->text('Apr')
-# $locale->text('May')
-# $locale->text('Jun')
-# $locale->text('Jul')
-# $locale->text('Aug')
-# $locale->text('Sep')
-# $locale->text('Oct')
-# $locale->text('Nov')
-# $locale->text('Dec')
-
-
-sub add {
-
-  $form->{title} = "Add";
-  $form->{callback} = "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &create_links;
-  &display_form;
-  
-}
-
-
-sub edit {
-
-  $form->{title} = "Edit";
-
-  &create_links;
-  &display_form;
-
-}
-
-
-sub display_form {
-
-  &form_header;
-  &form_footer;
-
-}
-
-
-sub create_links {
-
-  $form->create_links("AR", \%myconfig, "customer");
-  $duedate = $form->{duedate};
-
-  $form->{formname} = "transaction";
-  $form->{format} = "postscript" if $myconfig{printer};
-  $form->{media} = $myconfig{printer};
-  
-  # currencies
-  @curr = split /:/, $form->{currencies};
-  chomp $curr[0];
-  $form->{defaultcurrency} = $curr[0];
-
-  map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
-
-  IS->get_customer(\%myconfig, \%$form);
-
-  $form->{duedate} = $duedate if $duedate;
-  $form->{notes} = $form->{intnotes} if !$form->{id};
-  
-  $form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
-  $form->{oldtransdate} = $form->{transdate};
-
-  # customers
-  if (@{ $form->{all_customer} }) {
-    $form->{customer} = "$form->{customer}--$form->{customer_id}";
-    map { $form->{selectcustomer} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_customer} });
-  }
-  
-  # departments
-  if (@{ $form->{all_departments} }) {
-    $form->{selectdepartment} = "<option>\n";
-    $form->{department} = "$form->{department}--$form->{department_id}";
-    
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-  
-  $form->{employee} = "$form->{employee}--$form->{employee_id}";
-  # sales staff
-  if (@{ $form->{all_employees} }) {
-    $form->{selectemployee} = "";
-    map { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_employees} });
-  }
-  
-  # projects
-  if (@{ $form->{all_projects} }) {
-    $form->{selectprojectnumber} = "<option>\n";
-    map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } (@{ $form->{all_projects} });
-  }
-
-  if (@{ $form->{all_languages} }) {
-    $form->{selectlanguage} = "<option>\n";
-    map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} };
-  }
-
-  # forex
-  $form->{forex} = $form->{exchangerate};
-  $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
-
-  foreach $key (keys %{ $form->{AR_links} }) {
-       
-    foreach $ref (@{ $form->{AR_links}{$key} }) {
-      if ($key eq 'AR_tax') {
-	$form->{"selectAR_tax_$ref->{accno}"} = "<option>$ref->{accno}--$ref->{description}\n";
-	$form->{"calctax_$ref->{accno}"} = 1;
-	next;
-      }
-      $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";
-    }
-    
-    # if there is a value we have an old entry
-    for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
-      if ($key eq "AR_paid") {
-	$form->{"AR_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
-	# reverse paid
-	$form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount} * -1;
-	$form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate};
-	$form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source};
-	$form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo};
-	
-	$form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate};
-	
-	$form->{paidaccounts}++;
-      } else {
-     
-	$akey = $key;
-	$akey =~ s/AR_//;
-	
-        if ($key eq "AR_tax") {
-	  $form->{"${key}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
-	  $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = $form->round_amount($form->{acc_trans}{$key}->[$i-1]->{amount} / $exchangerate, 2);
-	  
-	  if ($form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"} > 0) {
-	    $totaltax += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"};
-	    $taxrate += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"};
-	  } else {
-	    $totalwithholding += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"};
-	    $withholdingrate += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"};
-	  }
-
-	} else {
-	  $form->{"${akey}_$i"} = $form->round_amount($form->{acc_trans}{$key}->[$i-1]->{amount} / $exchangerate, 2);
-	  if ($akey eq 'amount') {
-	    $form->{rowcount}++;
-	    $totalamount += $form->{"${akey}_$i"};
-
-            $form->{"projectnumber_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{projectnumber}--$form->{acc_trans}{$key}->[$i-1]->{project_id}";
-	  }
-	  $form->{"${key}_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
-	}
-      }
-    }
-  }
-
-  $form->{paidaccounts} = 1 if not defined $form->{paidaccounts};
-
-  if ($form->{taxincluded} && $totalamount) {
-    # add tax to individual amounts
-    for $i (1 .. $form->{rowcount}) {
-      $taxamount = ($totaltax + $totalwithholding) * $form->{"amount_$i"} / $totalamount;
-      $tax = $form->round_amount($taxamount, 2);
-      $diff += ($taxamount - $tax);
-      $form->{"amount_$i"} += $tax;
-    }
-    $form->{amount_1} += $form->round_amount($diff, 2);
-  }
-  
-  # check if calculated is equal to stored
-  # taxincluded is terrible to calculate
-  # this works only if all taxes are checked
-  foreach $item (split / /, $form->{taxaccounts}) {
-    if ($form->{taxincluded}) {
-      if ($form->{"${item}_rate"} > 0) {
-	if ($taxrate) {
-	  $taxamount = $form->round_amount(($totalamount + $totaltax + $totalwithholding) * $taxrate / (1 + $taxrate), 2) * $form->{"${item}_rate"} / $taxrate;
-	}
-      } else {
-	if ($withholdingrate) {
-	  $taxamount = $form->round_amount(($totalamount + $totaltax + $totalwithholding) * $withholdingrate / (1 - $withholdingrate), 2) * $form->{"${item}_rate"} / $withholdingrate;
-	}
-      }
-    } else {
-      $taxamount = $totalamount * $form->{"${item}_rate"};
-    }
-    $taxamount = $form->round_amount($taxamount, 2);
-
-    $form->{"calctax_$item"} = 0;
-    if ($form->{"tax_$item"} == $taxamount) {
-      $form->{"calctax_$item"} = 1;
-    }
-  }
-
-  $form->{invtotal} = $totalamount + $totaltax + $totalwithholding;
-  $form->{rowcount}++ if $form->{id};
-  
-  $form->{AR} = $form->{AR_1};
-  $form->{rowcount} = 1 unless $form->{AR_amount_1};
-  
-  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
-
-  # readonly
-  $form->{readonly} = 1 if $myconfig{acs} =~ /AR--Add Transaction/;
-
-}
-
-
-sub form_header {
-
-  $title = $form->{title};
-  $form->{title} = $locale->text("$title AR Transaction");
-
-  $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
-  
-# $locale->text('Add AR Transaction')
-# $locale->text('Edit AR Transaction')
-
-  # set option selected
-  foreach $item (qw(AR currency)) {
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/<option>\Q$form->{$item}\E/<option selected>$form->{$item}/;
-  }
-  
-  foreach $item (qw(customer department employee)) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"});
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/;
-  }
-
-  $form->{selectprojectnumber} = $form->unescape($form->{selectprojectnumber});
-  
-  # format amounts
-  $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
-  
-  $exchangerate = qq|
-<input type=hidden name=forex value=$form->{forex}>
-|;
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    if ($form->{forex}) {
-      $exchangerate .= qq|
-	<th align=right>|.$locale->text('Exchange Rate').qq|</th>
-	<td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td>
-|;
-    } else {
-      $exchangerate .= qq|
-        <th align=right>|.$locale->text('Exchange Rate').qq|</th>
-        <td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
-|;
-    }
-  }
-  
-  $taxincluded = "";
-  if ($form->{taxaccounts}) {
-    $taxincluded = qq|
-	      <tr>
-		<td align=right><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
-		<th align=left nowrap>|.$locale->text('Tax Included').qq|</th>
-	      </tr>
-|;
-  }
-
- 
-  if (($rows = $form->numtextrows($form->{notes}, 50)) < 2) {
-    $rows = 2;
-  }
-  $notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
-  
-  $department = qq|
-	      <tr>
-		<th align="right" nowrap>|.$locale->text('Department').qq|</th>
-		<td colspan=3><select name=department>$form->{selectdepartment}</select>
-		<input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|">
-		</td>
-	      </tr>
-| if $form->{selectdepartment};
-
- 
-  $n = ($form->{creditremaining} < 0) ? "0" : "1";
-
-  $customer = ($form->{selectcustomer}) ? qq|<select name=customer>$form->{selectcustomer}</select>| : qq|<input name=customer value="$form->{customer}" size=35>|;
-
-  $employee = qq|
-                <input type=hidden name=employee value="$form->{employee}">
-|;
-
-  $employee = qq|
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Salesperson').qq|</th>
-		<td><select name=employee>$form->{selectemployee}</select></td>
-		<input type=hidden name=selectemployee value="|.$form->escape($form->{selectemployee},1).qq|">
-	      </tr>
-| if $form->{selectemployee};
-
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-
-<input type=hidden name=type value="transaction">
-<input type=hidden name=vc value="customer">
-
-<input type=hidden name=queued value="$form->{queued}">
-<input type=hidden name=printed value="$form->{printed}">
-<input type=hidden name=emailed value="$form->{emailed}">
-
-<input type=hidden name=sort value=$form->{sort}>
-
-<input type=hidden name=closedto value=$form->{closedto}>
-<input type=hidden name=locked value=$form->{locked}>
-
-<input type=hidden name=title value="$title">
-
-<input type=hidden name=oldtransdate value=$form->{oldtransdate}>
-<input type=hidden name=audittrail value="$form->{audittrail}">
-
-<table width=100%>
-  <tr class=listtop>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table width=100%>
-        <tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align="right" nowrap>|.$locale->text('Customer').qq|</th>
-		<td colspan=3>$customer</td>
-		<input type=hidden name=selectcustomer value="|.$form->escape($form->{selectcustomer},1).qq|">
-		<input type=hidden name=oldcustomer value="$form->{oldcustomer}">
-		<input type=hidden name=customer_id value="$form->{customer_id}">
-		<input type=hidden name=terms value=$form->{terms}>
-	      </tr>
-	      <tr>
-		<td></td>
-		<td colspan=3>
-		  <table width=100%>
-		    <tr>
-		      <th align=left nowrap>|.$locale->text('Credit Limit').qq|</th>
-		      <td>$form->{creditlimit}</td>
-		      <th align=left nowrap>|.$locale->text('Remaining').qq|</th>
-		      <td class="plus$n">|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td>
-		      <input type=hidden name=creditlimit value=$form->{creditlimit}>
-		      <input type=hidden name=creditremaining value=$form->{creditremaining}>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Currency').qq|</th>
-		<td><select name=currency>$form->{selectcurrency}</select></td>
-		<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-		<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
-		<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
-		<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
-		$exchangerate
-	      </tr>
-	      $department
-	      $taxincluded
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      $employee
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
-		<td><input name=invnumber size=20 value="$form->{invnumber}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
-		<td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Invoice Date').qq|</th>
-		<td><input name=transdate size=11 title="($myconfig{'dateformat'})" value=$form->{transdate}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Due Date').qq|</th>
-		<td><input name=duedate size=11 title="$myconfig{'dateformat'}" value=$form->{duedate}></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-    
-<input type=hidden name=selectAR_amount value="$form->{selectAR_amount}">
-<input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|">
-<input type=hidden name=rowcount value=$form->{rowcount}>
-|;
-
-  $amount = $locale->text('Amount');
-  
-  for $i (1 .. $form->{rowcount}) {
-
-    $selectAR_amount = $form->{selectAR_amount};
-    $selectAR_amount =~ s/option>\Q$form->{"AR_amount_$i"}\E/option selected>$form->{"AR_amount_$i"}/;
-    
-    $selectprojectnumber = $form->{selectprojectnumber};
-    $selectprojectnumber =~ s/(<option value="\Q$form->{"projectnumber_$i"}\E")/$1 selected/;
-    
-    # format amounts
-    $form->{"amount_$i"} = $form->format_amount(\%myconfig, $form->{"amount_$i"}, 2);
-
-    $project = qq|
-	  <td align=right><select name="projectnumber_$i">$selectprojectnumber</select></td>
-| if $form->{selectprojectnumber};
-	  
-    print qq|
-	<tr>
-	  <th align=right>$amount</th>
-	  <td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td>
-	  <td></td>
-	  <td><select name="AR_amount_$i">$selectAR_amount</select></td>
-	  $project
-	</tr>
-|;
-    $amount = "";
-  }
-
-
-  $taxlabel = ($form->{taxincluded}) ? $locale->text('Tax Included') : $locale->text('Tax');
-  
-  foreach $item (split / /, $form->{taxaccounts}) {
-
-    $form->{"calctax_$item"} = ($form->{"calctax_$item"}) ? "checked" : "";
-
-    $form->{"tax_$item"} = $form->format_amount(\%myconfig, $form->{"tax_$item"}, 2);
-    print qq|
-        <tr>
-	  <th align=right nowrap>$taxlabel</th>
-	  <td><input name="tax_$item" size=10 value=$form->{"tax_$item"}></td>
-	  <td align=right><input name="calctax_$item" class=checkbox type=checkbox value=1 $form->{"calctax_$item"}></td>
-	  <td><select name="AR_tax_$item">$form->{"selectAR_tax_$item"}</select></td>
-	</tr>
-	<input type=hidden name="${item}_rate" value="$form->{"${item}_rate"}">
-	<input type=hidden name="${item}_description" value="$form->{"${item}_description"}">
-	<input type=hidden name="selectAR_tax_$item" value="$form->{"selectAR_tax_$item"}">
-|;
-  
-  }
-
-  $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2);
-
-  print qq|
-        <tr>
-
-	  <th align=right>|.$locale->text('Total').qq|</th>
-	  <th align=left>$form->{invtotal}</th>
-	  <td></td>
-
-	  <input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
-	  <input type=hidden name=oldtotalpaid value=$form->{oldtotalpaid}>
-
-	  <input type=hidden name=taxaccounts value="$form->{taxaccounts}">
-
-	  <td><select name=AR>$form->{selectAR}</select></td>
-          <input type=hidden name=selectAR value="$form->{selectAR}">
-  
-        </tr>
-        <tr valign=top>
-	  <th align=right>|.$locale->text('Notes').qq|</th>
-	  <td colspan=4>$notes</td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-	  <th colspan=6 class=listheading>|.$locale->text('Payments').qq|</th>
-	</tr>
-|;
-
-  if ($form->{currency} eq $form->{defaultcurrency}) {
-    @column_index = qw(datepaid source memo paid AR_paid);
-  } else {
-    @column_index = qw(datepaid source memo paid exchangerate AR_paid);
-  }
-
-  $column_data{datepaid} = "<th>".$locale->text('Date')."</th>";
-  $column_data{paid} = "<th>".$locale->text('Amount')."</th>";
-  $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>";
-  $column_data{AR_paid} = "<th>".$locale->text('Account')."</th>";
-  $column_data{source} = "<th>".$locale->text('Source')."</th>";
-  $column_data{memo} = "<th>".$locale->text('Memo')."</th>";
-  
-  print "
-        <tr>
-";
-  map { print "$column_data{$_}\n" } @column_index;
-  print "
-        </tr>
-";
-
-
-  $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
-  for $i (1 .. $form->{paidaccounts}) {
-    print "
-        <tr>
-";
-
-    $form->{"selectAR_paid_$i"} = $form->{selectAR_paid};
-    $form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/;
-  
-    # format amounts
-    $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
-    $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
-
-    $exchangerate = qq|&nbsp;|;
-    if ($form->{currency} ne $form->{defaultcurrency}) {
-      if ($form->{"forex_$i"}) {
-	$exchangerate = qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|;
-      } else {
-	$exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
-      }
-    }
-    
-    $exchangerate .= qq|
-<input type=hidden name="forex_$i" value=$form->{"forex_$i"}>
-|;
-
-    $column_data{paid} = qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|;
-    $column_data{AR_paid} = qq|<td align=center><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|;
-    $column_data{exchangerate} = qq|<td align=center>$exchangerate</td>|;
-    $column_data{datepaid} = qq|<td align=center><input name="datepaid_$i" size=11 value=$form->{"datepaid_$i"}></td>|;
-    $column_data{source} = qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
-    $column_data{memo} = qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|;
-
-    map { print qq|$column_data{$_}\n| } @column_index;
-    
-    print "
-        </tr>
-";
-  }
-  
-  print qq|
-<input type=hidden name=paidaccounts value=$form->{paidaccounts}>
-<input type=hidden name=selectAR_paid value="$form->{selectAR_paid}">
-
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub form_footer {
-
-  &print_options;
-  
-  print qq|
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-|;
-
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-  
-  if (! $form->{readonly}) {
-    
-    if ($form->{id}) {
-      print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-|;
-
-      if (!$form->{locked}) {
-	print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">
-|;
-      }
-
-      print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|">
-|;
-
-    } else {
-      if ($transdate > $closedto) {
-	print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">|;
-      }
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print "
-</form>
-
-</body>
-</html>
-";
-
-}
-
-
-sub update {
-  my $display = shift;
-
-  if ($display) {
-    goto TAXCALC;
-  }
-
-  $form->{invtotal} = 0;
-  
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate);
-
-  @flds = qw(amount AR_amount projectnumber);
-  $count = 0;
-  @a = ();
-  for $i (1 .. $form->{rowcount}) {
-    $form->{"amount_$i"} = $form->parse_amount(\%myconfig, $form->{"amount_$i"});
-    if ($form->{"amount_$i"}) {
-      push @a, {};
-      $j = $#a;
-
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
-
-  $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
-  $form->{rowcount} = $count + 1;
-
-  map { $form->{invtotal} += $form->{"amount_$_"} } (1 .. $form->{rowcount});
-
-  $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'buy')));
-
-
-  if (&check_name(customer)) {
-    $form->{notes} = $form->{intnotes} unless $form->{id};
-  }
-
-  if ($form->{transdate} ne $form->{oldtransdate}) {
-    $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1);
-    $form->{oldtransdate} = $form->{transdate};
-  }
-  
-
-
-TAXCALC:
-  # recalculate taxes
-
-  @taxaccounts = split / /, $form->{taxaccounts};
-  
-  map { $form->{"tax_$_"} = $form->parse_amount(\%myconfig, $form->{"tax_$_"}) } @taxaccounts;
-  
-  if ($form->{taxincluded}) {
-    $taxrate = 0;
-    $withholdingrate = 0;
-
-    foreach $item (@taxaccounts) {
-      $form->{"calctax_$item"} = 1 if $form->{calctax};
-      
-      if ($form->{"calctax_$item"}) {
-	if ($form->{"${item}_rate"} > 0) {
-	  $taxrate += $form->{"${item}_rate"};
-	} else {
-	  $withholdingrate += $form->{"${item}_rate"};
-	}
-      }
-    }
-
-    foreach $item (@taxaccounts) {
-
-      if ($form->{"calctax_$item"}) {
-	if ($form->{"${item}_rate"} > 0) {
-	  if ($taxrate) {
-	    $amount = $form->round_amount($form->{invtotal} * $taxrate / (1 + $taxrate), 2) * $form->{"${item}_rate"} / $taxrate;
-	    $form->{"tax_$item"} = $form->round_amount($amount, 2);
-	    $taxdiff += ($amount - $form->{"tax_$item"});
-	  }
-	} else {
-	  if ($withholdingrate) {
-	    $amount = $form->round_amount($form->{invtotal} * $withholdingrate / (1 - $withholdingrate), 2) * $form->{"${item}_rate"} / $withholdingrate;
-	    $form->{"tax_$item"} = $form->round_amount($amount, 2);
-	    $taxdiff += ($amount - $form->{"tax_$item"});
-	  }
-	}
-
-	if (abs($taxdiff) >= 0.005) {
-	  $form->{"tax_$item"} += $form->round_amount($taxdiff, 2);
-	  $taxdiff = 0;
-	}
-      }
-      $form->{"selectAR_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|;
-      $totaltax += $form->{"tax_$item"};
-    }
-  } else {
-    foreach $item (@taxaccounts) {
-      $form->{"calctax_$item"} = 1 if $form->{calctax};
-      
-      if ($form->{"calctax_$item"}) {
-	$form->{"tax_$item"} = $form->round_amount($form->{invtotal} * $form->{"${item}_rate"}, 2);
-      }
-      $form->{"selectAR_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|;
-      $totaltax += $form->{"tax_$item"};
-    }
-  }
-
-  $form->{invtotal} = ($form->{taxincluded}) ? $form->{invtotal} : $form->{invtotal} + $totaltax;
-
-  for $i (1 .. $form->{paidaccounts}) {
-    if ($form->{"paid_$i"}) {
-      map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
-
-      $totalpaid += $form->{"paid_$i"};
-
-      $form->{"exchangerate_$i"} = $exchangerate if ($form->{"forex_$i"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'buy')));
-    }
-  }
-
-  $form->{creditremaining} -= ($form->{invtotal} - $totalpaid + $form->{oldtotalpaid} - $form->{oldinvtotal});
-  $form->{oldinvtotal} = $form->{invtotal};
-  $form->{oldtotalpaid} = $totalpaid;
-  
-  &display_form;
-  
-}
-
-
-sub post {
-
-  # check if there is an invoice number, invoice and due date
-  $form->isblank("transdate", $locale->text('Invoice Date missing!'));
-  $form->isblank("duedate", $locale->text('Due Date missing!'));
-  $form->isblank("customer", $locale->text('Customer missing!'));
-
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-  
-  $form->error($locale->text('Cannot post transaction for a closed period!')) if ($transdate <= $closedto);
-
-  $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency});
-  
-  for $i (1 .. $form->{paidaccounts}) {
-    if ($form->{"paid_$i"}) {
-      $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);
-      
-      $form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
-
-      $form->error($locale->text('Cannot post payment for a closed period!')) if ($datepaid <= $closedto);
-
-      if ($form->{currency} ne $form->{defaultcurrency}) {
-	$form->{"exchangerate_$i"} = $form->{exchangerate} if ($transdate == $datepaid);
-	$form->isblank("exchangerate_$i", $locale->text('Exchange rate for payment missing!'));
-      }
-    }
-  }
-
-  # if oldcustomer ne customer redo form
-  ($customer) = split /--/, $form->{customer};
-  if ($form->{oldcustomer} ne "$customer--$form->{customer_id}") {
-    &update;
-    exit;
-  }
-
-  $form->{invnumber} = $form->update_defaults(\%myconfig, "sinumber") unless $form->{invnumber};
-
-  $form->{id} = 0 if $form->{postasnew};
-
-  $form->redirect($locale->text('Transaction posted!')) if (AR->post_transaction(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot post transaction!'));
-
-}
-
-
-sub post_as_new {
-
-  $form->{postasnew} = 1;
-  &post;
-
-}
-
-
-sub delete {
-
-  $form->{title} = $locale->text('Confirm!');
-  
-  $form->header;
-
-  delete $form->{header};
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-  $form->hide_form();
-
-  print qq|
-<h2 class=confirm>$form->{title}</h2>
-
-<h4>|.$locale->text('Are you sure you want to delete Transaction').qq| $form->{invnumber}</h4>
-
-<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub yes {
-
-  $form->redirect($locale->text('Transaction deleted!')) if (AR->delete_transaction(\%myconfig, \%$form, $spool));
-  $form->error($locale->text('Cannot delete transaction!'));
-
-}
-
-
-sub search {
-
-  $form->create_links("AR", \%myconfig, "customer");
-  
-  $form->{selectAR} = "<option>\n";
-  map { $form->{selectAR} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{AR_links}{AR} };
-  
-  if (@{ $form->{all_customer} }) { 
-    map { $customer .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_customer} };
-    $customer = qq|<select name=customer><option>\n$customer</select>|;
-  } else {
-    $customer = qq|<input name=customer size=35>|;
-  }
-
-  # departments 
-  if (@{ $form->{all_departments} }) {
-    $form->{selectdepartment} = "<option>\n";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-
-  $department = qq| 
-        <tr> 
-	  <th align=right nowrap>|.$locale->text('Department').qq|</th>
-	  <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
-	</tr>
-| if $form->{selectdepartment};
-
-
-  $form->{title} = $locale->text('AR Transactions');
-
-  $invnumber = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
-	  <td colspan=3><input name=invnumber size=20></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Order Number').qq|</th>
-	  <td colspan=3><input name=ordnumber size=20></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Notes').qq|</th>
-	  <td colspan=3><input name=notes size=40></td>
-	</tr>
-|;
-
-  $openclosed = qq|
-	      <tr>
-		<td align=right><input name=open class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Open').qq|</td>
-		<td align=right><input name=closed class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Closed').qq|</td>
-	      </tr>
-|;
-
-  if ($form->{outstanding}) {
-    $form->{title} = $locale->text('AR Outstanding');
-    $invnumber = "";
-    $openclosed = "";
-  }
-
-  # accounting years
-  $form->{selectaccountingyear} = "<option>\n";
-  map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} };
-  $form->{selectaccountingmonth} = "<option>\n";
-  map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} };
-
-  $selectfrom = qq|
-        <tr>
-	<th align=right>|.$locale->text('Period').qq|</th>
-	<td colspan=3>
-	<select name=month>$form->{selectaccountingmonth}</select>
-	<select name=year>$form->{selectaccountingyear}</select>
-	<input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	<input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	<input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	<input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	</td>
-      </tr>
-|;
-
-    
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=outstanding value=$form->{outstanding}>
-
-<table width=100%>
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-        <tr>
-	  <th align=right>|.$locale->text('Account').qq|</th>
-	  <td colspan=3><select name=AR>$form->{selectAR}</select></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Customer').qq|</th>
-	  <td colspan=3>$customer</td>
-	</tr>
-	$department
-	$invnumber
-	<tr>
-	  <th align=right>|.$locale->text('Ship via').qq|</th>
-	  <td colspan=3><input name=shipvia size=40></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('From').qq|</th>
-	  <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	<input type=hidden name=sort value=transdate>
-	$selectfrom
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td>
-	    <table width=100%>
-	      $openclosed
-	      <tr>
-		<td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('ID').qq|</td>
-		<td align=right><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Invoice Number').qq|</td>
-		<td align=right><input name="l_ordnumber" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Order Number').qq|</td>
-		<td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Invoice Date').qq|</td>
-	      </tr>
-	      <tr>
-		<td align=right><input name="l_name" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Customer').qq|</td>
-		<td align=right><input name="l_employee" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Salesperson').qq|</td>
-		<td align=right><input name="l_manager" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Manager').qq|</td>
-	      </tr>
-	      <tr>
-		<td align=right><input name="l_netamount" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Amount').qq|</td>
-		<td align=right><input name="l_tax" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Tax').qq|</td>
-		<td align=right><input name="l_amount" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Total').qq|</td>
-		<td align=right><input name="l_curr" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Currency').qq|</td>
-	      </tr>
-	      <tr>
-		<td align=right><input name="l_datepaid" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Date Paid').qq|</td>
-		<td align=right><input name="l_paid" class=checkbox type=checkbox value=Y checked></td>
-		<td nowrap>|.$locale->text('Paid').qq|</td>
-		<td align=right><input name="l_duedate" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Due Date').qq|</td>
-		<td align=right><input name="l_due" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Amount Due').qq|</td>
-	      </tr>
-	      <tr valign=top>
-		<td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Notes').qq|</td>
-		<td align=right><input name="l_till" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Till').qq|</td>
-		<td align=right><input name="l_shippingpoint" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Shipping Point').qq|</td>
-		<td align=right><input name="l_shipvia" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Ship via').qq|</td>
-	      </tr>
-	      <tr>
-		<td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
-		<td nowrap>|.$locale->text('Subtotal').qq|</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=$form->{nextsub}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub ar_transactions {
-
-  if ($form->{customer}) {
-    $form->{customer} = $form->unescape($form->{customer});
-    ($form->{customer}, $form->{customer_id}) = split(/--/, $form->{customer});
-  }
-  
-  AR->ar_transactions(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=ar_transactions&direction=$form->{direction}&oldsort=$form->{oldsort}&till=$form->{till}&outstanding=$form->{outstanding}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $href .= "&title=".$form->escape($form->{title});
-
-  $form->sort_order();
-  
-  $callback = "$form->{script}?action=ar_transactions&direction=$form->{direction}&oldsort=$form->{oldsort}&till=$form->{till}&outstanding=$form->{outstanding}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  $callback .= "&title=".$form->escape($form->{title},1);
-
-  if ($form->{AR}) {
-    $callback .= "&AR=".$form->escape($form->{AR},1);
-    $href .= "&AR=".$form->escape($form->{AR});
-    $form->{AR} =~ s/--/ /;
-    $option = $locale->text('Account')." : $form->{AR}";
-  }
-  
-  if ($form->{customer}) {
-    $callback .= "&customer=".$form->escape($form->{customer},1)."--$form->{customer_id}";
-    $href .= "&customer=".$form->escape($form->{customer})."--$form->{customer_id}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Customer')." : $form->{customer}";
-  }
-  if ($form->{department}) {
-    $callback .= "&department=".$form->escape($form->{department},1);
-    $href .= "&department=".$form->escape($form->{department});
-    ($department) = split /--/, $form->{department};
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Department')." : $department";
-  }
-  if ($form->{invnumber}) {
-    $callback .= "&invnumber=".$form->escape($form->{invnumber},1);
-    $href .= "&invnumber=".$form->escape($form->{invnumber});
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Invoice Number')." : $form->{invnumber}";
-  }
-  if ($form->{ordnumber}) {
-    $callback .= "&ordnumber=".$form->escape($form->{ordnumber},1);
-    $href .= "&ordnumber=".$form->escape($form->{ordnumber});
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Order Number')." : $form->{ordnumber}";
-  }
-  if ($form->{notes}) {
-    $callback .= "&notes=".$form->escape($form->{notes},1);
-    $href .= "&notes=".$form->escape($form->{notes});
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('Notes')." : $form->{notes}";
-  }
-  
-  if ($form->{transdatefrom}) {
-    $callback .= "&transdatefrom=$form->{transdatefrom}";
-    $href .= "&transdatefrom=$form->{transdatefrom}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
-  }
-  if ($form->{transdateto}) {
-    $callback .= "&transdateto=$form->{transdateto}";
-    $href .= "&transdateto=$form->{transdateto}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{transdateto}, 1);
-  }
-  if ($form->{open}) {
-    $callback .= "&open=$form->{open}";
-    $href .= "&open=$form->{open}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Open');
-  }
-  if ($form->{closed}) {
-    $callback .= "&closed=$form->{closed}";
-    $href .= "&closed=$form->{closed}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Closed');
-  }
-
-  @columns = $form->sort_columns(qw(transdate id invnumber ordnumber name netamount tax amount paid due curr datepaid duedate notes till employee manager shippingpoint shipvia));
-  
-  foreach $item (@columns) {
-    if ($form->{"l_$item"} eq "Y") {
-      push @column_index, $item;
-
-      if ($form->{l_curr} && $item =~ /(amount|tax|paid|due)/) {
-	push @column_index, "fx_$item";
-      }
-	
-      # add column to href and callback
-      $callback .= "&l_$item=Y";
-      $href .= "&l_$item=Y";
-    }
-  }
-
-    
-
-  if ($form->{l_subtotal} eq 'Y') {
-    $callback .= "&l_subtotal=Y";
-    $href .= "&l_subtotal=Y";
-  }
-  
-
-  $column_header{id} = "<th><a class=listheading href=$href&sort=id}>".$locale->text('ID')."</a></th>";
-  $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>";
-  $column_header{duedate} = "<th><a class=listheading href=$href&sort=duedate>".$locale->text('Due Date')."</a></th>";
-  $column_header{invnumber} = "<th><a class=listheading href=$href&sort=invnumber>".$locale->text('Invoice')."</a></th>";
-  $column_header{ordnumber} = "<th><a class=listheading href=$href&sort=ordnumber>".$locale->text('Order')."</a></th>";
-  $column_header{name} = "<th><a class=listheading href=$href&sort=name>".$locale->text('Customer')."</a></th>";
-  $column_header{netamount} = "<th class=listheading>" . $locale->text('Amount') . "</th>";
-  $column_header{tax} = "<th class=listheading>" . $locale->text('Tax') . "</th>";
-  $column_header{amount} = "<th class=listheading>" . $locale->text('Total') . "</th>";
-  $column_header{paid} = "<th class=listheading>" . $locale->text('Paid') . "</th>";
-  $column_header{datepaid} = "<th><a class=listheading href=$href&sort=datepaid>" . $locale->text('Date Paid') . "</a></th>";
-  $column_header{due} = "<th class=listheading>" . $locale->text('Amount Due') . "</th>";
-  $column_header{notes} = "<th class=listheading>".$locale->text('Notes')."</th>";
-  $column_header{employee} = "<th><a class=listheading href=$href&sort=employee>".$locale->text('Salesperson')."</th>";
-  $column_header{manager} = "<th><a class=listheading href=$href&sort=manager>".$locale->text('Manager')."</th>";
-  $column_header{till} = "<th class=listheading><a class=listheading href=$href&sort=till>".$locale->text('Till')."</th>";
-  
-  $column_header{shippingpoint} = "<th><a class=listheading href=$href&sort=shippingpoint>" . $locale->text('Shipping Point') . "</a></th>";
-  $column_header{shipvia} = "<th><a class=listheading href=$href&sort=shipvia>" . $locale->text('Ship via') . "</a></th>";
-
-  $column_header{curr} = "<th><a class=listheading href=$href&sort=curr>" . $locale->text('Curr') . "</a></th>";
-  map { $column_header{"fx_$_"} = "<th>&nbsp;</th>" } qw(amount tax netamount paid due);
-
-  $form->{title} = ($form->{title}) ? $form->{title} : $locale->text('AR Transactions');
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-
-  print qq|
-	</tr>
-|;
-
-
-  # add sort and escape callback, this one we use for the add sub
-  $form->{callback} = $callback .= "&sort=$form->{sort}";
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-  
-  # flip direction
-  $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC";
-  $href =~ s/&direction=(\w+)&/&direction=$direction&/;
-  
-  if (@{ $form->{transactions} }) {
-    $sameitem = $form->{transactions}->[0]->{$form->{sort}};
-  }
-  
-  # sums and tax on reports by Antonio Gallardo
-  #
-  foreach $ar (@{ $form->{transactions} }) {
-
-    if ($form->{l_subtotal} eq 'Y') {
-      if ($sameitem ne $ar->{$form->{sort}}) {
-	&ar_subtotal;
-      }
-    }
-
-    if ($form->{l_curr}) {
-      map { $ar->{"fx_$_"} = $ar->{$_}/$ar->{exchangerate} } qw(netamount amount paid);
-
-      map { $column_data{"fx_$_"} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{"fx_$_"}, 2, "&nbsp;")."</td>" } qw(netamount amount paid);
-      
-      $column_data{fx_tax} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{fx_amount} - $ar->{fx_netamount}, 2, "&nbsp;")."</td>";
-      $column_data{fx_due} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{fx_amount} - $ar->{fx_paid}, 2, "&nbsp;")."</td>";
-
-      $subtotalfxnetamount += $ar->{fx_netamount};
-      $subtotalfxamount += $ar->{fx_amount};
-      $subtotalfxpaid += $ar->{fx_paid};
-      
-      $totalfxnetamount += $ar->{fx_netamount};
-      $totalfxamount += $ar->{fx_amount};
-      $totalfxpaid += $ar->{fx_paid};
-      
-    }
-    
-    map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{$_}, 2, "&nbsp;")."</td>" } qw(netamount amount paid);
-    
-    $column_data{tax} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{amount} - $ar->{netamount}, 2, "&nbsp;")."</td>";
-    $column_data{due} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{amount} - $ar->{paid}, 2, "&nbsp;")."</td>";
-    
-    
-    $subtotalnetamount += $ar->{netamount};
-    $subtotalamount += $ar->{amount};
-    $subtotalpaid += $ar->{paid};
-    
-    $totalnetamount += $ar->{netamount};
-    $totalamount += $ar->{amount};
-    $totalpaid += $ar->{paid};
-    
-    $column_data{transdate} = "<td>$ar->{transdate}&nbsp;</td>";
-    $column_data{id} = "<td>$ar->{id}</td>";
-    $column_data{datepaid} = "<td>$ar->{datepaid}&nbsp;</td>";
-    $column_data{duedate} = "<td>$ar->{duedate}&nbsp;</td>";
-
-    $module = ($ar->{invoice}) ? "is.pl" : $form->{script};
-    $module = ($ar->{till}) ? "ps.pl" : $module;
-
-    $column_data{invnumber} = "<td><a href=$module?action=edit&id=$ar->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ar->{invnumber}</a></td>";
-    $column_data{ordnumber} = "<td>$ar->{ordnumber}&nbsp;</td>";
-    
-
-    $name = $form->escape($ar->{name});
-    $column_data{name} = "<td><a href=$href&customer=$name--$ar->{customer_id}&sort=$form->{sort}>$ar->{name}</a></td>";
-    
-    $ar->{notes} =~ s/\r\n/<br>/g;
-    $column_data{notes} = "<td>$ar->{notes}&nbsp;</td>";
-    $column_data{shippingpoint} = "<td>$ar->{shippingpoint}&nbsp;</td>";
-    $column_data{shipvia} = "<td>$ar->{shipvia}&nbsp;</td>";
-    $column_data{employee} = "<td>$ar->{employee}&nbsp;</td>";
-    $column_data{manager} = "<td>$ar->{manager}&nbsp;</td>";
-    $column_data{till} = "<td>$ar->{till}&nbsp;</td>";
-    $column_data{curr} = "<td>$ar->{curr}</td>";
-    
-    $i++; $i %= 2;
-    print "
-        <tr class=listrow$i>
-";
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-        </tr>
-|;
-
-  
-  }
-
-  if ($form->{l_subtotal} eq 'Y') {
-    &ar_subtotal;
-  }
-
-  # print totals
-  print qq|
-        <tr class=listtotal>
-|;
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  
-  $column_data{netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;")."</th>";
-  $column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalpaid, 2, "&nbsp;")."</th>";
-  $column_data{due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalpaid, 2, "&nbsp;")."</th>";
-
-  if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) {
-    $column_data{fx_netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxnetamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalfxnetamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxpaid, 2, "&nbsp;")."</th>";
-    $column_data{fx_due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalfxpaid, 2, "&nbsp;")."</th>";
-  }
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  if ($myconfig{acs} !~ /AR--AR/) {
-    $i = 1;
-    $button{'AR--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|"> |;
-    $button{'AR--Add Transaction'}{order} = $i++;
-    $button{'AR--Sales Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice.').qq|"> |;
-    $button{'AR--Sales Invoice'}{order} = $i++;
-
-    foreach $item (split /;/, $myconfig{acs}) {
-      delete $button{$item};
-    }
-  }
-
-  print qq|
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=customer value="$form->{customer}">
-<input type=hidden name=customer_id value=$form->{customer_id}>
-<input type=hidden name=vc value=customer>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  if (! $form->{till}) {
-    foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-      print $item->{code};
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub ar_subtotal {
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  
-  $column_data{tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount, 2, "&nbsp;")."</th>";
-  $column_data{paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalpaid, 2, "&nbsp;")."</th>";
-  $column_data{due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalpaid, 2, "&nbsp;")."</th>";
-
-  if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) {
-    $column_data{fx_tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount - $subtotalfxnetamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxpaid, 2, "&nbsp;")."</th>";
-    $column_data{fx_due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxmount - $subtotalfxpaid, 2, "&nbsp;")."</th>";
-  }
-  
-  $subtotalnetamount = 0;
-  $subtotalamount = 0;
-  $subtotalpaid = 0;
-  
-  $subtotalfxnetamount = 0;
-  $subtotalfxamount = 0;
-  $subtotalfxpaid = 0;
-
-  $sameitem = $ar->{$form->{sort}};
-  
-  print "<tr class=listsubtotal>";
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-print "
-</tr>
-";
- 
-}
-
-
-
diff --git a/sql-ledger/bin/mozilla/arap.pl b/sql-ledger/bin/mozilla/arap.pl
deleted file mode 100644
index 224ea402b..000000000
--- a/sql-ledger/bin/mozilla/arap.pl
+++ /dev/null
@@ -1,415 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2003
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# common routines for gl, ar, ap, is, ir, oe
-#
-
-# any custom scripts for this one
-if (-f "$form->{path}/custom_arap.pl") {
-  eval { require "$form->{path}/custom_arap.pl"; };
-}
-if (-f "$form->{path}/$form->{login}_arap.pl") {
-  eval { require "$form->{path}/$form->{login}_arap.pl"; };
-}
-
-
-1;
-# end of main
-
-
-sub check_name {
-  my ($name, $msg) = @_;
-
-  my ($new_name, $new_id) = split /--/, $form->{$name};
-  my $i = 0;
-  
-  # if we use a selection
-  if ($form->{"select$name"}) {
-    if ($form->{"old$name"} ne $form->{$name}) {
-      # this is needed for is, ir and oe
-      map { delete $form->{"${_}_rate"} } (split / /, $form->{taxaccounts});
-
-      # for credit calculations
-      $form->{oldinvtotal} = 0;
-      $form->{oldtotalpaid} = 0;
-      $form->{calctax} = 1;
-      
-      $form->{"${name}_id"} = $new_id;
-      IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
-      IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
-
-      $form->{$name} = $form->{"old$name"} = "$new_name--$new_id";
-
-      # put employee together if there is a new employee_id
-      $form->{employee} = "$form->{employee}--$form->{employee_id}" if $form->{employee_id};
-
-      $i = 1;
-    }
-  } else {
-
-    # check name, combine name and id
-    if ($form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}|) {
-      # this is needed for is, ir and oe
-      map { delete $form->{"${_}_rate"} } (split / /, $form->{taxaccounts});
-
-      # for credit calculations
-      $form->{oldinvtotal} = 0;
-      $form->{oldtotalpaid} = 0;
-      $form->{calctax} = 1;
-
-      # return one name or a list of names in $form->{name_list}
-      if (($i = $form->get_name(\%myconfig, $name)) > 1) {
-	&select_name($name);
-	exit;
-      }
-
-      if ($i == 1) {
-	# we got one name
-	$form->{"${name}_id"} = $form->{name_list}[0]->{id};
-	$form->{$name} = $form->{name_list}[0]->{name};
-	$form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|;
-	
-	IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
-	IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
-	
-	# put employee together if there is a new employee_id
-	$form->{employee} = "$form->{employee}--$form->{employee_id}" if $form->{employee_id};
-
-      } else {
-	# name is not on file or no outstanding invoice
-	$msg = ucfirst $name . " not on file!" unless $msg;
-	$form->error($locale->text($msg));
-      }
-    }
-  }
-
-  $i;
-
-}
-
-# $locale->text('Customer not on file!')
-# $locale->text('Vendor not on file!')
-
-
-
-sub select_name {
-  my ($table) = @_;
-  
-  @column_index = qw(ndx name address);
-
-  $label = ucfirst $table;
-  $column_data{ndx} = qq|<th>&nbsp;</th>|;
-  $column_data{name} = qq|<th class=listheading>|.$locale->text($label).qq|</th>|;
-  $column_data{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</th>|;
-  
-  # list items with radio button on a form
-  $form->header;
-
-  $title = $locale->text('Select from one of the names below');
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$title</th>
-  </tr>
-  <tr space=5></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-  
-  print qq|
-	</tr>
-|;
-
-  my $i = 0;
-  foreach $ref (@{ $form->{name_list} }) {
-    $checked = ($i++) ? "" : "checked";
-
-    $ref->{name} = $form->quote($ref->{name});
-    
-   $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
-   $column_data{name} = qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
-   $column_data{address} = qq|<td>$ref->{address1} $ref->{address2} $ref->{city} $ref->{state} $ref->{zipcode} $ref->{country}</td>|;
-    
-    $j++; $j %= 2;
-    print qq|
-	<tr class=listrow$j>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-	</tr>
-
-<input name="new_id_$i" type=hidden value=$ref->{id}>
-
-|;
-
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input name=lastndx type=hidden value=$i>
-
-|;
-
-  # delete variables
-  map { delete $form->{$_} } qw(action name_list header);
-  
-  $form->hide_form();
-
-  print qq|
-<input type=hidden name=nextsub value=name_selected>
-
-<input type=hidden name=vc value=$table>
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub name_selected {
-
-  # replace the variable with the one checked
-
-  # index for new item
-  $i = $form->{ndx};
-  
-  $form->{$form->{vc}} = $form->{"new_name_$i"};
-  $form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
-  $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
-
-  # delete all the new_ variables
-  for $i (1 .. $form->{lastndx}) {
-    map { delete $form->{"new_${_}_$i"} } (id, name);
-  }
-  
-  map { delete $form->{$_} } qw(ndx lastndx nextsub);
-
-  IS->get_customer(\%myconfig, \%$form) if ($form->{vc} eq 'customer');
-  IR->get_vendor(\%myconfig, \%$form) if ($form->{vc} eq 'vendor');
-
-  # put employee together if there is a new employee_id
-  $form->{employee} = "$form->{employee}--$form->{employee_id}" if $form->{employee_id};
-
-  &update(1);
-
-}
-
-
-sub add_transaction {
-  my ($module) = @_;
-
-  delete $form->{script};
-  $form->{action} = "add";
-  $form->{type} = "invoice" if $module =~ /(is|ir)/;
-
-  $form->{callback} = $form->escape($form->{callback},1);
-  map { $argv .= "$_=$form->{$_}&" } keys %$form;
-
-  $form->{callback} = "$module.pl?$argv";
-
-  $form->redirect;
-  
-}
-
-
-
-sub check_project {
-
-  for $i (1 .. $form->{rowcount}) {
-    $form->{"project_id_$i"} = "" unless $form->{"projectnumber_$i"};
-    if ($form->{"projectnumber_$i"} ne $form->{"oldprojectnumber_$i"}) {
-      if ($form->{"projectnumber_$i"}) {
-	# get new project
-	$form->{projectnumber} = $form->{"projectnumber_$i"};
-	if (($rows = PE->projects(\%myconfig, $form)) > 1) {
-	  # check form->{project_list} how many there are
-	  $form->{rownumber} = $i;
-	  &select_project;
-	  exit;
-	}
-
-	if ($rows == 1) {
-	  $form->{"project_id_$i"} = $form->{project_list}->[0]->{id};
-	  $form->{"projectnumber_$i"} = $form->{project_list}->[0]->{projectnumber};
-	  $form->{"oldprojectnumber_$i"} = $form->{project_list}->[0]->{projectnumber};
-	} else {
-	  # not on file
-	  $form->error($locale->text('Project not on file!'));
-	}
-      } else {
-	$form->{"oldprojectnumber_$i"} = "";
-      }
-    }
-  }
-
-}
-
-
-sub select_project {
-  
-  @column_index = qw(ndx projectnumber description);
-
-  $column_data{ndx} = qq|<th>&nbsp;</th>|;
-  $column_data{projectnumber} = qq|<th>|.$locale->text('Number').qq|</th>|;
-  $column_data{description} = qq|<th>|.$locale->text('Description').qq|</th>|;
-  
-  # list items with radio button on a form
-  $form->header;
-
-  $title = $locale->text('Select from one of the projects below');
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=rownumber value=$form->{rownumber}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$title</th>
-  </tr>
-  <tr space=5></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-  
-  print qq|
-        </tr>
-|;
-
-  my $i = 0;
-  foreach $ref (@{ $form->{project_list} }) {
-    $checked = ($i++) ? "" : "checked";
-
-    $ref->{name} = $form->quote($ref->{name});
-    
-   $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
-   $column_data{projectnumber} = qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumber}">$ref->{projectnumber}</td>|;
-   $column_data{description} = qq|<td>$ref->{description}</td>|;
-    
-    $j++; $j %= 2;
-    print qq|
-        <tr class=listrow$j>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-        </tr>
-
-<input name="new_id_$i" type=hidden value=$ref->{id}>
-
-|;
-
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input name=lastndx type=hidden value=$i>
-
-|;
-
-  # delete action variable
-  map { delete $form->{$_} } qw(action project_list header);
-  
-  $form->hide_form();
-
-  print qq|
-<input type=hidden name=nextsub value=project_selected>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub project_selected {
-  
-  # replace the variable with the one checked
-
-  # index for new item
-  $i = $form->{ndx};
-  
-  $form->{"projectnumber_$form->{rownumber}"} = $form->{"new_projectnumber_$i"};
-  $form->{"oldprojectnumber_$form->{rownumber}"} = $form->{"new_projectnumber_$i"};
-  $form->{"project_id_$form->{rownumber}"} = $form->{"new_id_$i"};
-
-  # delete all the new_ variables
-  for $i (1 .. $form->{lastndx}) {
-    map { delete $form->{"new_${_}_$i"} } qw(id projectnumber description);
-  }
-  
-  map { delete $form->{$_} } qw(ndx lastndx nextsub);
-
-  if ($form->{update}) {
-    &{ $form->{update} };
-  } else {
-    &update;
-  }
-
-}
-
-
-sub continue { &{ $form->{nextsub} } };
-sub gl_transaction { &add };
-sub ar_transaction { &add_transaction(ar) };
-sub ap_transaction { &add_transaction(ap) };
-sub sales_invoice_ { &add_transaction(is) };
-sub vendor_invoice_ { &add_transaction(ir) };
-
diff --git a/sql-ledger/bin/mozilla/arapprn.pl b/sql-ledger/bin/mozilla/arapprn.pl
deleted file mode 100644
index eea82c7e6..000000000
--- a/sql-ledger/bin/mozilla/arapprn.pl
+++ /dev/null
@@ -1,660 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2003
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-# 
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-# 
-#
-# printing routines for ar, ap
-#
-
-# any custom scripts for this one
-if (-f "$form->{path}/custom_arapprn.pl") {
-    eval { require "$form->{path}/custom_arapprn.pl"; };
-}
-if (-f "$form->{path}/$form->{login}_arapprn.pl") {
-    eval { require "$form->{path}/$form->{login}_arapprn.pl"; };
-}
-
-
-1;
-# end of main
-
-
-sub print {
-  
-  if ($form->{AP}) {
-    $form->{vc} = "vendor";
-    $form->{ARAP} = "AP";
-    $invfld = "vinumber";
-  }
-  if ($form->{AR}) {
-    $form->{vc} = "customer";
-    $form->{ARAP} = "AR";
-    $invfld = "sinumber";
-  }
-  
-  if ($form->{media} !~ /screen/) {
-    $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;
-  }
-
-  if ($form->{media} eq 'screen' && $form->{formname} =~ /(check|receipt)/) {
-    $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;
-  }
-  
-  if (! $form->{invnumber}) {
-    $form->{invnumber} = $form->update_defaults(\%myconfig, $invfld);
-    if ($form->{media} eq 'screen') {
-      if ($form->{media} eq 'screen') {
-	&update;
-	exit;
-      }
-    }
-  }
-
-  if ($form->{formname} =~ /(check|receipt)/) {
-    if ($form->{media} ne 'screen') {
-      map { delete $form->{$_} } qw(action header);
-      $form->{invtotal} = $form->{oldinvtotal};
-      
-      foreach $key (keys %$form) {
-	$form->{$key} =~ s/&/%26/g;
-	$form->{previousform} .= qq|$key=$form->{$key}&|;
-      }
-      chop $form->{previousform};
-      $form->{previousform} = $form->escape($form->{previousform}, 1);
-    }
-
-    if ($form->{paidaccounts} > 1) {
-      if ($form->{"paid_$form->{paidaccounts}"}) {
-	&update;
-	exit;
-      } elsif ($form->{paidaccounts} > 2) {
-	# select payment
-	&select_payment;
-	exit;
-      }
-    } else {
-      $form->error($locale->text('Nothing to print!'));
-    }
-    
-  }
-
-  &{ "print_$form->{formname}" }(1);
-
-}
-
-
-sub print_check {
-  my ($i) = @_;
-  
-  $display_form = ($form->{display_form}) ? $form->{display_form} : "display_form";
-
-  if ($form->{"paid_$i"}) {
-    @a = ();
-    
-    if (exists $form->{longformat}) {
-      $form->{"datepaid_$i"} = $locale->date(\%myconfig, $form->{"datepaid_$i"}, $form->{longformat});
-    }
-
-    push @a, "source_$i", "memo_$i";
-    $form->format_string(@a);
-  }
-
-  $form->{amount} = $form->{"paid_$i"};
-  map { $form->{$_} = $form->{"${_}_$i"} } qw(datepaid source memo);
-
-  
-  &{ "$form->{vc}_details" };
-  @a = qw(name address1 address2 city state zipcode country);
- 
-  foreach $item (qw(invnumber ordnumber)) {
-    $temp{$item} = $form->{$item};
-    delete $form->{$item};
-    push(@{ $form->{$item} }, $temp{$item});
-  }
-  push(@{ $form->{invdate} }, $form->{transdate});
-  push(@{ $form->{due} }, $form->format_amount(\%myconfig, $form->{oldinvtotal}, 2));
-  push(@{ $form->{paid} }, $form->{"paid_$i"});
-
-  use SL::CP;
-  if ($form->{language_code}) {
-    $c = new CP $form->{language_code};
-  } else {
-    $c = new CP $myconfig->{countrycode};
-  } 
-  $c->init;
-  ($whole, $form->{decimal}) = split /\./, $form->{amount};
-  $form->{decimal} .= "00";
-  $form->{decimal} = substr($form->{decimal}, 0, 2);
-  $form->{text_amount} = $c->num2text($whole); 
-  
-  ($form->{employee}) = split /--/, $form->{employee};
-
-  $form->{notes} =~ s/^\s+//g;
-  push @a, "notes";
-
-  map { $form->{$_} = $myconfig{$_} } (qw(company address tel fax businessnumber));
-  push @a, qw(company address tel fax businessnumber);
-  
-  $form->format_string(@a);
-
-  $form->{templates} = "$myconfig{templates}";
-  $form->{IN} = ($form->{formname} eq 'transaction') ? lc $form->{ARAP} . "_$form->{formname}.html" : "$form->{formname}.html";
-
-  if ($form->{format} =~ /(postscript|pdf)/) {
-    $form->{IN} =~ s/html$/tex/;
-  }
-
-  if ($form->{media} !~ /(screen|queue)/) {
-    $form->{OUT} = "| $printer{$form->{media}}";
-    
-    $reference = $form->{invnumber};
-    
-    if ($form->{formname} =~ /(check|receipt)/) {
-      $form->{rowcount} = 1;
-      $form->{"id_1"} = $form->{id};
-      $form->{"checked_1"} = 1;
-      $form->{account} = $form->{"$form->{ARAP}_paid_$i"};
-      $reference = $form->{"source_$i"};
-    }
-      
-    if ($form->{printed} !~ /$form->{formname}/) {
-
-      $form->{printed} .= " $form->{formname}";
-      $form->{printed} =~ s/^ //;
-
-      $form->update_status(\%myconfig);
-    }
-
-    %audittrail = ( tablename   => lc $form->{ARAP},
-                    reference   => $reference,
-		    formname    => $form->{formname},
-		    action      => 'printed',
-		    id          => $form->{id} );
-    
-    %status = ();
-    map { $status{$_} = $form->{$_} } qw(printed queued audittrail);
-    
-    $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-
-  }
-
-  if ($form->{media} eq 'queue') {
-    %queued = split / /, $form->{queued};
-    
-    $reference = $form->{invnumber};
- 
-    if ($form->{formname} =~ /(check|receipt)/) {
-      $form->{rowcount} = 1;
-      $form->{"id_1"} = $form->{id};
-      $form->{"checked_1"} = 1;
-      $form->{account} = $form->{"$form->{ARAP}_paid_$i"};
-      $reference = $form->{"source_$i"};
-    }
- 
-    if ($filename = $queued{$form->{formname}}) {
-      $form->{queued} =~ s/$form->{formname} $filename//;
-      unlink "$spool/$filename";
-      $filename =~ s/\..*$//g;
-    } else {
-      $filename = time;
-      $filename .= $$;
-    }
-
-    $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
-    $form->{OUT} = ">$spool/$filename";
-
-    $form->{queued} .= " $form->{formname} $filename";
-    $form->{queued} =~ s/^ //;
-
-    # save status
-    $form->update_status(\%myconfig);
-
-    %audittrail = ( tablename   => lc $form->{ARAP},
-                    reference   => $reference,
-		    formname    => $form->{formname},
-		    action      => 'queued',
-		    id          => $form->{id} );
-
-    %status = ();
-    map { $status{$_} = $form->{$_} } qw(printed queued audittrail);
-
-    $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-
-  }
-
-  $form->{fileid} = $invnumber;
-  $form->{fileid} =~ s/(\s|\W)+//g;
-
-  $form->parse_template(\%myconfig, $userspath);
-
-  if ($form->{previousform}) {
-  
-    $previousform = $form->unescape($form->{previousform});
-
-    map { delete $form->{$_} } keys %$form;
-
-    foreach $item (split /&/, $previousform) {
-      ($key, $value) = split /=/, $item, 2;
-      $value =~ s/%26/&/g;
-      $form->{$key} = $value;
-    }
-
-    map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
-
-    map { $form->{"amount_$_"} = $form->parse_amount(\%myconfig, $form->{"amount_$_"}) } (1 .. $form->{rowcount});
-    map { $form->{"tax_$_"} = $form->parse_amount(\%myconfig, $form->{"tax_$_"}) } split / /, $form->{taxaccounts};
-
-    for $i (1 .. $form->{paidaccounts}) {
-      map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
-    }
-
-    map { $form->{$_} = $status{$_} } qw(printed queued audittrail);
-
-    &{ "$display_form" };
-    
-  }
-
-}
-
-
-sub print_receipt { &print_check; }
-
-
-sub print_transaction {
- 
-  $display_form = ($form->{display_form}) ? $form->{display_form} : "display_form";
- 
-  if ($form->{media} !~ /screen/) {
-    $old_form = new Form;
-    map { $old_form->{$_} = $form->{$_} } keys %$form;
-  }
- 
-  &{ "$form->{vc}_details" };
-  @a = qw(name address1 address2 city state zipcode country);
-  
-  
-  $form->{invtotal} = 0;
-  foreach $i (1 .. $form->{rowcount} - 1) {
-    ($form->{tempaccno}, $form->{tempaccount}) = split /--/, $form->{"$form->{ARAP}_amount_$i"};
-    ($form->{tempprojectnumber}) = split /--/, $form->{"projectnumber_$i"};
-    
-    $form->format_string(qw(tempaccno tempaccount tempprojectnumber));
-    
-    push(@{ $form->{accno} }, $form->{tempaccno});
-    push(@{ $form->{account} }, $form->{tempaccount});
-    push(@{ $form->{projectnumber} }, $form->{tempprojectnumber});
-
-    push(@{ $form->{amount} }, $form->{"amount_$i"});
-
-    $form->{subtotal} += $form->parse_amount(\%myconfig, $form->{"amount_$i"});
-    
-  }
-
-  foreach $accno (split / /, $form->{taxaccounts}) {
-    if ($form->{"tax_$accno"}) {
-      $tax += $form->parse_amount(\%myconfig, $form->{"tax_$accno"});
-      push(@{ $form->{tax} }, $form->{"tax_$accno"});
-      push(@{ $form->{taxdescription} }, $form->{"${accno}_description"});
-      push(@{ $form->{taxrate} }, $form->{"${accno}_rate"} * 100);
-      push(@{ $form->{taxnumber} }, $form->{"${accno}_taxnumber"});
-    }
-  }
-    
- 
-  push @a, $form->{ARAP};
-  $form->format_string(@a);
-  
-  $form->{paid} = 0;
-  for $i (1 .. $form->{paidaccounts} - 1) {
-
-    if ($form->{"paid_$i"}) {
-    @a = ();
-    $form->{paid} += $form->parse_amount(\%myconfig, $form->{"paid_$i"});
-    
-    if (exists $form->{longformat}) {
-      $form->{"datepaid_$i"} = $locale->date(\%myconfig, $form->{"datepaid_$i"}, $form->{longformat});
-    }
-
-    push @a, "$form->{ARAP}_paid_$i", "source_$i", "memo_$i";
-    $form->format_string(@a);
-    
-    ($accno, $account) = split /--/, $form->{"$form->{ARAP}_paid_$i"};
-    
-    push(@{ $form->{payment} }, $form->{"paid_$i"});
-    push(@{ $form->{paymentdate} }, $form->{"datepaid_$i"});
-    push(@{ $form->{paymentaccount} }, $account);
-    push(@{ $form->{paymentsource} }, $form->{"source_$i"});
-    push(@{ $form->{paymentmemo} }, $form->{"memo_$i"});
-    }
-    
-  }
-
-
-  $form->{invtotal} = $form->{subtotal} + $tax;
-  $form->{total} = $form->{invtotal} - $form->{paid};
-  
-  use SL::CP;
-  if ($form->{language_code}) {
-    $c = new CP $form->{language_code};
-  } else {
-    $c = new CP $myconfig->{countrycode};
-  } 
-  $c->init;
-  ($whole, $form->{decimal}) = split /\./, $form->{invtotal};
-  $form->{decimal} .= "00";
-  $form->{decimal} = substr($form->{decimal}, 0, 2);
-  $form->{text_amount} = $c->num2text($whole); 
-  
-  map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) } qw(invtotal subtotal paid total);
-  
-  ($form->{employee}) = split /--/, $form->{employee};
-
-  if (exists $form->{longformat}) {
-    map { $form->{$_} = $locale->date(\%myconfig, $form->{$_}, $form->{longformat}) } ("duedate", "transdate");
-  }
-
-  $form->{notes} =~ s/^\s+//g;
-
-  push @a, ("invnumber", "transdate", "duedate", "notes");
-
-  map { $form->{$_} = $myconfig{$_} } (qw(company address tel fax businessnumber));
-  push @a, qw(company address tel fax businessnumber);
-  
-  $form->format_string(@a);
-
-  $form->{invdate} = $form->{transdate};
-
-  $form->{templates} = "$myconfig{templates}";
-  $form->{IN} = ($form->{formname} eq 'transaction') ? lc $form->{ARAP} . "_$form->{formname}.html" : "$form->{formname}.html";
-
-  if ($form->{format} =~ /(postscript|pdf)/) {
-    $form->{IN} =~ s/html$/tex/;
-  }
-
-  if ($form->{media} !~ /(screen|queue)/) {
-    $form->{OUT} = "| $printer{$form->{media}}";
-    
-    if ($form->{printed} !~ /$form->{formname}/) {
-
-      $form->{printed} .= " $form->{formname}";
-      $form->{printed} =~ s/^ //;
-
-      $form->update_status(\%myconfig);
-    }
-
-    $old_form->{printed} = $form->{printed};
-    
-    %audittrail = ( tablename   => lc $form->{ARAP},
-                    reference   => $form->{"invnumber"},
-		    formname    => $form->{formname},
-		    action      => 'printed',
-		    id          => $form->{id} );
-    
-    $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-
-  }
-
-  if ($form->{media} eq 'queue') {
-    %queued = split / /, $form->{queued};
-
-    if ($filename = $queued{$form->{formname}}) {
-      $form->{queued} =~ s/$form->{formname} $filename//;
-      unlink "$spool/$filename";
-      $filename =~ s/\..*$//g;
-    } else {
-      $filename = time;
-      $filename .= $$;
-    }
-
-    $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
-    $form->{OUT} = ">$spool/$filename";
-
-    $form->{queued} .= " $form->{formname} $filename";
-    $form->{queued} =~ s/^ //;
-
-    # save status
-    $form->update_status(\%myconfig);
-
-    $old_form->{queued} = $form->{queued};
-
-    %audittrail = ( tablename   => lc $form->{ARAP},
-                    reference   => $form->{invnumber},
-		    formname    => $form->{formname},
-		    action      => 'queued',
-		    id          => $form->{id} );
-    $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-
-  }
-
-  $form->{fileid} = $form->{invnumber};
-  $form->{fileid} =~ s/(\s|\W)+//g;
-
-  $form->parse_template(\%myconfig, $userspath);
-
-  if ($old_form) {
-    $old_form->{invnumber} = $form->{invnumber};
-    $old_form->{invtotal} = $form->{invtotal};
-
-    map { delete $form->{$_} } keys %$form;
-    map { $form->{$_} = $old_form->{$_} } keys %$old_form;
-
-    if (! $form->{printandpost}) {
-      map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
-
-      map { $form->{"amount_$_"} = $form->parse_amount(\%myconfig, $form->{"amount_$_"}) } (1 .. $form->{rowcount});
-      map { $form->{"tax_$_"} = $form->parse_amount(\%myconfig, $form->{"tax_$_"}) } split / /, $form->{taxaccounts};
-
-      for $i (1 .. $form->{paidaccounts}) {
-	map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
-      }
-    }
-    
-    &{ "$display_form" };
-
-  }
-}
-
-
-sub vendor_details { IR->vendor_details(\%myconfig, \%$form) };
-sub customer_details { IS->customer_details(\%myconfig, \%$form) };
-
-
-sub select_payment {
-
-  @column_index = ("ndx", "datepaid", "source", "memo", "paid", "$form->{ARAP}_paid");
-
-  # list payments with radio button on a form
-  $form->header;
-
-  $title = $locale->text('Select payment');
-
-  $column_data{ndx} = qq|<th width=1%>&nbsp;</th>|;
-  $column_data{datepaid} = qq|<th>|.$locale->text('Date').qq|</th>|;
-  $column_data{source} = qq|<th>|.$locale->text('Source').qq|</th>|;
-  $column_data{memo} = qq|<th>|.$locale->text('Memo').qq|</th>|;
-  $column_data{paid} = qq|<th>|.$locale->text('Amount').qq|</th>|;
-  $column_data{"$form->{ARAP}_paid"} = qq|<th>|.$locale->text('Account').qq|</th>|;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$title</th>
-  </tr>
-  <tr space=5></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-  
-  print qq|
-	</tr>
-|;
-
-  foreach $i (1 .. $form->{paidaccounts} - 1) {
-   $checked = ($i == 1) ? "checked" : "";
-
-   map { $column_data{$_} = qq|<td>$form->{"${_}_$i"}</td>| } @column_index;
-   $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
-   $column_data{paid} = qq|<td align=right>$form->{"paid_$i"}</td>|;
-    
-    $j++; $j %= 2;
-    print qq|
-	<tr class=listrow$j>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-	</tr>
-|;
-
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-  $form->{nextsub} = "payment_selected";
-
-  $form->hide_form();
-  
-  print qq|
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-  
-}
-
-sub payment_selected {
-
-  &{ "print_$form->{formname}" }($form->{ndx});
-
-}
-
-
-sub print_options {
-
-  $form->{PD}{$form->{formname}} = "selected";
-  $form->{DF}{$form->{format}} = "selected";
-
-  if ($form->{selectlanguage}) {
-    $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"});
-    $form->{"selectlanguage"} =~ s/ selected//;
-    $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
-    $lang = qq|<select name=language_code>$form->{selectlanguage}</select>
-    <input type=hidden name=selectlanguage value="|.
-    $form->escape($form->{selectlanguage},1).qq|">|;
-  }
-  
-  $type = qq|<select name=formname>
-          <option value=transaction $form->{PD}{transaction}>|.$locale->text('Transaction');
-
-  if ($form->{AR}) {
-    $type .= qq|
-          <option value=receipt $form->{PD}{receipt}>|.$locale->text('Receipt').qq|</select>|;
-  }
-
-  if ($form->{AP}) {
-    $type .= qq|
-          <option value=check $form->{PD}{check}>|.$locale->text('Check').qq|</select>|;
-  }
-	  
-  $media = qq|<select name=media>
-          <option value=screen>|.$locale->text('Screen');
-
-  if (%printer && $latex) {
-    map { $media .= qq| 
-          <option value="$_">$_| } sort keys %printer;
-  }
-
-  $format = qq|<select name=format>
-            <option value=html $form->{DF}{html}>html|;
-	    
-  if ($latex) {
-# disable for now
-#    $media .= qq|
-#          <option value="queue">|.$locale->text('Queue');
-    $format .= qq|
-            <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq|
-	    <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF');
-  }
-
-  $format .= qq|</select>|;
-  $media .= qq|</select>|;
-  $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;
-
-  print qq|
-  <table width=100%>
-    <tr>
-      <td>
-  $type
-  $lang
-  $format
-  $media
-     </td>
-     <td align=right>
-  |;
-
-  if ($form->{printed} =~ /$form->{formname}/) {
-    print $locale->text('Printed').qq|<br>|;
-  }
-
-  if ($form->{queued} =~ /$form->{formname}/) {
-    print $locale->text('Queued');
-  }
-
-  print qq|
-      </td>
-    </tr>
-  </table>
-|;
-
-}
-
-
-sub print_and_post {
-
-  $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;
-  $form->error($locale->text('Select Printer or Queue!')) if $form->{media} eq 'screen';
-
-  $form->{printandpost} = 1;
-  $form->{display_form} = "post";
-  &print;
-
-}
-
diff --git a/sql-ledger/bin/mozilla/bp.pl b/sql-ledger/bin/mozilla/bp.pl
deleted file mode 100644
index 9d0cea480..000000000
--- a/sql-ledger/bin/mozilla/bp.pl
+++ /dev/null
@@ -1,567 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2003
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Batch printing
-#
-#======================================================================
-
-
-use SL::BP;
-
-1;
-# end of main
-
-
-sub search {
-
-# $locale->text('Sales Invoices')
-# $locale->text('Packing Lists')
-# $locale->text('Pick Lists')
-# $locale->text('Sales Orders')
-# $locale->text('Work Orders')
-# $locale->text('Purchase Orders')
-# $locale->text('Bin Lists')
-# $locale->text('Quotations')
-# $locale->text('RFQs')
-# $locale->text('Checks')
-# $locale->text('Receipts')
-
-  # setup customer/vendor selection
-  BP->get_vc(\%myconfig, \%$form);
-  
-  if (@{ $form->{"all_$form->{vc}"} }) { 
-    map { $name .= "<option>$_->{name}--$_->{id}\n" } @{ $form->{"all_$form->{vc}"} };
-    $name = qq|<select name=$form->{vc}><option>\n$name</select>|;
-  } else {
-    $name = qq|<input name=$form->{vc} size=35>|;
-  }
-
-# $locale->text('Customer')
-# $locale->text('Vendor')
-
-  %label = ( invoice => { title => 'Sales Invoices', name => 'Customer' },
-             packing_list => { title => 'Packing Lists', name => 'Customer' },
-             pick_list => { title => 'Pick Lists', name => 'Customer' },
-             sales_order => { title => 'Sales Orders', name => 'Customer' },
-             work_order => { title => 'Work Orders', name => 'Customer' },
-             purchase_order => { title => 'Purchase Orders', name => 'Vendor' },
-             bin_list => { title => 'Bin Lists', name => 'Vendor' },
-             sales_quotation => { title => 'Quotations', name => 'Customer' },
-             request_quotation => { title => 'RFQs', name => 'Vendor' },
-             check => { title => 'Checks', name => 'Vendor' },
-             receipt => { title => 'Receipts', name => 'Customer' }
-	   );
-
-  $label{invoice}{invnumber} = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
-	  <td colspan=3><input name=invnumber size=20></td>
-	</tr>
-|;
-  $label{invoice}{ordnumber} = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Order Number').qq|</th>
-	  <td colspan=3><input name=ordnumber size=20></td>
-	</tr>
-|;
-  $label{sales_quotation}{quonumber} = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Quotation Number').qq|</th>
-	  <td colspan=3><input name=quonumber size=20></td>
-	</tr>
-|;
-
-  $label{check}{chknumber} = qq|
-  	<tr>
-	  <th align=right nowrap>|.$locale->text('Reference').qq|</th>
-	  <td colspan=3><input name=chknumber size=20></td>
-	</tr>
-|;
-
-  $label{packing_list}{invnumber} = $label{invoice}{invnumber};
-  $label{packing_list}{ordnumber} = $label{invoice}{ordnumber};
-  $label{pick_list}{invnumber} = $label{invoice}{invnumber};
-  $label{pick_list}{ordnumber} = $label{invoice}{ordnumber};
-  $label{sales_order}{ordnumber} = $label{invoice}{ordnumber};
-  $label{work_order}{ordnumber} = $label{invoice}{ordnumber};
-  $label{purchase_order}{ordnumber} = $label{invoice}{ordnumber};
-  $label{bin_list}{ordnumber} = $label{invoice}{ordnumber};
-  $label{request_quotation}{quonumber} = $label{sales_quotation}{quonumber};
-  $label{receipt}{rctnumber} = $label{check}{chknumber};
-  
-  # do one call to text
-  $form->{title} = $locale->text('Print')." ".$locale->text($label{$form->{type}}{title});
-
-  if ($form->{type} =~ /(check|receipt)/) {
-    if (BP->payment_accounts(\%myconfig, \%$form)) {
-      $account = qq|
-        <tr>
-      	  <th align=right>|.$locale->text('Account').qq|</th>
-|;
-
-      if ($form->{accounts}) {
-	$account .= qq|
-	  <td colspan=3><select name=account>
-|;
-	foreach $ref (@{ $form->{accounts} }) {
-	  $account .= qq|
-          <option>$ref->{accno}--$ref->{description}
-|;
-	}
-
-	$account .= qq|
-          </select>
-|;
-      } else {
-	$account .= qq|
-	  <td colspan=3><input name=account></td>
-|;
-
-      }
-      
-      $account .= qq|
-	</tr>
-|;
-
-    }
-  }
-
-
-  # accounting years
-  $form->{selectaccountingyear} = "<option>\n";
-  map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} };
-  $form->{selectaccountingmonth} = "<option>\n";
-  map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} };
-
-  $selectfrom = qq|
-        <tr>
-	<th align=right>|.$locale->text('Period').qq|</th>
-	<td colspan=3>
-	<select name=month>$form->{selectaccountingmonth}</select>
-	<select name=year>$form->{selectaccountingyear}</select>
-	<input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	<input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	<input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	<input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	</td>
-      </tr>
-|;
-
-  
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=vc value=$form->{vc}>
-<input type=hidden name=type value=$form->{type}>
-<input type=hidden name=title value="$form->{title}">
-
-<table width=100%>
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text($label{$form->{type}}{name}).qq|</th>
-	  <td colspan=3>$name</td>
-	</tr>
-	$account
-	$label{$form->{type}}{invnumber}
-	$label{$form->{type}}{ordnumber}
-	$label{$form->{type}}{quonumber}
-	$label{$form->{type}}{chknumber}
-	$label{$form->{type}}{rctnumber}
-	<tr>
-	  <th align=right nowrap>|.$locale->text('From').qq|</th>
-	  <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	<input type=hidden name=sort value=transdate>
-	$selectfrom
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=list_spool>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub remove {
-  
-  $selected = 0;
-  
-  for $i (1 .. $form->{rowcount}) {
-    if ($form->{"checked_$i"}) {
-      $selected = 1;
-      last;
-    }
-  }
-
-  $form->error('Nothing selected!') unless $selected;
- 
-  $form->{title} = $locale->text('Confirm!');
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-  map { delete $form->{$_} } qw(action header);
-  
-  foreach $key (keys %$form) {
-    print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
-  }
-
-  print qq|
-<h2 class=confirm>$form->{title}</h2>
-
-<h4>|.$locale->text('Are you sure you want to remove the marked entries from the queue?').qq|</h4>
-
-<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub yes {
-
-  $form->info($locale->text('Removing marked entries from queue ...'));
-  $form->{callback} .= "&header=1" if $form->{callback};
-
-  $form->redirect($locale->text('Removed spoolfiles!')) if (BP->delete_spool(\%myconfig, \%$form, $spool));
-  $form->error($locale->text('Cannot remove files!'));
-
-}
-
-
-sub print {
-
-  if ($form->{callback}) {
-    map { $form->{callback} .= "&checked_$_=1" if $form->{"checked_$_"} } (1 .. $form->{rowcount});
-    $form->{callback} .= "&header=1";
-  }
-
-  for $i (1 .. $form->{rowcount}) {
-    if ($form->{"checked_$i"}) {
-      $form->{OUT} = "| $printer{$form->{media}}";
-      $form->info($locale->text('Printing ... '));
-
-      if (BP->print_spool(\%myconfig, \%$form, $spool)) {
-	print $locale->text('done');
-	$form->redirect($locale->text('Marked entries printed!'));
-      }
-      exit;
-    }
-  }
-
-  $form->error('Nothing selected!');
-
-}
-
-
-sub list_spool {
-
-  $form->{$form->{vc}} = $form->unescape($form->{$form->{vc}});
-  ($form->{$form->{vc}}, $form->{"$form->{vc}_id"}) = split(/--/, $form->{$form->{vc}});
-
-  BP->get_spoolfiles(\%myconfig, \%$form);
-
-  $title = $form->escape($form->{title});
-  $href = "$form->{script}?action=list_spool&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&vc=$form->{vc}&type=$form->{type}&title=$title";
- 
-  $form->sort_order();
-  
-  $title = $form->escape($form->{title},1);
-  $callback = "$form->{script}?action=list_spool&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&vc=$form->{vc}&type=$form->{type}&title=$title";
-
-  if ($form->{$form->{vc}}) {
-    $callback .= "&$form->{vc}=".$form->escape($form->{$form->{vc}},1);
-    $href .= "&$form->{vc}=".$form->escape($form->{$form->{vc}});
-    $option = ($form->{vc} eq 'customer') ? $locale->text('Customer') : $locale->text('Vendor');
-    $option .= " : $form->{$form->{vc}}";
-  }
-  if ($form->{account}) {
-    $callback .= "&account=".$form->escape($form->{account},1);
-    $href .= "&account=".$form->escape($form->{account});
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Account')." : $form->{account}";
-  }
-  if ($form->{invnumber}) {
-    $callback .= "&invnumber=".$form->escape($form->{invnumber},1);
-    $href .= "&invnumber=".$form->escape($form->{invnumber});
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Invoice Number')." : $form->{invnumber}";
-  }
-  if ($form->{ordnumber}) {
-    $callback .= "&ordnumber=".$form->escape($form->{ordnumber},1);
-    $href .= "&ordnumber=".$form->escape($form->{ordnumber});
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Order Number')." : $form->{ordnumber}";
-  }
-  if ($form->{quonumber}) {
-    $callback .= "&quonumber=".$form->escape($form->{quonumber},1);
-    $href .= "&quonumber=".$form->escape($form->{quonumber});
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Quotation Number')." : $form->{quonumber}";
-  }
- 
-  if ($form->{transdatefrom}) {
-    $callback .= "&transdatefrom=$form->{transdatefrom}";
-    $href .= "&transdatefrom=$form->{transdatefrom}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
-  }
-  if ($form->{transdateto}) {
-    $callback .= "&transdateto=$form->{transdateto}";
-    $href .= "&transdateto=$form->{transdateto}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{transdateto}, 1);
-  }
-
-  $name = ucfirst $form->{vc};
-  
-  @columns = qw(transdate);
-  if ($form->{type} =~ /(invoice|check|receipt)/) {
-    push @columns, "invnumber";
-  }
-  if ($form->{type} =~ /(packing|pick)_list/) {
-    push @columns, "invnumber";
-  }
-  if ($form->{type} =~ /_(order|list)$/) {
-    push @columns, "ordnumber";
-  }
-  if ($form->{type} =~ /_quotation$/) {
-    push @columns, "quonumber";
-  }
-
-  push @columns, (name, spoolfile);
-  @column_index = $form->sort_columns(@columns);
-  unshift @column_index, "checked";
-
-  $column_header{checked} = "<th class=listheading>&nbsp;</th>";
-  $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>";
-  $column_header{invnumber} = "<th><a class=listheading href=$href&sort=invnumber>".$locale->text('Invoice')."</a></th>";
-  $column_header{ordnumber} = "<th><a class=listheading href=$href&sort=ordnumber>".$locale->text('Order')."</a></th>";
-  $column_header{quonumber} = "<th><a class=listheading href=$href&sort=quonumber>".$locale->text('Quotation')."</a></th>";
-  $column_header{name} = "<th><a class=listheading href=$href&sort=name>".$locale->text($name)."</a></th>";
-  $column_header{spoolfile} = "<th class=listheading>".$locale->text('Spoolfile')."</th>";
-
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-
-  print qq|
-	</tr>
-|;
-
-
-  # add sort and escape callback, this one we use for the add sub
-  $form->{callback} = $callback .= "&sort=$form->{sort}";
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-  
-  $i = 0;
-  
-  foreach $ref (@{ $form->{SPOOL} }) {
-
-    $i++;
-   
-    $form->{"checked_$i"} = "checked" if $form->{"checked_$i"};
-    
-    # this is for audittrail
-    $form->{module} = $ref->{module};
-    
-    if ($ref->{invoice}) {
-      $ref->{module} = ($ref->{module} eq 'ar') ? "is" : "ir";
-    }
-    $module = "$ref->{module}.pl";
-    
-    $column_data{transdate} = "<td>$ref->{transdate}&nbsp;</td>";
-
-    if ($spoolfile eq $ref->{spoolfile}) {
-      $column_data{checked} = qq|<td></td>|;
-    } else {
-      $column_data{checked} = qq|<td><input name=checked_$i type=checkbox style=checkbox $form->{"checked_$i"} $form->{"checked_$i"}></td>|;
-    }
-    
-    if ($ref->{module} eq 'oe') {
-      $column_data{invnumber} = qq|<td>&nbsp</td>|;
-      $column_data{ordnumber} = qq|<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&callback=$callback>$ref->{ordnumber}</a></td>
-      <input type=hidden name="reference_$i" value="$ref->{ordnumber}">|;
-      
-      $column_data{quonumber} = qq|<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&callback=$callback>$ref->{quonumber}</a></td>
-    <input type=hidden name="reference_$i" value="$ref->{quonumber}">|;
- 
-    } else {
-      $column_data{ordnumber} = qq|<td>$ref->{ordnumber}</td>|;
-      $column_data{quonumber} = qq|<td>$ref->{quonumber}</td>|;
-      $column_data{invnumber} = qq|<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&callback=$callback>$ref->{invnumber}</a></td>
-    <input type=hidden name="reference_$i" value="$ref->{invnumber}">|;
-    }
-    
-   
-    $column_data{name} = "<td>$ref->{name}</td>";
-    $column_data{spoolfile} = qq|<td><a href=$spool/$ref->{spoolfile}>$ref->{spoolfile}</a></td>
-
-|;
-
-    $spoolfile = $ref->{spoolfile};
-    
-    $j++; $j %= 2;
-    print "
-        <tr class=listrow$j>
-";
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-<input type=hidden name="id_$i" value=$ref->{id}>
-<input type=hidden name="spoolfile_$i" value=$ref->{spoolfile}>
-
-        </tr>
-|;
-
-  }
-
-  print qq|
-<input type=hidden name=rowcount value=$i>
-
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=vc value="$form->{vc}">
-<input type=hidden name=type value="$form->{type}">
-<input type=hidden name=sort value="$form->{sort}">
-<input type=hidden name=module value=$form->{module}>
-
-<input type=hidden name=account value="$form->{account}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  if (%printer && $latex) {
-    foreach $key (sort keys %printer) {
-      print qq|
-<input name=media type=radio class=radio value="$key" |;
-      print qq|checked| if $key eq $myconfig{printer};
-      print qq|>$key|;
-    }
-    
-    print qq|
-<p>
-<input class=submit type=submit name=action value="|.$locale->text('Select all').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Remove').qq|">
-|;
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub select_all {
-
-  map { $form->{"checked_$_"} = 1 } (1 .. $form->{rowcount});
-  &list_spool;
-  
-}
-
-
-sub continue { &{ $form->{nextsub} } };
-
diff --git a/sql-ledger/bin/mozilla/ca.pl b/sql-ledger/bin/mozilla/ca.pl
deleted file mode 100644
index 9ee602e74..000000000
--- a/sql-ledger/bin/mozilla/ca.pl
+++ /dev/null
@@ -1,478 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (C) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#  Contributors:
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# module for Chart of Accounts, Income Statement and Balance Sheet
-# search and edit transactions posted by the GL, AR and AP
-# 
-#======================================================================
-
-use SL::CA;
-
-1;
-# end of main
-
-# this is for our long dates
-# $locale->text('January')
-# $locale->text('February')
-# $locale->text('March')
-# $locale->text('April')
-# $locale->text('May ')
-# $locale->text('June')
-# $locale->text('July')
-# $locale->text('August')
-# $locale->text('September')
-# $locale->text('October')
-# $locale->text('November')
-# $locale->text('December')
-
-# this is for our short month
-# $locale->text('Jan')
-# $locale->text('Feb')
-# $locale->text('Mar')
-# $locale->text('Apr')
-# $locale->text('May')
-# $locale->text('Jun')
-# $locale->text('Jul')
-# $locale->text('Aug')
-# $locale->text('Sep')
-# $locale->text('Oct')
-# $locale->text('Nov')
-# $locale->text('Dec')
-
-
-sub chart_of_accounts {
-
-  CA->all_accounts(\%myconfig, \%$form);
-
-  @column_index = qw(accno gifi_accno description debit credit);
-
-  $column_header{accno} = qq|<th class=listtop>|.$locale->text('Account').qq|</th>\n|;
-  $column_header{gifi_accno} = qq|<th class=listtop>|.$locale->text('GIFI').qq|</th>\n|;
-  $column_header{description} = qq|<th class=listtop>|.$locale->text('Description').qq|</th>\n|;
-  $column_header{debit} = qq|<th class=listtop>|.$locale->text('Debit').qq|</th>\n|;
-  $column_header{credit} = qq|<th class=listtop>|.$locale->text('Credit').qq|</th>\n|;
-  
-
-  $form->{title} = $locale->text('Chart of Accounts');
-
-  $colspan = $#column_index + 1;
-  
-  $form->header;
-
-  print qq|
-<body>
-  
-<table border=0 width=100%>
-  <tr><th class=listtop colspan=$colspan>$form->{title}</th></tr>
-  <tr height="5"></tr>
-  <tr class=listheading>|;
-
-  map { print $column_header{$_} } @column_index;
-
-  print qq|
-  </tr>
-|;
-
-  
-  foreach $ca (@{ $form->{CA} }) {
-
-    $description = $form->escape($ca->{description});
-    $gifi_description = $form->escape($ca->{gifi_description});
-    
-    $href = qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form->{login}&sessionid=$form->{sessionid}&description=$description&gifi_accno=$ca->{gifi_accno}&gifi_description=$gifi_description|;
-    
-    if ($ca->{charttype} eq "H") {
-      print qq|<tr class=listheading>|;
-      map { $column_data{$_} = "<th class=listheading>$ca->{$_}</th>"; } qw(accno description);
-      $column_data{gifi_accno} = "<th class=listheading>$ca->{gifi_accno}&nbsp;</th>";
-    } else {
-      $i++; $i %= 2;
-      print qq|<tr class=listrow$i>|;
-      $column_data{accno} = "<td><a href=$href>$ca->{accno}</a></td>";
-      $column_data{gifi_accno} = "<td><a href=$href&accounttype=gifi>$ca->{gifi_accno}</a>&nbsp;</td>";
-      $column_data{description} = "<td>$ca->{description}</td>";
-    }
-      
-    $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{debit}, 2, "&nbsp;")."</td>\n";
-    $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{credit}, 2, "&nbsp;")."</td>\n";
-    
-    $totaldebit += $ca->{debit};
-    $totalcredit += $ca->{credit};
-
-    map { print $column_data{$_} } @column_index;
-
-    print qq|
-</tr>
-|;
-  }
-
-  map { $column_data{$_} = "<td>&nbsp;</td>"; } qw(accno gifi_accno description);
-
-  $column_data{debit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totaldebit, 2, 0)."</th>";
-  $column_data{credit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totalcredit, 2, 0)."</th>";
-  
-  print "<tr class=listtotal>";
-
-  map { print $column_data{$_} } @column_index;
-
-  print qq|
-</tr>
-<tr>
-  <td colspan=$colspan><hr size=3 noshade></td>
-</tr>
-</table>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub list {
-
-  $form->{title} = $locale->text('List Transactions');
-  if ($form->{accounttype} eq 'gifi') {
-    $form->{title} .= " - ".$locale->text('GIFI')." $form->{gifi_accno}";
-  } else {
-    $form->{title} .= " - ".$locale->text('Account')." $form->{accno}";
-  }
-
-  # get departments
-  $form->all_departments(\%myconfig);
-  if (@{ $form->{all_departments} }) {
-    $form->{selectdepartment} = "<option>\n";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-
-  $department = qq|
-        <tr>
-	  <th align=right nowrap>|.$locale->text('Department').qq|</th>
-	  <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
-	</tr>
-| if $form->{selectdepartment};
-
-  # accounting years
-  $form->{selectaccountingyear} = "<option>\n";
-  map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} };
-  $form->{selectaccountingmonth} = "<option>\n";
-  map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} };
-
-  $selectfrom = qq|
-        <tr>
-	<th align=right>|.$locale->text('Period').qq|</th>
-	<td colspan=3>
-	<select name=month>$form->{selectaccountingmonth}</select>
-	<select name=year>$form->{selectaccountingyear}</select>
-	<input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	<input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	<input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	<input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	</td>
-      </tr>
-|;
-
-
-  $form->header;
-  
-  map { $form->{$_} = $form->quote($form->{$_}) } qw(description gifi_description);
- 
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=accno value=$form->{accno}>
-<input type=hidden name=description value="$form->{description}">
-<input type=hidden name=sort value=transdate>
-
-<input type=hidden name=accounttype value=$form->{accounttype}>
-<input type=hidden name=gifi_accno value=$form->{gifi_accno}>
-<input type=hidden name=gifi_description value="$form->{gifi_description}">
-
-<table border=0 width=100%>
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr height="5"></tr
-  <tr valign=top>
-    <td>
-      <table>
-        $department
-	<tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-	<tr>
-	  <th align=right>|.$locale->text('Include in Report').qq|</th>
-	  <td colspan=3>
-	  <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|</td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr><td><hr size=3 noshade></td></tr>
-</table>
-
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br><input class=submit type=submit name=action value="|.$locale->text('List Transactions').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub list_transactions {
-
-  CA->all_transactions(\%myconfig, \%$form);
-  
-  $description = $form->escape($form->{description});
-  $gifi_description = $form->escape($form->{gifi_description});
-  $department = $form->escape($form->{department});
-  $projectnumber = $form->escape($form->{projectnumber});
-  $title = $form->escape($form->{title});
-
-  # construct href
-  $href = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=list_transactions&accno=$form->{accno}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&gifi_accno=$form->{gifi_accno}&gifi_description=$gifi_description&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&title=$title";
-
-  $form->sort_order();
-  
-  $description = $form->escape($form->{description},1);
-  $gifi_description = $form->escape($form->{gifi_description},1);
-  $department = $form->escape($form->{department},1);
-  $projectnumber = $form->escape($form->{projectnumber},1);
-  $title = $form->escape($form->{title},1);
- 
-  # construct callback
-  $callback = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=list_transactions&accno=$form->{accno}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&gifi_accno=$form->{gifi_accno}&gifi_description=$gifi_description&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&title=$title";
-
-  # figure out which column comes first
-  $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</a></th>|;
-  $column_header{reference} = qq|<th><a class=listheading href=$href&sort=reference>|.$locale->text('Reference').qq|</a></th>|;
-  $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
-  $column_header{cleared} = qq|<th class=listheading>|.$locale->text('R').qq|</th>|;
-  $column_header{debit} = qq|<th class=listheading>|.$locale->text('Debit').qq|</th>|;
-  $column_header{credit} = qq|<th class=listheading>|.$locale->text('Credit').qq|</th>|;
-  $column_header{balance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|;
-
-  @column_index = $form->sort_columns(qw(transdate reference description debit credit));
-
-  if ($form->{link} =~ /_paid/) {
-    @column_index = $form->sort_columns(qw(transdate reference description cleared debit credit));
-  }
-  
-  if ($form->{accounttype} eq 'gifi') {
-    map { $form->{$_} = $form->{"gifi_$_"} } qw(accno description);
-  }
-  if ($form->{accno}) {
-    push @column_index, "balance";
-  }
-    
-  $form->{title} = ($form->{accounttype} eq 'gifi') ? $locale->text('GIFI') : $locale->text('Account');
-  
-  $form->{title} .= " $form->{accno} - $form->{description}";
-
-  if ($form->{department}) {
-    ($department) = split /--/, $form->{department};
-    $options = $locale->text('Department')." : $department<br>";
-  }
-  if ($form->{projectnumber}) {
-    ($projectnumber) = split /--/, $form->{projectnumber};
-    $options .= $locale->text('Project Number')." : $projectnumber<br>";
-  }
-
-  if ($form->{fromdate} || $form->{todate}) {
-    if ($form->{fromdate}) {
-      $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
-    }
-    if ($form->{todate}) {
-      $todate = $locale->date(\%myconfig, $form->{todate}, 1);
-    }
-    
-    $form->{period} = "$fromdate - $todate";
-  } else {
-    $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig),1);
-  }
-
-  $options .= $form->{period};
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$options</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-       <tr class=listheading>
-|;
-
-map { print "$column_header{$_}\n" } @column_index;
-
-print qq|
-       </tr>
-|;
-
-  # add sort to callback
-  $callback = $form->escape($callback . "&sort=$form->{sort}");
-
-  if (@{ $form->{CA} }) {
-    $sameitem = $form->{CA}->[0]->{$form->{sort}};
-  }
-
-  $ml = ($form->{category} =~ /(A|E)/) ? -1 : 1;
-  if ($form->{accno} && $form->{balance}) {
-    
-    map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-    $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>";
-    
-    $i++; $i %= 2;
-    print qq|
-        <tr class=listrow$i>
-|;
-    map { print $column_data{$_} } @column_index;
-    print qq|
-       </tr>
-|;
-  }
-    
-  foreach $ca (@{ $form->{CA} }) {
-
-    if ($form->{l_subtotal} eq 'Y') {
-      if ($sameitem ne $ca->{$form->{sort}}) {
-	&ca_subtotal;
-      }
-    }
-    
-    # construct link to source
-    $href = "<a href=$ca->{module}.pl?path=$form->{path}&action=edit&id=$ca->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{reference}</a>";
-
-    
-    $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{debit}, 2, "&nbsp;")."</td>";
-    $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{credit}, 2, "&nbsp;")."</td>";
-    
-    $form->{balance} += $ca->{amount};
-    $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>";
-
-    $subtotaldebit += $ca->{debit};
-    $subtotalcredit += $ca->{credit};
-    
-    $totaldebit += $ca->{debit};
-    $totalcredit += $ca->{credit};
-    
-    $column_data{transdate} = qq|<td>$ca->{transdate}</td>|;
-    $column_data{reference} = qq|<td>$href</td>|;
-    $column_data{description} = qq|<td>$ca->{description}&nbsp;</td>|;
-    
-    $column_data{cleared} = ($ca->{cleared}) ? qq|<td>*</td>| : qq|<td>&nbsp;</td>|;
-  
-    $i++; $i %= 2;
-    print qq|
-        <tr class=listrow$i>
-|;
-
-    map { print $column_data{$_} } @column_index;
-
-    print qq|
-        </tr>
-|;
-
-  }
- 
-
-  if ($form->{l_subtotal} eq 'Y') {
-    &ca_subtotal;
-  }
- 
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  
-  $column_data{debit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totaldebit, 2, "&nbsp;")."</th>";
-  $column_data{credit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totalcredit, 2, "&nbsp;")."</th>";
-  $column_data{balance} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</th>";
-
-  print qq|
-	<tr class=listtotal>
-|;
-
-  map { print $column_data{$_} } @column_index;
-  
-  print qq|
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-</body>
-</html>
-|;
-  
-}
-
-
-sub ca_subtotal {
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  
-  $column_data{debit} = "<th align=right class=listsubtotal>".$form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;") . "</th>";
-  $column_data{credit} = "<th align=right class=listsubtotal>".$form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;") . "</th>";
-       
-  $subtotaldebit = 0;
-  $subtotalcredit = 0;
-
-  $sameitem = $ca->{$form->{sort}};
-
-  print qq|
-      <tr class=listsubtotal>
-|;
-
-  map { print "$column_data{$_}\n" } @column_index;
-
-  print qq|
-      </tr>
-|;
-
-}
-
diff --git a/sql-ledger/bin/mozilla/cp.pl b/sql-ledger/bin/mozilla/cp.pl
deleted file mode 100644
index 8aefa0ccd..000000000
--- a/sql-ledger/bin/mozilla/cp.pl
+++ /dev/null
@@ -1,724 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2002
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-# Contributors:
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Payment module
-#
-#======================================================================
-
-
-use SL::CP;
-use SL::OP;
-use SL::IS;
-use SL::IR;
-
-require "$form->{path}/arap.pl";
-
-1;
-# end of main
-
-
-sub payment {
-  
-  $form->{callback} = "$form->{script}?action=payment&vc=$form->{vc}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&all_vc=$form->{all_vc}&type=$form->{type}";
-  
-  $form->{ARAP} = ($form->{type} eq 'receipt') ? "AR" : "AP";
-  $form->{arap} = lc $form->{ARAP};
-
-  # setup customer/vendor selection for open invoices
-  if ($form->{all_vc}) {
-    $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});
-  } else {
-    CP->get_openvc(\%myconfig, \%$form);
-  }
-
-  $form->{"select$form->{vc}"} = "";
-  
-  if ($form->{"all_$form->{vc}"}) {
-    $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
-    map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} };
-  }
-
-  # departments
-  if (@{ $form->{all_departments} }) { 
-    $form->{selectdepartment} = "<option>\n";
-    $form->{department} = "$form->{department}--$form->{department_id}" if $form->{department};
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-
-  if (@{ $form->{all_languages} }) {
-    $form->{selectlanguage} = "<option>\n";
-    map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} };
-  }
-
-  CP->paymentaccounts(\%myconfig, \%$form);
-
-  $form->{selectaccount} = "";
-  $form->{"select$form->{ARAP}"} = "";
-
-  map { $form->{selectaccount} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{PR}{"$form->{ARAP}_paid"} };
-  map { $form->{"select$form->{ARAP}"} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{PR}{$form->{ARAP}} };
-
-  # currencies
-  @curr = split /:/, $form->{currencies};
-  chomp $curr[0];
-  $form->{defaultcurrency} = $curr[0];
-
-  $form->{selectcurrency} = "";
-  map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
-
-  $form->{oldcurrency} = $form->{currency};
-
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    $form->{forex} = $form->{exchangerate} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{datepaid}, ($form->{vc} eq 'customer') ? "buy" : "sell");
-  }
-  
-  $form->{media} = $myconfig{printer};
-  $form->{format} = "pdf" unless $myconfig{printer};
-
-  &form_header;
-  &form_footer;
-
-}
-
-
-
-sub form_header {
-
-  $vclabel = ucfirst $form->{vc};
-  $vclabel = $locale->text($vclabel);
-  
-  if ($form->{type} eq 'receipt') {
-    $form->{title} = $locale->text('Receipt');
-  }
-  if ($form->{type} eq 'check') {
-    $form->{title} = $locale->text('Payment');
-  }
-
-
-# $locale->text('Customer')
-# $locale->text('Vendor')
-
-  if ($form->{$form->{vc}} eq "") {
-    map { $form->{$_} = "" } qw(address1 address2 city zipcode state country);
-  }
-
-  $exchangerate = "";
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
-    if ($form->{forex}) {
-      $exchangerate = qq|
- 	      <tr>
-		<th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>
-		<td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
-	      </tr>
-|;
-    } else {
-      $exchangerate = qq|
- 	      <tr>
-		<th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>
-		<td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
-	      </tr>
-|;
-    }
-  }
-
-  foreach $item ($form->{vc}, department) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"});
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/;
-  }
-  
-  foreach $item (account, currency, $form->{ARAP}) {
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
-  }
-
-  $vc = ($form->{"select$form->{vc}"}) ? qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}\n</select>| : qq|<input name=$form->{vc} size=35 value="$form->{$form->{vc}}">|;
-
-  if ($form->{all_vc}) {
-    $allvc = "checked";
-    $form->{openinvoices} = "";
-  } else {
-    $allvc = "";
-    $form->{openinvoices} = 1;
-  }
-  
-# $locale->text('AR')
-# $locale->text('AP')
-
-  $department = qq|
-              <tr>
-	        <th align="right" nowrap>|.$locale->text('Department').qq|</th>
-		<td><select name=department>$form->{selectdepartment}</select>
-		<input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|">
-		<input type=hidden name=olddepartment value="$form->{department}">
-
-	      </td>
-	    </tr>
-| if $form->{selectdepartment};
-
-  $form->header;
-
-  $arap = lc $form->{ARAP};
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<!-- <input type=hidden name=id value=1> -->
-
-<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
-<input type=hidden name=closedto value=$form->{closedto}>
-<input type=hidden name=vc value=$form->{vc}>
-<input type=hidden name=type value=$form->{type}>
-<input type=hidden name=formname value=$form->{type}>
-<input type=hidden name=queued value="$form->{queued}">
-<input type=hidden name=arap value=$arap>
-<input type=hidden name=ARAP value=$form->{ARAP}>
-<input type=hidden name=openinvoices value=$form->{openinvoices}>
-<input type=hidden name=title value="$form->{title}">
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-	        <td align=right>
-		<input name=all_vc type=checkbox style=checkbox value=Y $allvc>
-		<input type=hidden name="oldall_vc" value="$form->{all_vc}"></td>
-		<th align=left>|.$locale->text('All').qq|</th>
-	      </tr>
-	      <tr>
-		<th align=right>$vclabel</th>
-		<td>$vc</td>
-                <input type=hidden name="select$form->{vc}" value="|.$form->escape($form->{"select$form->{vc}"},1).qq|">
-                <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
-		<input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
-	      </tr>
-	      <tr valign=top>
-		<th align=right nowrap>|.$locale->text('Address').qq|</th>
-		<td colspan=2>
-		  <table>
-		    <tr>
-		      <td>$form->{address1}</td>
-		    </tr>
-		    <tr>
-		      <td>$form->{address2}</td>
-		    </tr>
-		      <td>$form->{city}</td>
-		    </tr>
-		    </tr>
-		      <td>$form->{state}</td>
-		    </tr>
-		    </tr>
-		      <td>$form->{zipcode}</td>
-		    </tr>
-		    <tr>
-		      <td>$form->{country}</td>
-		    </tr>
-		  </table>
-		</td>
-		<input type=hidden name=address1 value="$form->{address1}">
-		<input type=hidden name=address2 value="$form->{address2}">
-		<input type=hidden name=city value="$form->{city}">
-		<input type=hidden name=state value="$form->{state}">
-		<input type=hidden name=zipcode value="$form->{zipcode}">
-		<input type=hidden name=country value="$form->{country}">
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Memo').qq|</th>
-		<td colspan=2><input name="memo" size=30 value="$form->{memo}"></td>
-	      </tr>
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      $department
-	      <tr>
-	        <th align=right nowrap>|.$locale->text($form->{ARAP}).qq|</th>
-		<td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select>
-		</td>
-		<input type=hidden name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Account').qq|</th>
-		<td colspan=3><select name=account>$form->{selectaccount}</select>
-		<input type=hidden name=selectaccount value="$form->{selectaccount}">
-		</td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Date').qq|</th>
-		<td><input name=datepaid value="$form->{datepaid}" title="$myconfig{dateformat}" size=11></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Currency').qq|</th>
-		<td><select name=currency>$form->{selectcurrency}</select></td>
-		<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-		<input type=hidden name=oldcurrency value=$form->{oldcurrency}>
-	      </tr>
-	      $exchangerate
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Source').qq|</th>
-		<td colspan=3><input name=source value="$form->{source}" size=10></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Amount').qq|</th>
-		<td colspan=3><input name=amount size=10 value=|.$form->format_amount(\%myconfig, $form->{amount}, 2).qq|></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-|;
-
-}
-
-
-sub list_invoices {
-
-  @column_index = qw(invnumber transdate amount due checked paid);
-  
-  $colspan = $#column_index + 1;
-
-  $invoice = $locale->text('Invoices');
-  
-  print qq|
-  <input type=hidden name=column_index value="id @column_index">
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th class=listheading colspan=$colspan>$invoice</th>
-	</tr>
-|;
-
-  $column_data{invnumber} = qq|<th nowrap>|.$locale->text('Invoice')."</th>";
-  $column_data{transdate} = qq|<th nowrap>|.$locale->text('Date')."</th>";
-  $column_data{amount} = qq|<th nowrap>|.$locale->text('Amount')."</th>";
-  $column_data{due} = qq|<th nowrap>|.$locale->text('Amount Due')."</th>";
-  $column_data{paid} = qq|<th nowrap>|.$locale->text('Amount')."</th>";
-  $column_data{checked} = qq|<th nowrap>|.$locale->text('Select')."</th>";
-  
-  print qq|
-        <tr>
-|;
-  map { print "$column_data{$_}\n" } @column_index;
-  print qq|
-        </tr>
-|;
-
-  for $i (1 .. $form->{rowcount}) {
-
-    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(amount due paid);
-    
-    $totalamount += $form->{"amount_$i"};
-    $totaldue += $form->{"due_$i"};
-    $totalpaid += $form->{"paid_$i"};
-
-    map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(amount due paid);
-
-    $column_data{invnumber} = qq|<td>$form->{"invnumber_$i"}</td>
-      <input type=hidden name="invnumber_$i" value="$form->{"invnumber_$i"}">
-      <input type=hidden name="id_$i" value=$form->{"id_$i"}>|;
-    $column_data{transdate} = qq|<td width=15%>$form->{"transdate_$i"}</td>
-      <input type=hidden name="transdate_$i" value=$form->{"transdate_$i"}>|;
-    $column_data{amount} = qq|<td align=right width=15%>$form->{"amount_$i"}</td>
-      <input type=hidden name="amount_$i" value=$form->{"amount_$i"}>|;
-    $column_data{due} = qq|<td align=right width=15%>$form->{"due_$i"}</td>
-      <input type=hidden name="due_$i" value=$form->{"due_$i"}>|;
-
-    $column_data{paid} = qq|<td align=right width=15%><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;
-
-    $form->{"checked_$i"} = ($form->{"checked_$i"}) ? "checked" : "";
-    $column_data{checked} = qq|<td align=center width=10%><input name="checked_$i" type=checkbox style=checkbox $form->{"checked_$i"}></td>|;
-
-    $j++; $j %= 2;
-    print qq|
-	<tr class=listrow$j>
-|;
-    map { print "$column_data{$_}\n" } @column_index;
-    print qq|
-        </tr>
-|;
-  }
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-  $column_data{amount} = qq|<th class=listtotal align=right>|.$form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;").qq|</th>|;
-  $column_data{due} = qq|<th class=listtotal align=right>|.$form->format_amount(\%myconfig, $totaldue, 2, "&nbsp;").qq|</th>|;
-  $column_data{paid} = qq|<th class=listtotal align=right>|.$form->format_amount(\%myconfig, $totalpaid, 2, "&nbsp;").qq|</th>|;
-
-  print qq|
-        <tr class=listtotal>
-|;
-  map { print "$column_data{$_}\n" } @column_index;
-  print qq|
-        </tr>
-      </table>
-    </td>
-  </tr>
-|;
-
-}
-
-
-sub form_footer {
-
-  $form->{DF}{$form->{format}} = "selected";
-
-  if ($form->{selectlanguage}) {
-    $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"});
-    $form->{"selectlanguage"} =~ s/ selected//;
-    $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
-    $lang = qq|<select name=language_code>$form->{selectlanguage}</select>
-    <input type=hidden name=selectlanguage value="|.
-    $form->escape($form->{selectlanguage},1).qq|">|;
-  }
-  
-  $media = qq|
-          <option value=screen>|.$locale->text('Screen') if $latex;
-
-  if (%printer && $latex) {
-    map { $media .= qq| 
-          <option value="$_">$_| } sort keys %printer;
-  }
-  if ($latex) {
-    $media .= qq|
-          <option value=queue>|.$locale->text('Queue');
-    $format .= qq|
-            <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq|
-	    <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF');
-  }
-  
-      
-  print qq|
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=callback value="$form->{callback}">
-<input type=hidden name=rowcount value=$form->{rowcount}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|;
-
-  if ($latex) {
-    print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">|;
-  }
-
-  $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;
-
-  print qq|
-  $lang
-<select name=format>$format</select>
-<select name=media>$media</select>
-|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub update {
-  my ($new_name_selected) = @_;
-
-  if ($form->{vc} eq 'customer') {
-    $buysell = "buy";
-  } else {
-    $buysell = "sell";
-  }
-
-  # get customer
-  $updated = &check_name($form->{vc}, $locale->text('Nothing outstanding for ') . $form->{customer});
-
-  if ($form->{department} ne $form->{olddepartment}) {
-    $updated = 1;
-  }
-  
-  # if we switched to all_vc
-  if ($form->{all_vc} ne $form->{oldall_vc}) {
-
-    $form->{openinvoices} = ($form->{all_vc}) ? 0 : 1;
-    
-    $form->{"select$form->{vc}"} = "";
-
-    if ($form->{all_vc}) {
-      $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});
-      
-      if ($form->{"all_$form->{vc}"}) {
-	map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} };
-      }
-      
-    } else {
-      CP->get_openvc(\%myconfig, \%$form);
-      
-      if ($form->{"all_$form->{vc}"}) {
-	$newvc = qq|$form->{"all_$form->{vc}"}[0]->{name}--$form->{"all_$form->{vc}"}[0]->{id}|;
-	map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} };
-
-
-	# if the name is not the same
-	if ($form->{"select$form->{vc}"} !~ /$form->{$form->{vc}}/) {
-	  $form->{$form->{vc}} = $newvc;
-	  &check_name($form->{vc}, $locale->text('Nothing outstanding for ') . $form->{customer});
-	}
-      }
-    }
-
-    if (@{ $form->{all_languages} }) {
-      $form->{selectlanguage} = "<option>\n";
-      map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} };
-    }
-
-  }
-
-  if ($new_name_selected || $updated) {
-    CP->get_openinvoices(\%myconfig, \%$form);
-    ($newvc) = split /--/, $form->{$form->{vc}};
-    $form->{"old$form->{vc}"} = qq|$newvc--$form->{"$form->{vc}_id"}|;;
-    $updated = 1;
-  }
-
-  if ($form->{currency} ne $form->{oldcurrency}) {
-    $form->{oldcurrency} = $form->{currency};
-    if (!$updated) {
-      CP->get_openinvoices(\%myconfig, \%$form);
-      $updated = 1;
-    }
-  }
-  
-  
-  $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{datepaid}, $buysell)));
-
-  $amount = $form->{amount} = $form->parse_amount(\%myconfig, $form->{amount});
-
-
-  if ($updated) {
-    $form->{rowcount} = 0;
-
-    $form->{queued} = "";
-    
-    $i = 0;
-    foreach $ref (@{ $form->{PR} }) {
-      $i++;
-      $form->{"id_$i"} = $ref->{id};
-      $form->{"invnumber_$i"} = $ref->{invnumber};
-      $form->{"transdate_$i"} = $ref->{transdate};
-      $ref->{exchangerate} = 1 unless $ref->{exchangerate};
-      $form->{"amount_$i"} = $ref->{amount} / $ref->{exchangerate};
-      $form->{"due_$i"} = ($ref->{amount} - $ref->{paid}) / $ref->{exchangerate};
-      $form->{"checked_$i"} = "";
-      $form->{"paid_$i"} = "";
-
-      # need to format
-      map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(amount due);
-
-    }
-    $form->{rowcount} = $i;
-  }
-
-  # recalculate
-  $amount = $form->{amount};
-  for $i (1 .. $form->{rowcount}) {
-
-    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(amount due paid);
-
-    if ($form->{"checked_$i"}) {
-      # calculate paid_$i
-      if (!$form->{"paid_$i"}) {
-	$form->{"paid_$i"} = $form->{"due_$i"};
-      }
-      
-      $amount -= $form->{"paid_$i"};
-    } else {
-      $form->{"paid_$i"} = "";
-    }
-
-    map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(amount due paid);
-
-  }
-
-  &form_header;
-  &list_invoices;
-  &form_footer;
-  
-}
-
-
-sub post {
-  
-  &check_form;
-  
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    $form->error($locale->text('Exchange rate missing!')) unless $form->{exchangerate};
-  }
-
-  $msg1 = "$form->{title} posted!";
-  $msg2 = "Cannot post $form->{title}!";
-
-# $locale->text('Payment posted!')
-# $locale->text('Receipt posted!')
-# $locale->text('Cannot post Payment!')
-# $locale->text('Cannot post Receipt!')
-
-
-  $form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2);
-
-  $form->redirect($locale->text($msg1)) if (CP->process_payment(\%myconfig, \%$form));
-  $form->error($locale->text($msg2));
-
-}
-
-
-sub print {
- 
-  &check_form;
-
-  ($whole, $form->{decimal}) = split /\./, $form->{amount};
-  
-  $form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2);
-  
-  $form->{decimal} .= "00";
-  $form->{decimal} = substr($form->{decimal}, 0, 2);
-
-  $countrycode = ($form->{language_code}) ? $form->{language_code} : $myconfig{countrycode};
-  $check = new CP $countrycode;
-  $check->init;
-  $form->{text_amount} = $check->num2text($whole);
-
-  &{ "$form->{vc}_details" };
-
-  $form->{templates} = "$myconfig{templates}";
-  $form->{IN} = "$form->{formname}.tex";
-
-  if ($form->{media} !~ /(screen|queue)/) {
-    $form->{OUT} = "| $printer{$form->{media}}";
-  }
-  if ($form->{media} eq 'queue') {
-    %queued = split / /, $form->{queued};
-    
-    if ($filename = $queued{$form->{formname}}) {
-      unlink "$spool/$filename";
-      $filename =~ s/\..*$//g;
-    } else {
-      $filename = time;
-      $filename .= $$;
-    }
-    $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
-    $form->{queued} = "$form->{formname} $filename";
-    $form->{OUT} = ">$spool/$filename";
-
-    $form->update_status(\%myconfig);
-
-  }
-
-
-  $form->{company} = $myconfig{company};
-  $form->{address} = $myconfig{address};
-
-  @a = qw(name company address text_amount address1 address2 city state zipcode country memo);
-  $form->format_string(@a);
-
-  $form->parse_template(\%myconfig, $userspath);
-
-  &update if $form->{media} ne 'screen';
-
-}
-
-
-sub customer_details { IS->customer_details(\%myconfig, \%$form) };
-sub vendor_details { IR->vendor_details(\%myconfig, \%$form) };
-  
-
-sub check_form {
-  
-  &check_name($form->{vc}, $locale->text('Nothing outstanding for ') . $form->{customer});
-
-  if ($form->{currency} ne $form->{oldcurrency}) {
-    &update;
-    exit;
-  }
-  
-  $form->error($locale->text('Date missing!')) unless $form->{datepaid};
-
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-  $datepaid = $form->datetonum($form->{datepaid}, \%myconfig);
-  
-  $form->error($locale->text('Cannot process payment for a closed period!')) if ($datepaid <= $closedto);
-
-  # this is just to format the year
-  $form->{datepaid} = $locale->date(\%myconfig, $form->{datepaid});
-  
-  $amount = $form->parse_amount(\%myconfig, $form->{amount});
-  $form->{amount} = $amount;
-  
-  for $i (1 .. $form->{rowcount}) {
-    if ($form->{"paid_$i"}) {
-      $amount -= $form->parse_amount(\%myconfig, $form->{"paid_$i"});
-      
-      push(@{ $form->{paid} }, $form->{"paid_$i"});
-      push(@{ $form->{due} }, $form->{"due_$i"});
-      push(@{ $form->{invnumber} }, $form->{"invnumber_$i"});
-      push(@{ $form->{invdate} }, $form->{"transdate_$i"});
-    }
-  }
-
-  if ($form->round_amount($amount, 2) != 0) {
-    push(@{ $form->{paid} }, $form->format_amount(\%myconfig, $amount, 2));
-    push(@{ $form->{due} }, $form->format_amount(\%myconfig, 0, "0"));
-    push(@{ $form->{invnumber} }, ($form->{ARAP} eq 'AR') ? $locale->text('Deposit') : $locale->text('Prepayment'));
-    push(@{ $form->{invdate} }, $form->{datepaid});
-  }
-   
-}
-
-
diff --git a/sql-ledger/bin/mozilla/ct.pl b/sql-ledger/bin/mozilla/ct.pl
deleted file mode 100644
index 988422b9d..000000000
--- a/sql-ledger/bin/mozilla/ct.pl
+++ /dev/null
@@ -1,2327 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#  Contributors: Reed White <alta@alta-research.com>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# customer/vendor module
-#
-#======================================================================
-
-use SL::CT;
-
-1;
-# end of main
-
-
-
-sub add {
-
-  $form->{title} = "Add";
-# $locale->text('Add Customer')
-# $locale->text('Add Vendor')
-
-  $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  CT->create_links(\%myconfig, \%$form);
-  
-  &form_header;
-  &form_footer;
-  
-}
-
-
-sub history {
-
-# $locale->text('Customer History')
-# $locale->text('Vendor History')
-
-  $history = 1;
-  $label = ucfirst $form->{db};
-  $label .= " History";
-
-  if ($form->{db} eq 'customer') {
-    $invlabel = $locale->text('Sales Invoices');
-    $ordlabel = $locale->text('Sales Orders');
-    $quolabel = $locale->text('Quotations');
-  } else {
-    $invlabel = $locale->text('Vendor Invoices');
-    $ordlabel = $locale->text('Purchase Orders');
-    $quolabel = $locale->text('Request for Quotations');
-  }
-  
-  $form->{title} = $locale->text($label);
-  
-  $form->{nextsub} = "list_history";
-
-  $transactions = qq|
- 	<tr>
-	  <td></td>
-	  <td>
-	    <table>
-	      <tr>
-	        <td>
-		  <table>
-		    <tr>
-		      <td><input name=type type=radio class=radio value=invoice checked> $invlabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name=type type=radio class=radio value=order> $ordlabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name="type" type=radio class=radio value=quotation> $quolabel</td>
-		    </tr>
-		  </table>
-		</td>
-		<td>
-		  <table>
-		    <tr>
-		      <th>|.$locale->text('From').qq|</th>
-		      <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-		      <th>|.$locale->text('To').qq|</th>
-		      <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
-		    </tr>
-		    <tr>
-		      <td></td>
-		      <td colspan=3>
-	              <input name="open" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Open').qq|
-	              <input name="closed" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Closed').qq|
-		      </td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
- 	    </table>
-	  </td>
-	</tr>
-|;
-
-  $include = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td>
-	    <table>
-	      <tr>
-		<td><input name=history type=radio class=radio value=summary checked> |.$locale->text('Summary').qq|</td>
-		<td><input name=history type=radio class=radio value=detail> |.$locale->text('Detail').qq|
-		</td>
-	      </tr>
-	      <tr>
-		<td>
-		<input name="l_partnumber" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Part Number').qq|
-		</td>
-		<td>
-		<input name="l_description" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Description').qq|
-		</td>
-		<td>
-		<input name="l_sellprice" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Sell Price').qq|
-		</td>
-		<td>
-		<input name="l_curr" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Currency').qq|
-		</td>
-	      </tr>
-	      <tr>
-		<td>
-		<input name="l_qty" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Qty').qq|
-		</td>
-		<td>
-		<input name="l_unit" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Unit').qq|
-		</td>
-		<td>
-		<input name="l_discount" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Discount').qq|
-		</td>
-	      <tr>
-	      </tr>
-		<td>
-		<input name="l_deliverydate" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Delivery Date').qq|
-		</td>
-		<td>
-		<input name="l_projectnumber" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Project Number').qq|
-		</td>
-		<td>
-		<input name="l_serialnumber" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Serial Number').qq|
-		</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-
-  &search_name;
-
-}
-
-
-sub transactions {
-
-  if ($form->{db} eq 'customer') {
-    $translabel = $locale->text('AR Transactions');
-    $invlabel = $locale->text('Sales Invoices');
-    $ordlabel = $locale->text('Sales Orders');
-    $quolabel = $locale->text('Quotations');
-  } else {
-    $translabel = $locale->text('AP Transactions');
-    $invlabel = $locale->text('Vendor Invoices');
-    $ordlabel = $locale->text('Purchase Orders');
-    $quolabel = $locale->text('Request for Quotations');
-  }
-
- 
-  $transactions = qq|
- 	<tr>
-	  <td></td>
-	  <td>
-	    <table>
-	      <tr>
-	        <td>
-		  <table>
-		    <tr>
-		      <td><input name="l_transnumber" type=checkbox class=checkbox value=Y> $translabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name="l_invnumber" type=checkbox class=checkbox value=Y> $invlabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name="l_ordnumber" type=checkbox class=checkbox value=Y> $ordlabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name="l_quonumber" type=checkbox class=checkbox value=Y> $quolabel</td>
-		    </tr>
-		  </table>
-		</td>
-		<td>
-		  <table>
-		    <tr>
-		      <th>|.$locale->text('From').qq|</th>
-		      <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-		      <th>|.$locale->text('To').qq|</th>
-		      <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
-		    </tr>
-		    <tr>
-		      <td></td>
-		      <td colspan=3>
-	              <input name="open" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Open').qq|
-	              <input name="closed" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Closed').qq|
-		      </td>
-		    </tr>
-		    <tr>
-		      <td></td>
-		      <td colspan=3>
-	              <input name="l_amount" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Amount').qq|
-	              <input name="l_tax" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Tax').qq|
-	              <input name="l_total" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Total').qq|
-	              <input name="l_subtotal" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|
-		      </td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
- 	    </table>
-	  </td>
-	</tr>
-|;
-
-}
-
-
-sub include_in_report {
-  
-  $label = ucfirst $form->{db};
-  
-  if ($myconfig{role} =~ /(admin|manager)/) {
-    $bcc = qq|
-		<td><input name="l_bcc" type=checkbox class=checkbox value=Y> |.$locale->text('Bcc').qq|</td>
-|;
-  }
-
-  if ($form->{db} eq 'customer') {
-    $employee = qq|
-		<td><input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Salesperson').qq|</td>
-|;
-
-    $pricegroup = qq|
-		<td><input name="l_pricegroup" type=checkbox class=checkbox value=Y> |.$locale->text('Pricegroup').qq|</td>
-|;
-
-  } else {
-    $employee = qq|
-		<td><input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Employee').qq|</td>
-|;
-  }
-
-  $employee .= qq|
-                <td><input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager').qq|</td>
-|;
-    
-  $include = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td>
-	    <table>
-	      <tr>
-	        <td><input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID').qq|</td>
-		<td><input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |.$locale->text($label . ' Number').qq|</td>
-		<td><input name="l_name" type=checkbox class=checkbox value=Y $form->{l_name}> |.$locale->text('Company Name').qq|</td>
-		<td><input name="l_contact" type=checkbox class=checkbox value=Y $form->{l_contact}> |.$locale->text('Contact').qq|</td>
-		<td><input name="l_email" type=checkbox class=checkbox value=Y $form->{l_email}> |.$locale->text('E-mail').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address').qq|</td>
-		<td><input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City').qq|</td>
-		<td><input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province').qq|</td>
-		<td><input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code').qq|</td>
-		<td><input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_phone" type=checkbox class=checkbox value=Y $form->{l_phone}> |.$locale->text('Phone').qq|</td>
-		<td><input name="l_fax" type=checkbox class=checkbox value=Y> |.$locale->text('Fax').qq|</td>
-		<td><input name="l_cc" type=checkbox class=checkbox value=Y> |.$locale->text('Cc').qq|</td>
-		$bcc
-		<td><input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes').qq|</td>
-		<td><input name="l_discount" type=checkbox class=checkbox value=Y> |.$locale->text('Discount').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_taxnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Tax Number').qq|</td>
-		$gifi
-		<td><input name="l_sic_code" type=checkbox class=checkbox value=Y> |.$locale->text('SIC').qq|</td>
-		<td><input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN').qq|</td>
-		<td><input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC').qq|</td>
-	      </tr>
-	      <tr>
-		$employee
-		<td><input name="l_business" type=checkbox class=checkbox value=Y> |.$locale->text('Type of Business').qq|</td>
-		$pricegroup
-		<td><input name="l_language" type=checkbox class=checkbox value=Y> |.$locale->text('Language').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_startdate" type=checkbox class=checkbox value=Y> |.$locale->text('Startdate').qq|</td>
-		<td><input name="l_enddate" type=checkbox class=checkbox value=Y> |.$locale->text('Enddate').qq|</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-
-}
-
-
-sub search {
-
-# $locale->text('Customers')
-# $locale->text('Vendors')
-
-  $form->{title} = $locale->text('Search') unless $form->{title};
-  
-  map { $form->{"l_$_"} = 'checked' } qw(name contact phone email);
-
-  $form->{nextsub} = "list_names";
-
-  $orphan = qq|
-	<tr>
-	  <td></td>
-	  <td><input name=status class=radio type=radio value=all checked>&nbsp;|.$locale->text('All').qq|
-	  <input name=status class=radio type=radio value=orphaned>&nbsp;|.$locale->text('Orphaned').qq|</td>
-	</tr>
-|;
-
-  if ($form->{db} eq 'vendor') {
-    $gifi = qq|
-		<td><input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |.$locale->text('GIFI').qq|</td>
-|;
-  }
- 
-  &transactions;
-  &include_in_report;
-  &search_name;
-
-}
-
-
-sub search_name {
-
-  $label = ucfirst $form->{db};
-  
- 
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=db value=$form->{db}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text($label . ' Number').qq|</th>
-	  <td><input name=$form->{db}number size=32></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Company Name').qq|</th>
-	  <td><input name=name size=64></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Address').qq|</th>
-	  <td><input name=address size=64></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('City').qq|</th>
-	  <td><input name=city size=32></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('State/Province').qq|</th>
-	  <td><input name=state size=32></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th>
-	  <td><input name=zipcode size=10></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Country').qq|</th>
-	  <td><input name=country size=32></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Contact').qq|</th>
-	  <td><input name=contact size=64></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
-	  <td><input name=email size=32></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Notes').qq|</th>
-	  <td><input name=notes size=64></td>
-	</tr>
-
-        $invnumber
-	$orphan
-	$transactions
-	$include
-
-      </table>
-    </td>
-  </tr>
-
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=$form->{nextsub}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-}
-
-
-sub list_names {
-
-  CT->search(\%myconfig, \%$form);
-  
-  $href = "$form->{script}?action=list_names&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&l_subtotal=$form->{l_subtotal}";
-  
-  $form->sort_order();
-  
-  $callback = "$form->{script}?action=list_names&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&l_subtotal=$form->{l_subtotal}";
-  
-  @columns = $form->sort_columns(id, name, "$form->{db}number", address,
-                                 city, state, zipcode, country, contact,
-				 phone, fax, email, cc, bcc, employee,
-				 manager, notes, discount,
-				 taxnumber, gifi_accno, sic_code, business,
-				 pricegroup, language, iban, bic,
-				 startdate, enddate,
-				 invnumber, invamount, invtax, invtotal,
-				 ordnumber, ordamount, ordtax, ordtotal,
-				 quonumber, quoamount, quotax, quototal);
-
-  foreach $item (qw(inv ord quo)) {
-    if ($form->{"l_${item}number"}) {
-      map { $form->{"l_$item$_"} = $form->{"l_$_"} } qw(amount tax total);
-      $removeemployee = 1;
-      $openclosed = 1;
-    }
-  }
-  $form->{open} = $form->{closed} = "" if !$openclosed;
-
-  if ($form->{l_transnumber}) {
-    map { $form->{"l_inv$_"} = $form->{"l_$_"} } qw(amount tax total);
-    $removeemployee = 1;
-  }
-
-  if ($removeemployee) {
-    @columns = grep !/(employee|manager)/, @columns;
-  }
-
-
-  foreach $item (@columns) {
-    if ($form->{"l_$item"} eq "Y") {
-      push @column_index, $item;
-
-      # add column to href and callback
-      $callback .= "&l_$item=Y";
-      $href .= "&l_$item=Y";
-    }
-  }
-  
-  foreach $item (qw(amount tax total transnumber)) {
-    if ($form->{"l_$item"} eq "Y") { 
-      $callback .= "&l_$item=Y"; 
-      $href .= "&l_$item=Y"; 
-    }
-  }
-
-
-  if ($form->{status} eq 'all') {
-    $option = $locale->text('All');
-  }
-  if ($form->{status} eq 'orphaned') {
-    $option .= $locale->text('Orphaned');
-  }
-  if ($form->{name}) {
-    $callback .= "&name=".$form->escape($form->{name},1);
-    $href .= "&name=".$form->escape($form->{name});
-    $option .= "\n<br>".$locale->text('Name')." : $form->{name}";
-  }
-  if ($form->{address}) {
-    $callback .= "&address=".$form->escape($form->{address},1);
-    $href .= "&address=".$form->escape($form->{address});
-    $option .= "\n<br>".$locale->text('Address')." : $form->{address}";
-  }
-  if ($form->{city}) {
-    $callback .= "&city=".$form->escape($form->{city},1);
-    $href .= "&city=".$form->escape($form->{city});
-    $option .= "\n<br>".$locale->text('City')." : $form->{city}";
-  }
-  if ($form->{state}) {
-    $callback .= "&state=".$form->escape($form->{state},1);
-    $href .= "&state=".$form->escape($form->{state});
-    $option .= "\n<br>".$locale->text('State')." : $form->{state}";
-  }
-  if ($form->{zipcode}) {
-    $callback .= "&zipcode=".$form->escape($form->{zipcode},1);
-    $href .= "&zipcode=".$form->escape($form->{zipcode});
-    $option .= "\n<br>".$locale->text('Zip/Postal Code')." : $form->{zipcode}";
-  }
-  if ($form->{country}) {
-    $callback .= "&country=".$form->escape($form->{country},1);
-    $href .= "&country=".$form->escape($form->{country});
-    $option .= "\n<br>".$locale->text('Country')." : $form->{country}";
-  }
-  if ($form->{contact}) {
-    $callback .= "&contact=".$form->escape($form->{contact},1);
-    $href .= "&contact=".$form->escape($form->{contact});
-    $option .= "\n<br>".$locale->text('Contact')." : $form->{contact}";
-  }
-  if ($form->{notes}) {
-    $callback .= "&notes=".$form->escape($form->{notes},1);
-    $href .= "&notes=".$form->escape($form->{notes});
-    $option .= "\n<br>".$locale->text('Notes')." : $form->{notes}";
-  }
-  if ($form->{"$form->{db}number"}) {
-    $callback .= qq|&$form->{db}number=|.$form->escape($form->{"$form->{db}number"},1);
-    $href .= "&$form->{db}number=".$form->escape($form->{"$form->{db}number"});
-    $option .= "\n<br>".$locale->text('Number').qq| : $form->{"$form->{db}number"}|;
-  }
-  if ($form->{email}) {
-    $callback .= "&email=".$form->escape($form->{email},1);
-    $href .= "&email=".$form->escape($form->{email});
-    $option .= "\n<br>".$locale->text('E-mail')." : $form->{email}";
-  }
-  if ($form->{transdatefrom}) {
-    $callback .= "&transdatefrom=$form->{transdatefrom}";
-    $href .= "&transdatefrom=$form->{transdatefrom}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
-  }
-  if ($form->{transdateto}) {
-    $callback .= "&transdateto=$form->{transdateto}";
-    $href .= "&transdateto=$form->{transdateto}";
-    if ($form->{transdatefrom}) {
-      $option .= " ";
-    } else {
-      $option .= "\n<br>" if ($option);
-    }
-    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{transdateto}, 1);
-  }
-  if ($form->{open}) {
-    $callback .= "&open=$form->{open}";
-    $href .= "&open=$form->{open}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Open');
-  }
-  if ($form->{closed}) {
-    $callback .= "&closed=$form->{closed}";
-    $href .= "&closed=$form->{closed}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Closed');
-  }
-  
-
-  $form->{callback} = "$callback&sort=$form->{sort}";
-  $callback = $form->escape($form->{callback});
-  
-  $column_header{id} = qq|<th class=listheading>|.$locale->text('ID').qq|</th>|;
-  $column_header{"$form->{db}number"} = qq|<th><a class=listheading href=$href&sort=$form->{db}number>|.$locale->text('Number').qq|</a></th>|;
-  $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|;
-  $column_header{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</th>|;
-  $column_header{city} = qq|<th><a class=listheading href=$href&sort=city>|.$locale->text('City').qq|</a></th>|;
-  $column_header{state} = qq|<th><a class=listheading href=$href&sort=state>|.$locale->text('State/Province').qq|</a></th>|;
-  $column_header{zipcode} = qq|<th><a class=listheading href=$href&sort=zipcode>|.$locale->text('Zip/Postal Code').qq|</a></th>|;
-  $column_header{country} = qq|<th><a class=listheading href=$href&sort=country>|.$locale->text('Country').qq|</a></th>|;
-  $column_header{contact} = qq|<th><a class=listheading href=$href&sort=contact>|.$locale->text('Contact').qq|</a></th>|;
-  $column_header{phone} = qq|<th><a class=listheading href=$href&sort=phone>|.$locale->text('Phone').qq|</a></th>|;
-  $column_header{fax} = qq|<th><a class=listheading href=$href&sort=fax>|.$locale->text('Fax').qq|</a></th>|;
-  $column_header{email} = qq|<th><a class=listheading href=$href&sort=email>|.$locale->text('E-mail').qq|</a></th>|;
-  $column_header{cc} = qq|<th><a class=listheading href=$href&sort=cc>|.$locale->text('Cc').qq|</a></th>|;
-  $column_header{bcc} = qq|<th><a class=listheading href=$href&sort=cc>|.$locale->text('Bcc').qq|</a></th>|;
-  $column_header{notes} = qq|<th><a class=listheading href=$href&sort=notes>|.$locale->text('Notes').qq|</a></th>|;
-  $column_header{discount} = qq|<th class=listheading>%</th>|;
-  
-  $column_header{taxnumber} = qq|<th><a class=listheading href=$href&sort=taxnumber>|.$locale->text('Tax Number').qq|</a></th>|;
-  $column_header{gifi_accno} = qq|<th><a class=listheading href=$href&sort=gifi_accno>|.$locale->text('GIFI').qq|</a></th>|;
-  $column_header{sic_code} = qq|<th><a class=listheading href=$href&sort=sic_code>|.$locale->text('SIC').qq|</a></th>|;
-  $column_header{business} = qq|<th><a class=listheading href=$href&sort=business>|.$locale->text('Type of Business').qq|</a></th>|;
-  $column_header{iban} = qq|<th class=listheading>|.$locale->text('IBAN').qq|</th>|;
-  $column_header{bic} = qq|<th class=listheading>|.$locale->text('BIC').qq|</th>|;
-  $column_header{startdate} = qq|<th><a class=listheading href=$href&sort=startdate>|.$locale->text('Startdate').qq|</a></th>|;
-  $column_header{enddate} = qq|<th><a class=listheading href=$href&sort=enddate>|.$locale->text('Enddate').qq|</a></th>|;
-  
-  $column_header{invnumber} = qq|<th><a class=listheading href=$href&sort=invnumber>|.$locale->text('Invoice').qq|</a></th>|;
-  $column_header{ordnumber} = qq|<th><a class=listheading href=$href&sort=ordnumber>|.$locale->text('Order').qq|</a></th>|;
-  $column_header{quonumber} = qq|<th><a class=listheading href=$href&sort=quonumber>|.$locale->text('Quotation').qq|</a></th>|;
-
-  if ($form->{db} eq 'customer') {
-    $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>|.$locale->text('Salesperson').qq|</a></th>|;
-  } else {
-    $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>|.$locale->text('Employee').qq|</a></th>|;
-  }
-  $column_header{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|;
-
-  $column_header{pricegroup} = qq|<th><a class=listheading href=$href&sort=pricegroup>|.$locale->text('Pricegroup').qq|</a></th>|;
-  $column_header{language} = qq|<th><a class=listheading href=$href&sort=language>|.$locale->text('Language').qq|</a></th>|;
-  
-
-  $amount = $locale->text('Amount');
-  $tax = $locale->text('Tax');
-  $total = $locale->text('Total');
-  
-  $column_header{invamount} = qq|<th class=listheading>$amount</th>|;
-  $column_header{ordamount} = qq|<th class=listheading>$amount</th>|;
-  $column_header{quoamount} = qq|<th class=listheading>$amount</th>|;
-  
-  $column_header{invtax} = qq|<th class=listheading>$tax</th>|;
-  $column_header{ordtax} = qq|<th class=listheading>$tax</th>|;
-  $column_header{quotax} = qq|<th class=listheading>$tax</th>|;
-  
-  $column_header{invtotal} = qq|<th class=listheading>$total</th>|;
-  $column_header{ordtotal} = qq|<th class=listheading>$total</th>|;
-  $column_header{quototal} = qq|<th class=listheading>$total</th>|;
- 
-
-  if ($form->{status}) {
-    $label = ucfirst $form->{db}."s";
-    $form->{title} = $locale->text($label);
-  } else {
-    $label = ucfirst $form->{db};
-    $form->{title} = $locale->text($label ." Transactions");
-  }
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  $ordertype = ($form->{db} eq 'customer') ? 'sales_order' : 'purchase_order';
-  $quotationtype = ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation';
-  $subtotal = 0;
-
-  foreach $ref (@{ $form->{CT} }) {
-
-    if ("$ref->{$form->{sort}}$ref->{id}" ne $sameitem && $form->{l_subtotal}) {
-      # print subtotal
-      if ($subtotal) {
-	map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-	&list_subtotal;
-      }
-    }
-
-    if ("$ref->{$form->{sort}}$ref->{id}" eq $sameitem && $form->{sort} eq 'name') {
-      map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-    } else {
-      
-      map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" } @column_index;
-      $column_data{$form->{sort}} = "<td>&nbsp;</td>" if $ref->{$form->{sort}} eq $sameitem && $form->{l_subtotal};
-      
-      $column_data{address} = "<td>$ref->{address1} $ref->{address2}&nbsp;</td>";
-      $column_data{name} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&callback=$callback>$ref->{name}&nbsp;</td>";
-
-      $email = "";
-      if ($form->{sort} =~ /(email|cc)/) {
-	if ("$ref->{$form->{sort}}$ref->{id}" ne $sameitem) {
-	  $email = 1;
-	}
-      } else {
-	$email = 1;
-      }
-      
-      if ($email) {
-      foreach $item (qw(email cc bcc)) {
-	if ($ref->{$item}) {
-	  $email = $ref->{$item};
-	  $email =~ s/</\&lt;/;
-	  $email =~ s/>/\&gt;/;
-	  
-	  $column_data{$item} = qq|<td><a href="mailto:$ref->{$item}">$email</a></td>|;
-	}
-      }
-      }
-    }
-    
-    if ($ref->{formtype} eq 'invoice') {
-      $column_data{invnumber} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{invnumber}&nbsp;</td>";
-      
-      $column_data{invamount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{netamount}, 2, "&nbsp;")."</td>";
-      $column_data{invtax} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} - $ref->{netamount}, 2, "&nbsp;")."</td>";
-      $column_data{invtotal} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, "&nbsp;")."</td>";
-
-      $invamountsubtotal += $ref->{netamount};
-      $invtaxsubtotal += ($ref->{amount} - $ref->{netamount});
-      $invtotalsubtotal += $ref->{amount};
-    }
-     
-    if ($ref->{formtype} eq 'order') {
-      $column_data{ordnumber} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{ordnumber}&nbsp;</td>";
-      
-      $column_data{ordamount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{netamount}, 2, "&nbsp;")."</td>";
-      $column_data{ordtax} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} - $ref->{netamount}, 2, "&nbsp;")."</td>";
-      $column_data{ordtotal} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, "&nbsp;")."</td>";
-
-      $ordamountsubtotal += $ref->{netamount};
-      $ordtaxsubtotal += ($ref->{amount} - $ref->{netamount});
-      $ordtotalsubtotal += $ref->{amount};
-    }
-
-    if ($ref->{formtype} eq 'quotation') {
-      $column_data{quonumber} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{quonumber}&nbsp;</td>";
-      
-      $column_data{quoamount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{netamount}, 2, "&nbsp;")."</td>";
-      $column_data{quotax} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} - $ref->{netamount}, 2, "&nbsp;")."</td>";
-      $column_data{quototal} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, "&nbsp;")."</td>";
-
-      $quoamountsubtotal += $ref->{netamount};
-      $quotaxsubtotal += ($ref->{amount} - $ref->{netamount});
-      $quototalsubtotal += $ref->{amount};
-    }
-    
-    if ($form->{l_discount}) {
-      $column_data{discount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{discount} * 100, "", "&nbsp;")."</td>";
-    }
-   
-    $i++; $i %= 2;
-    print "
-        <tr class=listrow$i>
-";
-
-    map { print "$column_data{$_}\n" } @column_index;
-
-    print qq|
-        </tr>
-|;
-    
-    $sameitem = "$ref->{$form->{sort}}$ref->{id}";
-    $subtotal = 1;
-
-  }
-
-  if ($form->{l_subtotal}) {
-    map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-    &list_subtotal;
-  }
-  
-  $i = 1;
-  if ($myconfig{acs} !~ /AR--AR/) {
-    if ($form->{db} eq 'customer') {
-      $button{'AR--Customers-Add Customer'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Customer').qq|"> |;
-      $button{'AR--Customers--Add Customer'}{order} = $i++;
-    }
-  }
-  if ($myconfig{acs} !~ /AP--AP/) {
-    if ($form->{db} eq 'vendor') {
-      $button{'AP--Vendors--Add Vendor'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Vendor').qq|"> |;
-      $button{'AP--Vendors--Add Vendor'}{order} = $i++;
-    }
-  }
-  
-  foreach $item (split /;/, $myconfig{acs}) {
-    delete $button{$item};
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-<input name=db type=hidden value=$form->{db}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  if ($form->{status}) {
-    foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-      print $item->{code};
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
- 
-}
-
-
-sub list_subtotal {
-
-	$column_data{invamount} = "<td align=right>".$form->format_amount(\%myconfig, $invamountsubtotal, 2, "&nbsp;")."</td>";
-	$column_data{invtax} = "<td align=right>".$form->format_amount(\%myconfig, $invtaxsubtotal, 2, "&nbsp;")."</td>";
-	$column_data{invtotal} = "<td align=right>".$form->format_amount(\%myconfig, $invtotalsubtotal, 2, "&nbsp;")."</td>";
-
-	$invamountsubtotal = 0;
-	$invtaxsubtotal = 0;
-	$invtotalsubtotal = 0;
-
-	$column_data{ordamount} = "<td align=right>".$form->format_amount(\%myconfig, $ordamountsubtotal, 2, "&nbsp;")."</td>";
-	$column_data{ordtax} = "<td align=right>".$form->format_amount(\%myconfig, $ordtaxsubtotal, 2, "&nbsp;")."</td>";
-	$column_data{ordtotal} = "<td align=right>".$form->format_amount(\%myconfig, $ordtotalsubtotal, 2, "&nbsp;")."</td>";
-
-	$ordamountsubtotal = 0;
-	$ordtaxsubtotal = 0;
-	$ordtotalsubtotal = 0;
-
-	$column_data{quoamount} = "<td align=right>".$form->format_amount(\%myconfig, $quoamountsubtotal, 2, "&nbsp;")."</td>";
-	$column_data{quotax} = "<td align=right>".$form->format_amount(\%myconfig, $quotaxsubtotal, 2, "&nbsp;")."</td>";
-	$column_data{quototal} = "<td align=right>".$form->format_amount(\%myconfig, $quototalsubtotal, 2, "&nbsp;")."</td>";
-
-	$quoamountsubtotal = 0;
-	$quotaxsubtotal = 0;
-	$quototalsubtotal = 0;
-	
-	print "
-        <tr class=listsubtotal>
-";
-	map { print "$column_data{$_}\n" } @column_index;
-
-	print qq|
-        </tr>
-|;
- 
-
-}
-
-
-sub list_history {
-  
-  CT->get_history(\%myconfig, \%$form);
-  
-  $href = "$form->{script}?action=list_history&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&history=$form->{history}";
-
-  $form->sort_order();
-  
-  $callback = "$form->{script}?action=list_history&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&history=$form->{history}";
-  
-  $form->{l_fxsellprice} = $form->{l_curr};
-  @columns = $form->sort_columns(partnumber, description, qty, unit, sellprice, fxsellprice, curr, discount, deliverydate, projectnumber, serialnumber);
-
-  if ($form->{history} eq 'summary') {
-    @columns = $form->sort_columns(partnumber, description, qty, unit, sellprice, curr);
-  }
-
-  foreach $item (@columns) {
-    if ($form->{"l_$item"} eq "Y") {
-      push @column_index, $item;
-
-      # add column to href and callback
-      $callback .= "&l_$item=Y";
-      $href .= "&l_$item=Y";
-    }
-  }
-  
-  if ($form->{history} eq 'detail') {
-    $option = $locale->text('Detail');
-  }
-  if ($form->{history} eq 'summary') {
-    $option .= $locale->text('Summary');
-  }
-  if ($form->{name}) {
-    $callback .= "&name=".$form->escape($form->{name},1);
-    $href .= "&name=".$form->escape($form->{name});
-    $option .= "\n<br>".$locale->text('Name')." : $form->{name}";
-  }
-  if ($form->{contact}) {
-    $callback .= "&contact=".$form->escape($form->{contact},1);
-    $href .= "&contact=".$form->escape($form->{contact});
-    $option .= "\n<br>".$locale->text('Contact')." : $form->{contact}";
-  }
-  if ($form->{"$form->{db}number"}) {
-    $callback .= qq|&$form->{db}number=|.$form->escape($form->{"$form->{db}number"},1);
-    $href .= "&$form->{db}number=".$form->escape($form->{"$form->{db}number"});
-    $option .= "\n<br>".$locale->text('Number').qq| : $form->{"$form->{db}number"}|;
-  }
-  if ($form->{email}) {
-    $callback .= "&email=".$form->escape($form->{email},1);
-    $href .= "&email=".$form->escape($form->{email});
-    $option .= "\n<br>".$locale->text('E-mail')." : $form->{email}";
-  }
-  if ($form->{transdatefrom}) {
-    $callback .= "&transdatefrom=$form->{transdatefrom}";
-    $href .= "&transdatefrom=$form->{transdatefrom}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
-  }
-  if ($form->{transdateto}) {
-    $callback .= "&transdateto=$form->{transdateto}";
-    $href .= "&transdateto=$form->{transdateto}";
-    if ($form->{transdatefrom}) {
-      $option .= " ";
-    } else {
-      $option .= "\n<br>" if ($option);
-    }
-    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{transdateto}, 1);
-  }
-  if ($form->{open}) {
-    $callback .= "&open=$form->{open}";
-    $href .= "&open=$form->{open}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Open');
-  }
-  if ($form->{closed}) {
-    $callback .= "&closed=$form->{closed}";
-    $href .= "&closed=$form->{closed}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Closed');
-  }
-
-
-  $form->{callback} = "$callback&sort=$form->{sort}";
-  $callback = $form->escape($form->{callback});
-
-  $column_header{partnumber} = qq|<th><a class=listheading href=$href&sort=partnumber>|.$locale->text('Part Number').qq|</a></th>|;
-  $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
-
-  if ($form->{history} eq 'summary') {
-    $column_header{sellprice} = qq|<th class=listheading>|.$locale->text('Total').qq|</th>|;
-  } else {
-    $column_header{sellprice} = qq|<th class=listheading>|.$locale->text('Sell Price').qq|</th>|;
-  }
-  $column_header{fxsellprice} = qq|<th>&nbsp;</th>|;
-  
-  $column_header{curr} = qq|<th class=listheading>|.$locale->text('Curr').qq|</th>|;
-  $column_header{discount} = qq|<th class=listheading>|.$locale->text('Discount').qq|</th>|;
-  $column_header{qty} = qq|<th class=listheading>|.$locale->text('Qty').qq|</th>|;
-  $column_header{unit} = qq|<th class=listheading>|.$locale->text('Unit').qq|</th>|;
-  $column_header{deliverydate} = qq|<th><a class=listheading href=$href&sort=deliverydate>|.$locale->text('Delivery Date').qq|</a></th>|;
-  $column_header{projectnumber} = qq|<th><a class=listheading href=$href&sort=projectnumber>|.$locale->text('Project Number').qq|</a></th>|;
-  $column_header{serialnumber} = qq|<th><a class=listheading href=$href&sort=serialnumber>|.$locale->text('Serial Number').qq|</a></th>|;
-  
-
-# $locale->text('Customer History')
-# $locale->text('Vendor History')
-
-  $label = ucfirst $form->{db};
-  $form->{title} = $locale->text($label." History");
-
-  $colspan = $#column_index + 1;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-
-  $module = 'oe';
-  if ($form->{db} eq 'customer') {
-    $invlabel = $locale->text('Sales Invoice');
-    $ordlabel = $locale->text('Sales Order');
-    $quolabel = $locale->text('Quotation');
-    
-    $ordertype = 'sales_order';
-    $quotationtype = 'sales_quotation';
-    if ($form->{type} eq 'invoice') {
-      $module = 'is';
-    }
-  } else {
-    $invlabel = $locale->text('Vendor Invoice');
-    $ordlabel = $locale->text('Purchase Order');
-    $quolabel = $locale->text('RFQ');
-    
-    $ordertype = 'purchase_order';
-    $quotationtype = 'request_quotation';
-    if ($form->{type} eq 'invoice') {
-      $module = 'ir';
-    }
-  }
-    
-  
-  foreach $ref (@{ $form->{CT} }) {
-
-    if ($ref->{id} ne $sameid) {
-      # print the header
-      print qq|
-        <tr class=listheading>
-	  <th colspan=$colspan><a class=listheading href=$form->{script}?action=edit&id=$ref->{ctid}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{name} $ref->{address}</a></th>
-	</tr>
-|;
-    }
-
-    if ($form->{type} ne 'invoice') {
-      $ref->{fxsellprice} = $ref->{sellprice};
-      $ref->{sellprice} *= $ref->{exchangerate};
-    }
-	
-    if ($form->{history} eq 'detail' and $ref->{invid} ne $sameinvid) {
-      # print inv, ord, quo number
-      $i++; $i %= 2;
-      
-      print qq|
-	  <tr class=listrow$i>
-|;
-
-      if ($form->{type} eq 'invoice') {
-	print qq|<th align=left colspan=$colspan><a href=${module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$invlabel $ref->{invnumber} / $ref->{employee}</a></th>|;
-      }
-       
-      if ($form->{type} eq 'order') {
-	print qq|<th align=left colspan=$colspan><a href=${module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ordlabel $ref->{ordnumber} / $ref->{employee}</a></th>|;
-      }
-
-      if ($form->{type} eq 'quotation') {
-	print qq|<th align=left colspan=$colspan><a href=${module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$quolabel $ref->{quonumber} / $ref->{employee}</a></th>|;
-      }
-
-      print qq|
-          </tr>
-|;
-    }
-
-    map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" } @column_index;
-
-    if ($form->{l_curr}) {
-      $column_data{fxsellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{fxsellprice}, 2)."</td>";
-    }
-    $column_data{sellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{sellprice}, 2)."</td>";
-      
-    $column_data{qty} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{qty})."</td>";
-    $column_data{discount} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{discount} * 100, "", "&nbsp;")."</td>";
-    $column_data{partnumber} = qq|<td><a href=ic.pl?action=edit&id=$ref->{pid}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber}</td>|;
-    
-   
-    $i++; $i %= 2;
-    print qq|
-        <tr class=listrow$i>
-|;
-
-    map { print "$column_data{$_}\n" } @column_index;
-
-    print qq|
-        </tr>
-|;
-    
-    $sameid = $ref->{id};
-    $sameinvid = $ref->{invid};
-
-  }
-
- 
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
- 
-}
-
-
-
-sub edit {
-
-# $locale->text('Edit Customer')
-# $locale->text('Edit Vendor')
-
-  CT->create_links(\%myconfig, \%$form);
-
-  map { $form->{$_} = $form->quote($form->{$_}) } keys %$form;
-
-  $form->{title} = "Edit";
-
-  # format discount
-  $form->{discount} *= 100;
-  
-  &form_header;
-  &form_footer;
-
-}
-
-
-sub form_header {
-
-  $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
-  $form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0);
-  
-  if ($myconfig{role} =~ /(admin|manager)/) {
-    $bcc = qq|
-        <tr>
-	  <th align=right nowrap>|.$locale->text('Bcc').qq|</th>
-	  <td><input name=bcc size=35 value="$form->{bcc}"></td>
-	</tr>
-|;
-  }
-  
-  # currencies
-  map { $form->{selectcurrency} .= "<option>$_\n" } split /:/, $form->{currencies};
-  $form->{selectcurrency} =~ s/option>($form->{curr})/option selected>$1/;
-  
-  foreach $item (split / /, $form->{taxaccounts}) {
-    if ($form->{tax}{$item}{taxable}) {
-      $taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox checked>&nbsp;<b>$form->{tax}{$item}{description}</b>|;
-    } else {
-      $taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox>&nbsp;<b>$form->{tax}{$item}{description}</b>|;
-    }
-  }
-
-  if ($taxable) {
-    $tax = qq|
-	<tr>
-	  <th align=right>|.$locale->text('Taxable').qq|</th>
-	  <td colspan=5>
-	    <table>
-	      <tr>
-		<td>$taxable</td>
-		<td><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
-		<th align=left>|.$locale->text('Tax Included').qq|</th>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-  }
-
-  $typeofbusiness = qq|
-          <th></th>
-	  <td></td>
-|;
-
-  if (@{ $form->{all_business} }) {
-    $form->{selectbusiness} = qq|<option>\n|;
-    map { $form->{selectbusiness} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } @{ $form->{all_business} };
-
-    $form->{selectbusiness} =~ s/(<option value="\Q$form->{business}--$form->{business_id}\E")>/$1 selected>/;
-
-    $typeofbusiness = qq|
- 	  <th align=right>|.$locale->text('Type of Business').qq|</th>
-	  <td><select name=business>$form->{selectbusiness}</select></td>
-|;
-
-
-  }
-
-  $pricegroup = qq|
-          <th></th>
-	  <td></td>
-|;
-
-  if (@{ $form->{all_pricegroup} } && $form->{db} eq 'customer') {
-    $form->{selectpricegroup} = qq|<option>\n|;
-    map { $form->{selectpricegroup} .= qq|<option value="$_->{pricegroup}--$_->{id}">$_->{pricegroup}\n| } @{ $form->{all_pricegroup} };
-    
-    $form->{selectpricegroup} =~ s/(<option value="\Q$form->{pricegroup}--$form->{pricegroup_id}\E")/$1 selected/;
-
-    $pricegroup = qq|
- 	  <th align=right>|.$locale->text('Pricegroup').qq|</th>
-	  <td><select name=pricegroup>$form->{selectpricegroup}</select></td>
-|;
-  }
-  
-  $lang = qq|
-          <th></th>
-	  <td></td>
-|;
-
-  if (@{ $form->{all_language} }) {
-    $form->{selectlanguage} = qq|<option>\n|;
-    map { $form->{selectlanguage} .= qq|<option value="$_->{description}--$_->{code}">$_->{description}\n| } @{ $form->{all_language} };
-    
-    $form->{selectlanguage} =~ s/(<option value="\Q$form->{language}--$form->{language_code}\E")/$1 selected/;
-
-    $lang = qq|
- 	  <th align=right>|.$locale->text('Language').qq|</th>
-	  <td><select name=language>$form->{selectlanguage}</select></td>
-|;
-  }
-
- 
-  $employeelabel = $locale->text('Salesperson');
-  
-  $form->{selectemployee} = qq|<option>\n|;
-  map { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_employee} };
-  
-  $form->{selectemployee} =~ s/(<option value="\Q$form->{employee}--$form->{employee_id}\E")/$1 selected/;
-  
-  if ($form->{db} eq 'vendor') {
-    $gifi = qq|
-    	  <th align=right>|.$locale->text('Sub-contract GIFI').qq|</th>
-	  <td><input name=gifi_accno size=9 value="$form->{gifi_accno}"></td>
-|;
-    $employeelabel = $locale->text('Employee');
-  }
-
-
-  if (@{ $form->{all_employee} }) {
-    $employee = qq|
-	        <th align=right>$employeelabel</th>|;
-		
-    if ($myconfig{role} ne 'user' || !$form->{id}) {
-      $employee .= qq|
-		<td><select name=employee>$form->{selectemployee}</select></td>
-|;
-    } else {
-      $employee .= qq|
-                <td>$form->{employee}</td>
-		<input type=hidden name=employee value="$form->{employee}--$form->{employee_id}">|;
-    }
-  }
-
-
-# $locale->text('Customer Number')
-# $locale->text('Vendor Number')
-
-  $label = ucfirst $form->{db};
-  $form->{title} = $locale->text("$form->{title} $label");
- 
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr valign=top>
-	  <td width=50%>
-	    <table width=100%>
-	      <tr class=listheading>
-		<th class=listheading colspan=2 width=50%>|.$locale->text('Billing Address').qq|</th>
-	      <tr>
-		<th align=right nowrap>|.$locale->text($label .' Number').qq|</th>
-		<td><input name="$form->{db}number" size=35 maxlength=32 value="$form->{"$form->{db}number"}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Company Name').qq|</th>
-		<td><input name=name size=35 maxlength=64 value="$form->{name}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Address').qq|</th>
-		<td><input name=address1 size=35 maxlength=32 value="$form->{address1}"></td>
-	      </tr>
-	      <tr>
-		<th></th>
-		<td><input name=address2 size=35 maxlength=32 value="$form->{address2}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('City').qq|</th>
-		<td><input name=city size=35 maxlength=32 value="$form->{city}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('State/Province').qq|</th>
-		<td><input name=state size=35 maxlength=32 value="$form->{state}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th>
-		<td><input name=zipcode size=10 maxlength=10 value="$form->{zipcode}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Country').qq|</th>
-		<td><input name=country size=35 maxlength=32 value="$form->{country}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Contact').qq|</th>
-		<td><input name=contact size=35 maxlength=64 value="$form->{contact}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Phone').qq|</th>
-		<td><input name=phone size=20 maxlength=20 value="$form->{phone}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Fax').qq|</th>
-		<td><input name=fax size=20 maxlength=20 value="$form->{fax}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('E-mail').qq|</th>
-		<td><input name=email size=35 value="$form->{email}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Cc').qq|</th>
-		<td><input name=cc size=35 value="$form->{cc}"></td>
-	      </tr>
-	      $bcc
-	    </table>
-	  </td>
-	  <td width=50%>
-	    <table width=100%>
-	      <tr>
-		<th class=listheading colspan=2>|.$locale->text('Shipping Address').qq|</th>
-	      </tr>
-	      <tr>
-		<td><input name=none size=35 value=|. ("=" x 35) .qq|></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptoname size=35 maxlength=64 value="$form->{shiptoname}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptoaddress1 size=35 maxlength=32 value="$form->{shiptoaddress1}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptoaddress2 size=35 maxlength=32 value="$form->{shiptoaddress2}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptocity size=35 maxlength=32 value="$form->{shiptocity}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptostate size=35 maxlength=32 value="$form->{shiptostate}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptozipcode size=10 maxlength=10 value="$form->{shiptozipcode}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptocountry size=35 maxlength=32 value="$form->{shiptocountry}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptocontact size=35 maxlength=64 value="$form->{shiptocontact}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptophone size=20 maxlength=20 value="$form->{shiptophone}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptofax size=20 maxlength=20 value="$form->{shiptofax}"></td>
-	      </tr>
-	      <tr>
-		<td><input name=shiptoemail size=35 value="$form->{shiptoemail}"></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	$tax
-	<tr>
-	  <th align=right>|.$locale->text('Startdate').qq|</th>
-	  <td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td>
-	  <th align=right>|.$locale->text('Enddate').qq|</th>
-	  <td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Credit Limit').qq|</th>
-	  <td><input name=creditlimit size=9 value="$form->{creditlimit}"></td>
-	  <th align=right>|.$locale->text('Terms').qq|</th>
-	  <td><input name=terms size=2 value="$form->{terms}"> <b>|.$locale->text('days').qq|</b></td>
-	  <th align=right>|.$locale->text('Discount').qq|</th>
-	  <td><input name=discount size=4 value="$form->{discount}">
-	  <b>%</b></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Tax Number / SSN').qq|</th>
-	  <td><input name=taxnumber size=20 value="$form->{taxnumber}"></td>
-	  $gifi
-	  <th align=right>|.$locale->text('SIC').qq|</th>
-	  <td><input name=sic size=6 maxlength=6 value="$form->{sic}"></td>
-	</tr>
-	<tr>
-	  $typeofbusiness
-	  <th align=right>|.$locale->text('BIC').qq|</th>
-	  <td><input name=bic size=11 maxlength=11 value="$form->{bic}"></td>
-	  <th align=right>|.$locale->text('IBAN').qq|</th>
-	  <td><input name=iban size=24 maxlength=34 value="$form->{iban}"></td>
-	</tr>
-	<tr>
-	  $pricegroup
-	  $lang
-	  <th>|.$locale->text('Currency').qq|</th>
-	  <td><select name=curr>$form->{selectcurrency}</select></td>
-	</tr>
-	<tr valign=top>
-	  $employee
-	  <td colspan=4>
-	    <table>
-	      <tr valign=top>
-		<th align=left nowrap>|.$locale->text('Notes').qq|</th>
-		<td><textarea name=notes rows=3 cols=40 wrap=soft>$form->{notes}</textarea></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-
-sub form_footer {
-
-  $i = 1;
-  if ($form->{db} eq 'customer') {
-    if ($myconfig{acs} !~ /AR--AR/) {
-      $button{'AR--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|"> |;
-      $button{'AR--Add Transaction'}{order} = $i++;
-      $button{'AR--Sales Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice').qq|"> |;
-      $button{'AR--Sales Invoice'}{order} = $i++;
-    }
-    if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-      $button{'Order Entry--Sales Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|"> |;
-      $button{'Order Entry--Sales Order'}{order} = $i++;
-    }
-    if ($myconfig{acs} !~ /Quotations--Quotations/) {
-      $button{'Quotations--Quotation'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Quotation').qq|"> |;
-      $button{'Quotations--Quotation'}{order} = $i++;
-    }
-  }
-  if ($form->{db} eq 'vendor') {
-    if ($myconfig{acs} !~ /AP--AP/) {
-      $button{'AP--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|"> |;
-      $button{'AP--Add Transaction'}{order} = $i++;
-      $button{'AP--Vendor Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice').qq|"> |;
-      $button{'AP--Vendor Invoice'}{order} = $i++;
-    }
-    if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-      $button{'Order Entry--Purchase Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|"> |;
-      $button{'Order Entry--Purchase Order'}{order} = $i++;
-    }
-    if ($myconfig{acs} !~ /Quotations--Quotations/) {
-      $button{'Quotations--RFQ'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('RFQ').qq|"> |;
-      $button{'Quotations--RFQ'}{order} = $i++;
-    }
-  }
-  if ($myconfig{acs} !~ /Goods & Services--Goods & Services/) {
-    $myconfig{acs} =~ s/(Goods & Services--Add )(Service|Assembly).*;/$1--Add Part/g;
-    $button{'Goods & Services--Add Part'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Pricelist').qq|"> |;
-    $button{'Goods & Services--Add Part'}{order} = $i++;
-  }
-
-  foreach $item (split /;/, $myconfig{acs}) {
-    delete $button{$item};
-  }
- 
-  print qq|
-<input name=id type=hidden value=$form->{id}>
-<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=callback value="$form->{callback}">
-<input type=hidden name=db value=$form->{db}>
-
-<br>
-|;
-
-  if ($form->{db} eq 'customer') {
-    $item = 'AR--Customers--Add Customer';
-  } 
-  if ($form->{db} eq 'vendor') {
-    $item = 'AP--Vendors--Add Vendor';
-  } 
-  
-  if ($myconfig{acs} !~ /$item/) {
-    print qq|
-<input class=submit type=submit name=action value="|.$locale->text("Save").qq|">
-|;
-    if ($form->{id} && $form->{status} eq 'orphaned') {
-      print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|;
-    }
-  }
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-  
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
- 
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub pricelist {
-
-  $form->isblank("name", $locale->text('Name missing!'));
-
-  CT->pricelist(\%myconfig, \%$form);
-
-  foreach $ref (@{ $form->{"all_partspricelist"} }) {
-    $i++;
-    map { $form->{"${_}_$i"} = $ref->{$_} } keys %$ref;
-  }
-  $form->{rowcount} = $i;
-
-  # currencies
-  @curr = split /:/, $form->{currencies};
-  map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
-  
-  if (@ { $form->{all_partsgroup} }) {
-    $form->{selectpartsgroup} = "<option>\n";
-    foreach $ref (@ { $form->{all_partsgroup} }) {
-      $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
-    }
-  }
-
-  map { delete $form->{$_} } ("currencies", "all_partsgroup", "all_partspricelist");
-
-  foreach $i (1 .. $form->{rowcount}) {
-    
-    if ($form->{db} eq 'customer') {
-      
-      $form->{"pricebreak_$i"} = $form->format_amount(\%myconfig, $form->{"pricebreak_$i"});
-
-      ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $decimalplaces = ($dec > 2) ? $dec : 2;
-      
-      $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
-      
-    }
-    
-    if ($form->{db} eq 'vendor') {
-      
-      $form->{"leadtime_$i"} = $form->format_amount(\%myconfig, $form->{"leadtime_$i"});
-      ($dec) = ($form->{"lastcost_$i"} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $decimalplaces = ($dec > 2) ? $dec : 2;
-      
-      $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
-      
-    }
-  }
-
-  $form->{rowcount}++;
-  &{ "$form->{db}_pricelist" };
-
-}
-  
-
-sub customer_pricelist {
-
-  @flds = qw(runningnumber id partnumber description sellprice unit partsgroup pricebreak curr validfrom validto);
-
-  $form->{rowcount}--;
-  
-  # remove empty rows
-  if ($form->{rowcount}) {
-
-    foreach $i (1 .. $form->{rowcount}) {
-
-      map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(pricebreak sellprice);
-      
-      ($a, $b) = split /\./, $form->{"pricebreak_$i"};
-      $a = length $a;
-      $b = length $b;
-      $whole = ($whole > $a) ? $whole : $a;
-      $dec = ($dec > $b) ? $dec : $b;
-    }
-    $pad1 = '0' x $whole;
-    $pad2 = '0' x $dec;
-
-    foreach $i (1 .. $form->{rowcount}) {
-      ($a, $b) = split /\./, $form->{"pricebreak_$i"};
-      
-      $a = substr("$pad1$a", -$whole);
-      $b = substr("$b$pad2", 0, $dec);
-      $ndx{qq|$form->{"partnumber_$i"}_$form->{"id_$i"}_$a$b|} = $i;
-    }
-    
-    $i = 1;
-    map { $form->{"runningnumber_$ndx{$_}"} = $i++ } sort keys %ndx;
-      
-    foreach $i (1 .. $form->{rowcount}) {
-      if ($form->{"partnumber_$i"} && $form->{"sellprice_$i"}) {
-	if ($form->{"id_$i"} eq $sameid) {
-	  $j = $i + 1;
-	  next if ($form->{"id_$j"} eq $sameid && !$form->{"pricebreak_$i"});
-	}
-	
-	push @a, {};
-	$j = $#a;
-
-	map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-	$count++;
-      }
-      $sameid = $form->{"id_$i"};
-    }
-   
-    $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
-    $form->{rowcount} = $count;
-
-  }
-
-  $form->{rowcount}++;
-
-  &pricelist_header;
-  $form->hide_form();
-  &pricelist_footer;
-  
-}
-
-
-sub vendor_pricelist {
-
-  @flds = qw(runningnumber id sku partnumber description lastcost unit partsgroup curr leadtime);
-
-  $form->{rowcount}--;
-  
-  # remove empty rows
-  if ($form->{rowcount}) {
-
-    foreach $i (1 .. $form->{rowcount}) {
-
-      map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(leadtime lastcost);
-      $var = ($form->{"partnumber_$i"}) ? $form->{"sku_$i"} : qq|_$form->{"sku_$i"}|;
-      $ndx{$var} = $i;
-      
-    }
-
-    $i = 1;
-    map { $form->{"runningnumber_$ndx{$_}"} = $i++ } sort keys %ndx;
-      
-    foreach $i (1 .. $form->{rowcount}) {
-      if ($form->{"sku_$i"}) {
-	push @a, {};
-	$j = $#a;
-
-	map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-	$count++;
-      }
-    }
-   
-    $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
-    $form->{rowcount} = $count;
-
-  }
-
-  $form->{rowcount}++;
-
-  &pricelist_header;
-  $form->hide_form();
-  &pricelist_footer;
-  
-}
-
-
-
-sub pricelist_header {
-  
-  $form->{title} = $form->{name};
- 
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action="$form->{script}">
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-|;
-
-  if ($form->{db} eq 'customer') {
-    @column_index = qw(partnumber description);
-    push @column_index, "partsgroup" if $form->{selectpartsgroup};
-    push @column_index, qw(pricebreak sellprice curr validfrom validto);
-
-    $column_header{pricebreak} = qq|<th class=listheading nowrap>|.$locale->text('Break').qq|</th>|;
-    $column_header{sellprice} = qq|<th class=listheading nowrap>|.$locale->text('Sell Price').qq|</th>|;
-    $column_header{validfrom} = qq|<th class=listheading nowrap>|.$locale->text('From').qq|</th>|;
-    $column_header{validto} = qq|<th class=listheading nowrap>|.$locale->text('To').qq|</th>|;
-  }
-
-  if ($form->{db} eq 'vendor') {
-    @column_index = qw(sku partnumber description);
-    push @column_index, "partsgroup" if $form->{selectpartsgroup};
-    push @column_index, qw(lastcost curr leadtime);
-
-
-    $column_header{sku} = qq|<th class=listheading nowrap>|.$locale->text('SKU').qq|</th>|;
-    $column_header{leadtime} = qq|<th class=listheading nowrap>|.$locale->text('Leadtime').qq|</th>|;
-    $column_header{lastcost} = qq|<th class=listheading nowrap>|.$locale->text('Cost').qq|</th>|;
-  }
-
-  $column_header{partnumber} = qq|<th class=listheading nowrap>|.$locale->text('Number').qq|</th>|;
-  $column_header{description} = qq|<th class=listheading nowrap width=80%>|.$locale->text('Description').qq|</th>|;
-  $column_header{partsgroup} = qq|<th class=listheading nowrap>|.$locale->text('Group').qq|</th>|;
-  $column_header{curr} = qq|<th class=listheading nowrap>|.$locale->text('Curr').qq|</th>|;
-
-  print qq|
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-  
-  print qq|
-       </tr>
-|;
-
-  $sameid = "";
-  foreach $i (1 .. $form->{rowcount}) {
-    
-    $selectcurrency = $form->{selectcurrency};
-    $selectcurrency =~ s/option>\Q$form->{"curr_$i"}\E/option selected>$form->{"curr_$i"}/;
-
-    if ($form->{selectpartsgroup}) {
-      if ($i < $form->{rowcount}) {
-	($partsgroup) = split /--/, $form->{"partsgroup_$i"};
-	$column_data{partsgroup} = qq|<td>$partsgroup</td>
-	<input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">|;
-      }
-    }
-
-
-    if ($i < $form->{rowcount}) {
-      
-      if ($form->{"id_$i"} eq $sameid) {
-	map { $column_data{$_} = qq|<td>&nbsp;</td>
-	<input type=hidden name="${_}_$i" value="|.$form->quote($form->{"${_}_$i"}).qq|">| } qw(partnumber description partsgroup);
-      
-      } else {
-	
-	$column_data{sku} = qq|<td><input name="sku_$i" value="$form->{"sku_$i"}"></td>|;
-	$column_data{partnumber} = qq|<td><input name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|;
-
-	$column_data{description} = qq|<td>$form->{"description_$i"}&nbsp;</td>
-	<input type=hidden name="description_$i" value="|.$form->quote($form->{"description_$i"}).qq|">|;
-      
-      }
-
-      $column_data{partnumber} .= qq|
-        <input type=hidden name="id_$i" value="$form->{"id_$i"}">|;
- 
-    } else {
-   
-      if ($form->{db} eq 'customer') {
-	$column_data{partnumber} = qq|<td><input name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|;
-      } else {
-	$column_data{partnumber} = qq|<td>&nbsp;</td>|;
-      }
-
-      $column_data{partnumber} .= qq|
-        <input type=hidden name="id_$i" value="$form->{"id_$i"}">|;
-      
-      $column_data{sku} = qq|<td><input name="sku_$i" value="$form->{"sku_$i"}"></td>|;
-      $column_data{description} = qq|<td><input name="description_$i" value="$form->{"description_$i"}"></td>|;
-      
-      if ($form->{selectpartsgroup}) {
-	$column_data{partsgroup} = qq|<td><select name="partsgroup_$i">$form->{selectpartsgroup}</select></td>|;
-      }
-      
-    }
-
-
-    if ($form->{db} eq 'customer') {
-      ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $decimalplaces = ($dec > 2) ? $dec : 2;
-      
-      $column_data{pricebreak} = qq|<td align=right><input name="pricebreak_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"pricebreak_$i"}).qq|></td>|;
-      $column_data{sellprice} = qq|<td align=right><input name="sellprice_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces).qq|></td>|;
-      
-      $column_data{validfrom} = qq|<td><input name="validfrom_$i" size=11 value=$form->{"validfrom_$i"}></td>|;
-      $column_data{validto} = qq|<td><input name="validto_$i" size=11 value=$form->{"validto_$i"}></td>|;
-    }
-    
-    if ($form->{db} eq 'vendor') {
-      ($dec) = ($form->{"lastcost_$i"} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $decimalplaces = ($dec > 2) ? $dec : 2;
-      
-      $column_data{leadtime} = qq|<td align=right><input name="leadtime_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"leadtime_$i"}).qq|></td>|;
-      $column_data{lastcost} = qq|<td align=right><input name="lastcost_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces).qq|></td>|;
-    }
-      
-
-    $column_data{curr} = qq|<td><select name="curr_$i">$selectcurrency</select></td>|;
-
-    
-    print qq|<tr valign=top>|;
-    
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|</tr>|;
-
-    $sameid = $form->{"id_$i"};
-
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-  # delete variables
-  foreach $i (1 .. $form->{rowcount}) {
-    map { delete $form->{"${_}_$i"} } (@column_index, "id");
-  }
-  map { delete $form->{$_} } qw(title titlebar script none header action);
-
-}
-
-
-sub pricelist_footer {
-  
-  print qq|
-    <input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-    <input class=submit type=submit name=action value="|.$locale->text('Save Pricelist').qq|">|;
-    
-  print qq|
-</form>
-
-<a name="end"></a>
-  
-  </body>
-  </html>
-|;  
-
-}
-
-
-sub update {
-  
-  $i = $form->{rowcount};
-  $additem = 0;
-
-  if ($form->{db} eq 'customer') {
-    $additem = 1 if ! (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq ""));
-  }
-  if ($form->{db} eq 'vendor') {
-    if (! (($form->{"sku_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq ""))) {
-      $additem = 1;
-      $form->{"partnumber_$i"} = $form->{"sku_$i"};
-    }
-  }
-
-  if ($additem) {
-
-    CT->retrieve_item(\%myconfig, \%$form);
-
-    $rows = scalar @{ $form->{item_list} };
-
-    if ($rows > 0) {
-      
-      if ($rows > 1) {
-	
-	&select_item;
-	exit;
-	
-      } else {
-	
-	$sellprice = $form->{"sellprice_$i"};
-	$pricebreak = $form->{"pricebreak_$i"};
-	$lastcost = $form->{"lastcost_$i"};
-	
-	map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description);
-	map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
-
-        if ($form->{db} eq 'customer') {
-	  
-	  if ($sellprice) {
-	    $form->{"sellprice_$i"} = $sellprice;
-	  }
-	  
-	  ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
-	  $dec = length $dec;
-	  $decimalplaces = ($dec > 2) ? $dec : 2;
-	      
-	  $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
-	  
-	  $form->{"pricebreak_$i"} = $pricebreak;
-	  
-	} else {
-
-          foreach $j (1 .. $form->{rowcount}) {
-	    if ($form->{"sku_$j"} eq $form->{"partnumber_$i"}) {
-	      $form->error($locale->text('Item already on pricelist!'));
-	    }
-	  }
-
-	  if ($lastcost) {
-	    $form->{"lastcost_$i"} = $lastcost;
-	  }
-	   
-	  ($dec) = ($form->{"lastcost_$i"} =~ /\.(\d+)/);
-	  $dec = length $dec;
-	  $decimalplaces = ($dec > 2) ? $dec : 2;
-	      
-	  $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
-
-	  $form->{"sku_$i"} = $form->{"partnumber_$i"};
-	  delete $form->{"partnumber_$i"};
-	  
-	}
-
-	$form->{rowcount}++;
-
-      }
-	
-    } else {
-
-      $form->error($locale->text('Item not on file!'));
-      
-    }
-  }
-
-  &{ "$form->{db}_pricelist" };
-  
-}
-
-
-
-sub select_item {
-
-  @column_index = qw(ndx partnumber description partsgroup unit sellprice lastcost);
-
-  $column_data{ndx} = qq|<th>&nbsp;</th>|;
-  $column_data{partnumber} = qq|<th class=listheading>|.$locale->text('Number').qq|</th>|;
-  $column_data{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</th>|;
-  $column_data{partsgroup} = qq|<th class=listheading>|.$locale->text('Group').qq|</th>|;
-  $column_data{unit} = qq|<th class=listheading>|.$locale->text('Unit').qq|</th>|;
-  $column_data{sellprice} = qq|<th class=listheading>|.$locale->text('Sell Price').qq|</th>|;
-  $column_data{lastcost} = qq|<th class=listheading>|.$locale->text('Cost').qq|</th>|;
-  
-  $form->header;
-  
-  $title = $locale->text('Select from one of the items below');
-  
-  print qq|
-<body>
-
-<form method=post action="$form->{script}">
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$title</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  my $i = 0;
-  foreach $ref (@{ $form->{item_list} }) {
-    $checked = ($i++) ? "" : "checked";
-
-    map { $ref->{$_} = $form->quote($ref->{$_}) } qw(partnumber description unit);
-    
-    $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
-
-    map { $column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>| } qw(partnumber description partsgroup unit);
-
-    $column_data{sellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{sellprice}, 2, "&nbsp;").qq|</td>|;
-    $column_data{lastcost} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{lastcost}, 2, "&nbsp;").qq|</td>|;
-
-    $j++; $j %= 2;
-
-    print qq|
-        <tr class=listrow$j>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-        </tr>
-
-<input name="new_partnumber_$i" type=hidden value="$ref->{partnumber}">
-<input name="new_description_$i" type=hidden value="$ref->{description}">
-<input name="new_partsgroup_$i" type=hidden value="$ref->{partsgroup}">
-<input name="new_partsgroup_id_$i" type=hidden value="$ref->{partsgroup_id}">
-<input name="new_sellprice_$i" type=hidden value=$ref->{sellprice}>
-<input name="new_lastcost_$i" type=hidden value=$ref->{lastcost}>
-<input name="new_unit_$i" type=hidden value="$ref->{unit}">
-
-<input name="new_id_$i" type=hidden value=$ref->{id}>
-
-|;
-
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input name=lastndx type=hidden value=$i>
-
-|;
-
-  # delete action variable
-  map { delete $form->{$_} } qw(action item_list header);
-
-  $form->hide_form();
-
-  print qq|
-<input type=hidden name=nextsub value=item_selected>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-}
-
-
-
-sub item_selected {
-
-  # replace the last row with the checked row
-  $i = $form->{rowcount};
-
-  # index for new item
-  $j = $form->{ndx};
-
-  @new = qw(id partnumber description unit);
-  push @new, "sellprice" if ! $form->{"sellprice_$i"};
-  push @new, "lastcost" if ! $form->{"lastcost_$i"};
-  
-  map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} } @new;
-
-  $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|;
-
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(sellprice lastcost);
-  
-  push @new, qw(partsgroup partsgroup_id);
-
-  # delete all the new_ variables
-  for $i (1 .. $form->{lastndx}) {
-    map { delete $form->{"new_${_}_$i"} } @new;
-  }
-  
-  map { delete $form->{$_} } qw(ndx lastndx nextsub);
-
-  # format amounts
-  map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(sellprice lastcost);
-  
-  foreach $j (1 .. $form->{rowcount}) {
-    if ($form->{"sku_$j"} eq $form->{"partnumber_$i"}) {
-      $form->error($locale->text('Item already on pricelist!'));
-    }
-  }
-  
-  $form->{"sku_$i"} = $form->{"partnumber_$i"};
-  delete $form->{"partnumber_$i"} if $form->{db} eq 'vendor';
-
-  $form->{rowcount}++;
-  &{ "$form->{db}_pricelist" };
-
-}
-
-
-
-    
-sub save_pricelist {
- 
-  &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form);
-
-  $rc = CT->save_pricelist(\%myconfig, \%$form);
-
-  $form->{callback} = "$form->{script}?action=edit&db=$form->{db}&id=$form->{id}&login=$form->{login}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $form->redirect if $rc;
-  $form->error($locale->text('Could not save pricelist!'));
-
-}
-
-
-
-sub add_transaction {
-  
-  $form->isblank("name", $locale->text("Name missing!"));
-
-  &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form);
-  
-  $form->{callback} = $form->escape($form->{callback},1);
-  $name = $form->escape($form->{name},1);
-
-  $form->{callback} = "$form->{script}?login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&action=add&vc=$form->{db}&$form->{db}_id=$form->{id}&$form->{db}=$name&type=$form->{type}&callback=$form->{callback}";
-
-  $form->redirect;
-  
-}
-
-sub ap_transaction {
-
-  $form->{script} = "ap.pl";
-  $form->{type} = "ap_transaction";
-  &add_transaction;
-
-}
-
-
-sub ar_transaction {
-
-  $form->{script} = "ar.pl";
-  $form->{type} = "ar_transaction";
-  &add_transaction;
-
-}
-
-
-sub sales_invoice {
-
-  $form->{script} = "is.pl";
-  $form->{type} = "invoice";
-  &add_transaction;
-  
-}
-
-
-sub vendor_invoice {
-
-  $form->{script} = "ir.pl";
-  $form->{type} = "invoice";
-  &add_transaction;
-  
-}
-
-
-sub rfq {
-
-  $form->{script} = "oe.pl";
-  $form->{type} = "request_quotation";
-  &add_transaction;
-
-}
-
-
-sub quotation {
-  
-  $form->{script} = "oe.pl";
-  $form->{type} = "sales_quotation";
-  &add_transaction;
-
-}
-
-
-sub sales_order {
-  
-  $form->{script} = "oe.pl";
-  $form->{type} = "sales_order";
-  &add_transaction;
-
-}
-
-
-sub purchase_order {
-
-  $form->{script} = "oe.pl";
-  $form->{type} = "purchase_order";
-  &add_transaction;
-  
-}
-
-
-sub save {
-
-# $locale->text('Customer saved!')
-# $locale->text('Vendor saved!')
-
-  $msg = ucfirst $form->{db};
-  $msg .= " saved!";
-  
-  $form->isblank("name", $locale->text("Name missing!"));
-  &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form);
-  
-  $form->redirect($locale->text($msg));
-  
-}
-
-
-sub delete {
-
-# $locale->text('Customer deleted!')
-# $locale->text('Cannot delete customer!')
-# $locale->text('Vendor deleted!')
-# $locale->text('Cannot delete vendor!')
-
-  CT->delete(\%myconfig, \%$form);
-  
-  $msg = ucfirst $form->{db};
-  $msg .= " deleted!";
-  $form->redirect($locale->text($msg));
-  
-  $msg = "Cannot delete $form->{db}";
-  $form->error($locale->text($msg));
-
-}
-
-
-sub continue { &{ $form->{nextsub} } };
-
-sub add_customer { &add };
-sub add_vendor { &add };
-
diff --git a/sql-ledger/bin/mozilla/gl.pl b/sql-ledger/bin/mozilla/gl.pl
deleted file mode 100644
index 5b29dc6ee..000000000
--- a/sql-ledger/bin/mozilla/gl.pl
+++ /dev/null
@@ -1,1066 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-# Contributors:
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Genereal Ledger
-#
-#======================================================================
-
-
-use SL::GL;
-use SL::PE;
-
-require "$form->{path}/arap.pl";
-
-1;
-# end of main
-
-
-# this is for our long dates
-# $locale->text('January')
-# $locale->text('February')
-# $locale->text('March')
-# $locale->text('April')
-# $locale->text('May ')
-# $locale->text('June')
-# $locale->text('July')
-# $locale->text('August')
-# $locale->text('September')
-# $locale->text('October')
-# $locale->text('November')
-# $locale->text('December')
-
-# this is for our short month
-# $locale->text('Jan')
-# $locale->text('Feb')
-# $locale->text('Mar')
-# $locale->text('Apr')
-# $locale->text('May')
-# $locale->text('Jun')
-# $locale->text('Jul')
-# $locale->text('Aug')
-# $locale->text('Sep')
-# $locale->text('Oct')
-# $locale->text('Nov')
-# $locale->text('Dec')
-
-
-sub add {
-
-  $form->{title} = "Add";
-  
-  $form->{callback} = "$form->{script}?action=add&transfer=$form->{transfer}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  # we use this only to set a default date
-  GL->transaction(\%myconfig, \%$form);
-  
-  map { $form->{selectaccno} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{all_accno} };
-
-  if ($form->{all_projects}) {
-    $form->{selectprojectnumber} = "<option>\n";
-    map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} };
-  }
-
-  
-  $form->{rowcount} = ($form->{transfer}) ? 2 : 9;
-
-  # departments
-  $form->all_departments(\%myconfig);
-  if (@{ $form->{all_departments} }) {
-    $form->{selectdepartment} = "<option>\n";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
- 
-  &display_form;
-  
-}
-
-
-sub edit {
-
-  GL->transaction(\%myconfig, \%$form);
-
-  map { $form->{selectaccno} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{all_accno} };
-  
-  # projects
-  if ($form->{all_projects}) {
-    $form->{selectprojectnumber} = "<option>\n";
-    map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} };
-  }
-
-  
-  # departments
-  $form->all_departments(\%myconfig);
-  if (@{ $form->{all_departments} }) {
-
-    $form->{department} = "$form->{department}--$form->{department_id}";
-
-    $form->{selectdepartment} = "<option>\n";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
- 
-  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
-
-  # readonly
-  $form->{readonly} = 1 if $myconfig{acs} =~ /General Ledger--Add Transaction/; 
-
-  $form->{title} = "Edit";
-  
-  &form_header;
-
-  $i = 1;
-  foreach $ref (@{ $form->{GL} }) {
-    $form->{"accno_$i"} = "$ref->{accno}--$ref->{description}";
-
-    $form->{"projectnumber_$i"} = "$ref->{projectnumber}--$ref->{project_id}";
-    $form->{"fx_transaction_$i"} = $ref->{fx_transaction};
-    
-    if ($ref->{amount} < 0) {
-      $form->{totaldebit} -= $ref->{amount};
-      $form->{"debit_$i"} = $ref->{amount} * -1;
-    } else {
-      $form->{totalcredit} += $ref->{amount};
-      $form->{"credit_$i"} = $ref->{amount};
-    }
-
-    $i++;
-  }
-
-  $form->{rowcount} = $i;
-  
-  &display_rows;
-
-  &form_footer;
-  
-}
-
-
-
-sub search {
-
-  $form->{title} = $locale->text('General Ledger')." ".$locale->text('Reports');
-  
-  $form->all_departments(\%myconfig);
-  # departments
-  if (@{ $form->{all_departments} }) {
-    $form->{selectdepartment} = "<option>\n";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
- 
-    $department = qq|
-  	<tr>
-	  <th align=right nowrap>|.$locale->text('Department').qq|</th>
-	  <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
-	</tr>
-|;
-  }
-
-
-  # accounting years
-  $form->{selectaccountingyear} = "<option>\n";
-  map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} };
-  $form->{selectaccountingmonth} = "<option>\n";
-  map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} };
-
-  $selectfrom = qq|
-        <tr>
-	<th align=right>|.$locale->text('Period').qq|</th>
-	<td colspan=3>
-	<select name=month>$form->{selectaccountingmonth}</select>
-	<select name=year>$form->{selectaccountingyear}</select>
-	<input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	<input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	<input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	<input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	</td>
-      </tr>
-|;
-
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=sort value=transdate>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Reference').qq|</th>
-	  <td><input name=reference size=20></td>
-	  <th align=right>|.$locale->text('Source').qq|</th>
-	  <td><input name=source size=20></td>
-	</tr>
-	$department
-	<tr>
-	  <th align=right>|.$locale->text('Description').qq|</th>
-	  <td colspan=3><input name=description size=40></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Notes').qq|</th>
-	  <td colspan=3><input name=notes size=40></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=datefrom size=11 title="$myconfig{dateformat}"></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=dateto size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-	<tr>
-	  <th align=right>|.$locale->text('Amount').qq| >=</th>
-	  <td><input name=amountfrom size=11></td>
-	  <th align=right>|.$locale->text('Amount').qq| <=</th>
-	  <td><input name=amountto size=11></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Include in Report').qq|</th>
-	  <td colspan=3>
-	    <table>
-	      <tr>
-		<td>
-		  <input name="category" class=radio type=radio value=X checked>&nbsp;|.$locale->text('All').qq|
-		  <input name="category" class=radio type=radio value=A>&nbsp;|.$locale->text('Asset').qq|
-		  <input name="category" class=radio type=radio value=C>&nbsp;|.$locale->text('Contra').qq|
-		  <input name="category" class=radio type=radio value=L>&nbsp;|.$locale->text('Liability').qq|
-		  <input name="category" class=radio type=radio value=Q>&nbsp;|.$locale->text('Equity').qq|
-		  <input name="category" class=radio type=radio value=I>&nbsp;|.$locale->text('Income').qq|
-		  <input name="category" class=radio type=radio value=E>&nbsp;|.$locale->text('Expense').qq|
-		</td>
-	      </tr>
-	      <tr>
-		<table>
-		  <tr>
-		    <td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td>
-		    <td>|.$locale->text('ID').qq|</td>
-		    <td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
-		    <td>|.$locale->text('Date').qq|</td>
-		    <td align=right><input name="l_reference" class=checkbox type=checkbox value=Y checked></td>
-		    <td>|.$locale->text('Reference').qq|</td>
-		    <td align=right><input name="l_description" class=checkbox type=checkbox value=Y checked></td>
-		    <td>|.$locale->text('Description').qq|</td>
-		    <td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td>
-		    <td>|.$locale->text('Notes').qq|</td>
-		  </tr>
-		  <tr>
-		    <td align=right><input name="l_debit" class=checkbox type=checkbox value=Y checked></td>
-		    <td>|.$locale->text('Debit').qq|</td>
-		    <td align=right><input name="l_credit" class=checkbox type=checkbox value=Y checked></td>
-		    <td>|.$locale->text('Credit').qq|</td>
-		    <td align=right><input name="l_source" class=checkbox type=checkbox value=Y checked></td>
-		    <td>|.$locale->text('Source').qq|</td>
-		    <td align=right><input name="l_accno" class=checkbox type=checkbox value=Y checked></td>
-		    <td>|.$locale->text('Account').qq|</td>
-		    <td align=right><input name="l_gifi_accno" class=checkbox type=checkbox value=Y></td>
-		    <td>|.$locale->text('GIFI').qq|</td>
-		  </tr>
-		  <tr>
-		    <td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
-		    <td>|.$locale->text('Subtotal').qq|</td>
-		  </tr>
-		</table>
-	      </tr>
-	    </table>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=generate_report>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-}
-
-
-sub generate_report {
-
-  $form->{sort} = "transdate" unless $form->{sort};
-
-  GL->all_transactions(\%myconfig, \%$form);
-  
-  $href = "$form->{script}?action=generate_report&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  $form->sort_order();
-
-  $callback = "$form->{script}?action=generate_report&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  %acctype = ( 'A' => $locale->text('Asset'),
-               'C' => $locale->text('Contra'),
-               'L' => $locale->text('Liability'),
-	       'Q' => $locale->text('Equity'),
-	       'I' => $locale->text('Income'),
-	       'E' => $locale->text('Expense'),
-	     );
-  
-  $form->{title} = $locale->text('General Ledger');
-  
-  $ml = ($form->{ml} =~ /(A|E)/) ? -1 : 1;
-
-  unless ($form->{category} eq 'X') {
-    $form->{title} .= " : ".$locale->text($acctype{$form->{category}});
-  }
-  if ($form->{accno}) {
-    $href .= "&accno=".$form->escape($form->{accno});
-    $callback .= "&accno=".$form->escape($form->{accno},1);
-    $option = $locale->text('Account')." : $form->{accno} $form->{account_description}";
-  }
-  if ($form->{gifi_accno}) {
-    $href .= "&gifi_accno=".$form->escape($form->{gifi_accno});
-    $callback .= "&gifi_accno=".$form->escape($form->{gifi_accno},1);
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('GIFI')." : $form->{gifi_accno} $form->{gifi_account_description}";
-  }
-  if ($form->{source}) {
-    $href .= "&source=".$form->escape($form->{source});
-    $callback .= "&source=".$form->escape($form->{source},1);
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('Source')." : $form->{source}";
-  }
-  if ($form->{reference}) {
-    $href .= "&reference=".$form->escape($form->{reference});
-    $callback .= "&reference=".$form->escape($form->{reference},1);
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('Reference')." : $form->{reference}";
-  }
-  if ($form->{department}) {
-    $href .= "&department=".$form->escape($form->{department});
-    $callback .= "&department=".$form->escape($form->{department},1);
-    ($department) = split /--/, $form->{department};
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('Department')." : $department";
-  }
-
-  if ($form->{description}) {
-    $href .= "&description=".$form->escape($form->{description});
-    $callback .= "&description=".$form->escape($form->{description},1);
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('Description')." : $form->{description}";
-  }
-  if ($form->{notes}) {
-    $href .= "&notes=".$form->escape($form->{notes});
-    $callback .= "&notes=".$form->escape($form->{notes},1);
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('Notes')." : $form->{notes}";
-  }
-   
-  if ($form->{datefrom}) {
-    $href .= "&datefrom=$form->{datefrom}";
-    $callback .= "&datefrom=$form->{datefrom}";
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{datefrom}, 1);
-  }
-  if ($form->{dateto}) {
-    $href .= "&dateto=$form->{dateto}";
-    $callback .= "&dateto=$form->{dateto}";
-    if ($form->{datefrom}) {
-      $option .= " ";
-    } else {
-      $option .= "\n<br>" if $option;
-    }
-    $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{dateto}, 1);
-  }
-  
-  if ($form->{amountfrom}) {
-    $href .= "&amountfrom=$form->{amountfrom}";
-    $callback .= "&amountfrom=$form->{amountfrom}";
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('Amount')." >= ".$form->format_amount(\%myconfig, $form->{amountfrom}, 2);
-  }
-  if ($form->{amountto}) {
-    $href .= "&amountto=$form->{amountto}";
-    $callback .= "&amountto=$form->{amountto}";
-    if ($form->{amountfrom}) {
-      $option .= " <= ";
-    } else {
-      $option .= "\n<br>" if $option;
-      $option .= $locale->text('Amount')." <= ";
-    }
-    $option .= $form->format_amount(\%myconfig, $form->{amountto}, 2);
-  }
-
-
-  @columns = $form->sort_columns(qw(transdate id reference description notes source debit credit accno gifi_accno));
-
-  if ($form->{link} =~ /_paid/) {
-    @columns = $form->sort_columns(qw(transdate id reference description notes source cleared debit credit accno gifi_accno));
-    $form->{l_cleared} = "Y";
-  }
-
-  if ($form->{accno} || $form->{gifi_accno}) {
-    @columns = grep !/(accno|gifi_accno)/, @columns;
-    push @columns, "balance";
-    $form->{l_balance} = "Y";
-  }
-  
-  
-  foreach $item (@columns) {
-    if ($form->{"l_$item"} eq "Y") {
-      push @column_index, $item;
-
-      # add column to href and callback
-      $callback .= "&l_$item=Y";
-      $href .= "&l_$item=Y";
-    }
-  }
-  
-  if ($form->{l_subtotal} eq 'Y') {
-    $callback .= "&l_subtotal=Y";
-    $href .= "&l_subtotal=Y";
-  }
-
-  $callback .= "&category=$form->{category}";
-  $href .= "&category=$form->{category}";
-
-  $column_header{id} = "<th><a class=listheading href=$href&sort=id>".$locale->text('ID')."</a></th>";
-  $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>";
-  $column_header{reference} = "<th><a class=listheading href=$href&sort=reference>".$locale->text('Reference')."</a></th>";
-  $column_header{source} = "<th><a class=listheading href=$href&sort=source>".$locale->text('Source')."</a></th>";
-  $column_header{description} = "<th><a class=listheading href=$href&sort=description>".$locale->text('Description')."</a></th>";
-  $column_header{notes} = "<th class=listheading>".$locale->text('Notes')."</th>";
-  $column_header{debit} = "<th class=listheading>".$locale->text('Debit')."</th>";
-  $column_header{credit} = "<th class=listheading>".$locale->text('Credit')."</th>";
-  $column_header{accno} = "<th><a class=listheading href=$href&sort=accno>".$locale->text('Account')."</a></th>";
-  $column_header{gifi_accno} = "<th><a class=listheading href=$href&sort=gifi_accno>".$locale->text('GIFI')."</a></th>";
-  $column_header{balance} = "<th>".$locale->text('Balance')."</th>";
-  $column_header{cleared} = qq|<th>|.$locale->text('R').qq|</th>|;
- 
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-map { print "$column_header{$_}\n" } @column_index;
-
-print "
-        </tr>
-";
-  
-  # add sort to callback
-  $form->{callback} = "$callback&sort=$form->{sort}";
-  $callback = $form->escape($form->{callback});
-  
-  # initial item for subtotals
-  if (@{ $form->{GL} }) {
-    $sameitem = $form->{GL}->[0]->{$form->{sort}};
-  }
-  
-  if (($form->{accno} || $form->{gifi_accno}) && $form->{balance}) {
-
-    map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-    $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>";
-    
-    $i++; $i %= 2;
-    print qq|
-        <tr class=listrow$i>
-|;
-    map { print "$column_data{$_}\n" } @column_index;
-    
-    print qq|
-        </tr>
-|;
-  }
-
-  # reverse href
-  $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC";
-  $form->sort_order();
-  $href =~ s/direction=$form->{direction}/direction=$direction/;
-    
-  foreach $ref (@{ $form->{GL} }) {
-
-    # if item ne sort print subtotal
-    if ($form->{l_subtotal} eq 'Y') {
-      if ($sameitem ne $ref->{$form->{sort}}) {
-	&gl_subtotal;
-      }
-    }
-    
-    $form->{balance} += $ref->{amount};
-    
-    $subtotaldebit += $ref->{debit};
-    $subtotalcredit += $ref->{credit};
-    
-    $totaldebit += $ref->{debit};
-    $totalcredit += $ref->{credit};
-
-    $ref->{debit} = $form->format_amount(\%myconfig, $ref->{debit}, 2, "&nbsp;");
-    $ref->{credit} = $form->format_amount(\%myconfig, $ref->{credit}, 2, "&nbsp;");
-    
-    $column_data{id} = "<td>$ref->{id}</td>";
-    $column_data{transdate} = "<td>$ref->{transdate}</td>";
-    $column_data{reference} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{reference}</td>";
-    $column_data{description} = "<td>$ref->{description}&nbsp;</td>";
-    $column_data{source} = "<td>$ref->{source}&nbsp;</td>";
-    $column_data{notes} = "<td>$ref->{notes}&nbsp;</td>";
-    $column_data{debit} = "<td align=right>$ref->{debit}</td>";
-    $column_data{credit} = "<td align=right>$ref->{credit}</td>";
-    $column_data{accno} = "<td><a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{accno}</a></td>";
-    $column_data{gifi_accno} = "<td><a href=$href&gifi_accno=$ref->{gifi_accno}&callback=$callback>$ref->{gifi_accno}</a>&nbsp;</td>";
-    $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>";
-    $column_data{cleared} = ($ref->{cleared}) ? "<td>*</td>" : "<td>&nbsp;</td>";
-
-    $i++; $i %= 2;
-    print "
-        <tr class=listrow$i>";
-    map { print "$column_data{$_}\n" } @column_index;
-    print "</tr>";
-    
-  }
-
-
-  &gl_subtotal if ($form->{l_subtotal} eq 'Y');
-
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  
-  $column_data{debit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totaldebit, 2, "&nbsp;")."</th>";
-  $column_data{credit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totalcredit, 2, "&nbsp;")."</th>";
-  $column_data{balance} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</th>";
-  
-  print qq|
-	<tr class=listtotal>
-|;
-
-  map { print "$column_data{$_}\n" } @column_index;
-
-  $i = 1;
-  if ($myconfig{acs} !~ /GL--GL/) {
-    $button{'GL--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('GL Transaction').qq|"> |;
-    $button{'GL--Add Transaction'}{order} = $i++;
-  }
-  if ($myconfig{acs} !~ /AR--AR/) {
-    $button{'AR--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|"> |;
-    $button{'AR--Add Transaction'}{order} = $i++;
-    $button{'AR--Sales Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice ').qq|"> |;
-    $button{'AR--Sales Invoice'}{order} = $i++;
-  }
-  if ($myconfig{acs} !~ /AP--AP/) {
-    $button{'AP--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|"> |;
-    $button{'AP--Add Transaction'}{order} = $i++;
-    $button{'AP--Vendor Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice ').qq|"> |;
-    $button{'AP--Vendor Invoice'}{order} = $i++;
-  }
-
-  foreach $item (split /;/, $myconfig{acs}) {
-    delete $button{$item};
-  }
-  
-  print qq|
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub gl_subtotal {
-      
-  $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;");
-  $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;");
-  
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-  $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</td>";
-  $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</td>";
-
-  
-  print "<tr class=listsubtotal>";
-  map { print "$column_data{$_}\n" } @column_index;
-  print "</tr>";
-
-  $subtotaldebit = 0;
-  $subtotalcredit = 0;
-
-  $sameitem = $ref->{$form->{sort}};
-
-}
-
-
-sub update {
-
-  @a = ();
-  $count = 0;
-  @flds = qw(accno debit credit projectnumber);
-
-  for $i (1 .. $form->{rowcount}) {
-    unless (($form->{"debit_$i"} eq "") && ($form->{"credit_$i"} eq "")) {
-      # take accno apart
-      ($form->{"accno_$i"}) = split(/--/, $form->{"accno_$i"});
-      map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(debit credit);
-      
-      push @a, {};
-      $j = $#a;
-      
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
-
-
-  for $i (1 .. $count) {
-    $j = $i - 1;
-    map { $form->{"${_}_$i"} = $a[$j]->{$_} } @flds;
-  }
-
-  for $i ($count + 1 .. $form->{rowcount}) {
-    map { delete $form->{"${_}_$i"} } @flds;
-  }
-
-  $form->{rowcount} = $count + 1;
-
-  &display_form;
-  
-}
-
-
-sub display_form {
-
-  &form_header;
-  &display_rows;
-  &form_footer;
-
-}
-
-
-sub display_rows {
-
-  $form->{selectprojectnumber} = $form->unescape($form->{selectprojectnumber});
-  
-  $form->{totaldebit} = 0;
-  $form->{totalcredit} = 0;
-
-  for $i (1 .. $form->{rowcount}) {
- 
-    $form->{totaldebit} += $form->{"debit_$i"};
-    $form->{totalcredit} += $form->{"credit_$i"};
-
-    map { $form->{"${_}_$i"} = ($form->{"${_}_$i"}) ? $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) : "" } qw(debit credit);
-
-    $selectaccno = $form->{selectaccno};
-    $selectaccno =~ s/option>\Q$form->{"accno_$i"}\E/option selected>$form->{"accno_$i"}/;
-
-    if ($form->{selectprojectnumber}) {
-      $selectprojectnumber = $form->{selectprojectnumber};
-      $selectprojectnumber =~ s/(<option value="$form->{"projectnumber_$i"}")/$1 selected/;
-      
-      $project = qq|
-  <td><select name="projectnumber_$i">$selectprojectnumber</select></td>|;
-    }
-    
-  
-    if ($form->{transfer}) {
-      $form->{"fx_transaction_$i"} = ($form->{"fx_transaction_$i"}) ? "checked" : "";
-      $fx_transaction = qq|
-  <td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1 $form->{"fx_transaction_$i"}></td>
-|;
-    } else {
-      $fx_transaction = qq|
-    <input type=hidden name="fx_transaction_$i" value=$form->{"fx_transaction_$i"}>
-|;
-    }
-    
-
-    print qq|<tr>
-  <td><select name="accno_$i">$selectaccno</select></td>
-  $fx_transaction
-  <td><input name="debit_$i" size=12 value=$form->{"debit_$i"}></td>
-  <td><input name="credit_$i" size=12 value=$form->{"credit_$i"}></td>
-  $project
-</tr>
-
-|;
-  }
-
-
-  print qq|
-<input type=hidden name=rowcount value=$form->{rowcount}>
-<input type=hidden name=selectaccno value="$form->{selectaccno}">
-<input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|">|;
-
-}
-
-
-sub form_header {
-
-  $title = $form->{title};
-  if ($form->{transfer}) {
-    $form->{title} = $locale->text("$title Cash Transfer Transaction");
-  } else {
-    $form->{title} = $locale->text("$title General Ledger Transaction");
-  }
-    
-# $locale->text('Add Cash Transfer Transaction')
-# $locale->text('Edit Cash Transfer Transaction')
-# $locale->text('Add General Ledger Transaction')
-# $locale->text('Edit General Ledger Transaction')
-  
-
-  $form->{selectdepartment} = $form->unescape($form->{selectdepartment});
-  $form->{selectdepartment} =~ s/ selected//;
-  $form->{selectdepartment} =~ s/(<option value="\Q$form->{department}\E")/$1 selected/;
-
-  map { $form->{$_} = $form->quote($form->{$_}) } qw(reference description notes);
-
-  if (($rows = $form->numtextrows($form->{description}, 50)) > 1) {
-    $description = qq|<textarea name=description rows=$rows cols=50 wrap=soft>$form->{description}</textarea>|;
-  } else {
-    $description = qq|<input name=description size=50 value="$form->{description}">|;
-  }
-  
-  if (($rows = $form->numtextrows($form->{notes}, 50)) > 1) {
-    $notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
-  } else {
-    $notes = qq|<input name=notes size=50 value="$form->{notes}">|;
-  }
-  
-  $department = qq|
-        <tr>
-	  <th align=right nowrap>|.$locale->text('Department').qq|</th>
-	  <td><select name=department>$form->{selectdepartment}</select></td>
-	  <input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|">
-	</tr>
-| if $form->{selectdepartment};
-
-  $project = qq| 
-	  <th class=listheading>|.$locale->text('Project').qq|</th>
-| if $form->{selectprojectnumber};
-
-  if ($form->{transfer}) {
-    $fx_transaction = qq|
-	  <th class=listheading>|.$locale->text('FX').qq|</th>
-|;
-  }
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input name=id type=hidden value=$form->{id}>
-
-<input type=hidden name=transfer value=$form->{transfer}>
-
-<input type=hidden name=selectaccno value="$form->{selectaccno}">
-
-<input type=hidden name=closedto value=$form->{closedto}>
-<input type=hidden name=locked value=$form->{locked}>
-<input type=hidden name=title value="$title">
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th align=right>|.$locale->text('Reference').qq|</th>
-	  <td><input name=reference size=20 value="$form->{reference}"></td>
-	  <th align=right>|.$locale->text('Date').qq|</th>
-	  <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
-	</tr>
-	$department
-	<tr>
-	  <th align=right>|.$locale->text('Description').qq|</th>
-	  <td colspan=3>$description</td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Notes').qq|</th>
-	  <td colspan=3>$notes</td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-	  <th class=listheading>|.$locale->text('Account').qq|</th>
-	  $fx_transaction
-	  <th class=listheading>|.$locale->text('Debit').qq|</th>
-	  <th class=listheading>|.$locale->text('Credit').qq|</th>
-	  $project
-	</tr>
-|;
-
-}
-
-
-sub form_footer {
-
-  ($dec) = ($form->{totaldebit} =~ /\.(\d+)/);
-  $dec = length $dec;
-  $decimalplaces = ($dec > 2) ? $dec : 2;
-  
-  map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, $decimalplaces, "&nbsp;") } qw(totaldebit totalcredit);
-
-
-  $project = qq|
-	  <th>&nbsp;</th>
-| if $form->{selectprojectnumber};
-
-  if ($form->{transfer}) {
-    $fx_transaction = qq|
-	  <th>&nbsp;</th>
-|;
-  }
-    
-  print qq|
-        <tr class=listtotal>
-	  <th>&nbsp;</th>
-	  $fx_transaction
-	  <th class=listtotal align=right>$form->{totaldebit}</th>
-	  <th class=listtotal align=right>$form->{totalcredit}</th>
-	  $project
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<br>
-|;
-
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-  
-  if (! $form->{readonly}) {
-    
-    if ($form->{id}) {
-      print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-|;
-
-      if (!$form->{locked}) {
-	print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">
-|;
-      }
-
-      print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|">
-|;
-      
-    } else {
-      if ($transdate > $closedto) {
-	print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|;
-      }
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-  
-  print "
-  </form>
-
-</body>
-</html>
-";
-  
-}
-
-
-sub delete {
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-  $form->hide_form();
-  
-  print qq|
-<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2>
-
-<h4>|.$locale->text('Are you sure you want to delete Transaction').qq| $form->{reference}</h4>
-
-<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|">
-</form>
-|;
-
-}
-
-
-sub yes {
-
-  $form->redirect($locale->text('Transaction deleted!')) if (GL->delete_transaction(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot delete transaction!'));
-  
-}
-
-
-sub post {
-
-  # check if there is something in reference and date
-  $form->isblank("reference", $locale->text('Reference missing!'));
-  $form->isblank("transdate", $locale->text('Transaction Date missing!'));
-
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-
-  
-  $form->error($locale->text('Cannot post transaction for a closed period!')) if ($transdate <= $closedto);
-
-  # add up debits and credits
-  if (!$form->{adjustment}) {
-    for $i (1 .. $form->{rowcount}) {
-      $debit += $form->parse_amount(\%myconfig, $form->{"debit_$i"});
-      $credit += $form->parse_amount(\%myconfig, $form->{"credit_$i"});
-    }
-    
-    if ($form->round_amount($debit, 2) != $form->round_amount($credit, 2)) {
-      &post_adjustment;
-      exit;
-    }
-  }
-
-  $form->redirect($locale->text('Transaction posted!')) if GL->post_transaction(\%myconfig, \%$form);
-  $form->error($locale->text('Cannot post transaction!'));
-  
-}
-
-
-sub post_as_new {
-
-  $form->{id} = 0;
-  &post;
-
-}
-
-
-sub post_adjustment {
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=adjustment value=1>
-|;
-
-  $form->hide_form();
-  
-  print qq|
-<h2 class=confirm>|.$locale->text('Warning!').qq|</h2>
-
-<h4>|.$locale->text('Out of balance transaction!').qq|</h4>
-
-<input name=action class=submit type=submit value="|.$locale->text('Post').qq|">
-</form>
-|;
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/hr.pl b/sql-ledger/bin/mozilla/hr.pl
deleted file mode 100644
index 497daa1f7..000000000
--- a/sql-ledger/bin/mozilla/hr.pl
+++ /dev/null
@@ -1,1217 +0,0 @@
-#=====================================================================
-# SQL-Ledger, Accounting
-# Copyright (c) 2004
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# payroll module
-#
-#======================================================================
-
-use SL::HR;
-use SL::User;
-
-1;
-# end of main
-
-
-
-sub add {
-
-  $label = "Add ".ucfirst $form->{db};
-  $form->{title} = $locale->text($label);
-
-  $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &{ "$form->{db}_links" };
-  
-}
-
-
-sub search { &{ "search_$form->{db}" } };
-  
-
-sub search_employee {
-
-  $form->{title} = $locale->text('Employees');
-
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Employee Number').qq|</th>
-	  <td colspan=3><input name=employeenumber size=20></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Employee Name').qq|</th>
-	  <td colspan=3><input name=name size=35></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Startdate').qq|</th>
-	  <td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td>
-	  <th>|.$locale->text('Enddate').qq|</th>
-	  <td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td>
-	</tr>
-	<tr valign=top>
-	  <th align=right nowrap>|.$locale->text('Notes').qq|</th>
-	  <td colspan=3><input name=notes size=40></td>
-	</tr>
-	<tr>
-	  <td></td>
-	  <td colspan=3><input name=status class=radio type=radio value=all checked>&nbsp;|.$locale->text('All').qq|
-	  <input name=status class=radio type=radio value=sales>&nbsp;|.$locale->text('Sales').qq|
-	  <input name=status class=radio type=radio value=orphaned>&nbsp;|.$locale->text('Orphaned').qq|</td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td colspan=3>
-	    <table>
-	      <tr>
-	        <td><input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID').qq|</td>
-		<td><input name="l_employeenumber" type=checkbox class=checkbox value=Y checked> |.$locale->text('Employee Number').qq|</td>
-		<td><input name="l_name" type=checkbox class=checkbox value=Y checked> |.$locale->text('Employee Name').qq|</td>
-		<td><input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address').qq|</td>
-		<td><input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province').qq|</td>
-		<td><input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code').qq|</td>
-		<td><input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country').qq|</td>
-		<td><input name="l_workphone" type=checkbox class=checkbox value=Y checked> |.$locale->text('Work Phone').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_homephone" type=checkbox class=checkbox value=Y checked> |.$locale->text('Home Phone').qq|</td>
-		<td><input name="l_startdate" type=checkbox class=checkbox value=Y checked> |.$locale->text('Startdate').qq|</td>
-		<td><input name="l_enddate" type=checkbox class=checkbox value=Y checked> |.$locale->text('Enddate').qq|</td>
-		<td><input name="l_sales" type=checkbox class=checkbox value=Y> |.$locale->text('Sales').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager').qq|</td>
-		<td><input name="l_role" type=checkbox class=checkbox value=Y checked> |.$locale->text('Role').qq|</td>
-		<td><input name="l_login" type=checkbox class=checkbox value=Y checked> |.$locale->text('Login').qq|</td>
-		<td><input name="l_email" type=checkbox class=checkbox value=Y> |.$locale->text('E-mail').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_ssn" type=checkbox class=checkbox value=Y> |.$locale->text('SSN').qq|</td>
-		<td><input name="l_dob" type=checkbox class=checkbox value=Y> |.$locale->text('DOB').qq|</td>
-		<td><input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN').qq|</td>
-		<td><input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC').qq|</td>
-		<td><input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes').qq|</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=list_employees>
-<input type=hidden name=db value=$form->{db}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-}
-
-
-sub list_employees {
-
-  HR->employees(\%myconfig, \%$form);
-  
-  $href = "$form->{script}?action=list_employees&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-  
-  $form->sort_order();
-
-  $callback = "$form->{script}?action=list_employees&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-  
-  @columns = $form->sort_columns(qw(id employeenumber name address city state zipcode country workphone homephone email startdate enddate ssn dob iban bic sales role manager login notes));
-
-  foreach $item (@columns) {
-    if ($form->{"l_$item"} eq "Y") {
-      push @column_index, $item;
-
-      # add column to href and callback
-      $callback .= "&l_$item=Y";
-      $href .= "&l_$item=Y";
-    }
-  }
-
-  %role = ( user	=> $locale->text('User'),
-            supervisor	=> $locale->text('Supervisor'),
-	    manager	=> $locale->text('Manager'),
-            admin	=> $locale->text('Administrator')
-	  );
-  
-  $option = $locale->text('All');
-
-  if ($form->{status} eq 'sales') {
-    $option = $locale->text('Sales');
-  }
-  if ($form->{status} eq 'orphaned') {
-    $option = $locale->text('Orphaned');
-  }
-  if ($form->{employeenumber}) {
-    $callback .= "&employeenumber=".$form->escape($form->{employeenumber},1);
-    $href .= "&employeenumber=".$form->escape($form->{employeenumber});
-    $option .= "\n<br>".$locale->text('Employee Number')." : $form->{employeenumber}";
-  }
-  if ($form->{name}) {
-    $callback .= "&name=".$form->escape($form->{name},1);
-    $href .= "&name=".$form->escape($form->{name});
-    $option .= "\n<br>".$locale->text('Employee Name')." : $form->{name}";
-  }
-  if ($form->{startdate}) {
-    $callback .= "&startdate=$form->{startdate}";
-    $href .= "&startdate=$form->{startdate}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Startdate')."&nbsp;".$locale->date(\%myconfig, $form->{startdate}, 1);
-  }
-  if ($form->{enddate}) {
-    $callback .= "&enddate=$form->{enddate}";
-    $href .= "&enddate=$form->{enddate}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Enddate')."&nbsp;".$locale->date(\%myconfig, $form->{enddate}, 1);
-  }
-  if ($form->{notes}) {
-    $callback .= "&notes=".$form->escape($form->{notes},1);
-    $href .= "&notes=".$form->escape($form->{notes});
-    $option .= "\n<br>" if $option;
-    $option .= $locale->text('Notes')." : $form->{notes}";
-  }
-
-  $form->{callback} = "$callback&sort=$form->{sort}";
-  $callback = $form->escape($form->{callback});
-
-  $column_header{id} = qq|<th class=listheading>|.$locale->text('ID').qq|</th>|;
-  $column_header{employeenumber} = qq|<th><a class=listheading href=$href&sort=employeenumber>|.$locale->text('Number').qq|</a></th>|;
-  $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|;
-  $column_header{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|;
-  $column_header{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</a></th>|;
-  $column_header{city} = qq|<th><a class=listheading href=$href&sort=city>|.$locale->text('City').qq|</a></th>|;
-  $column_header{state} = qq|<th><a class=listheading href=$href&sort=state>|.$locale->text('State/Province').qq|</a></th>|;
-  $column_header{zipcode} = qq|<th><a class=listheading href=$href&sort=zipcode>|.$locale->text('Zip/Postal Code').qq|</a></th>|;
-  $column_header{country} = qq|<th><a class=listheading href=$href&sort=country>|.$locale->text('Country').qq|</a></th>|;
-  $column_header{workphone} = qq|<th><a class=listheading href=$href&sort=workphone>|.$locale->text('Work Phone').qq|</a></th>|;
-  $column_header{homephone} = qq|<th><a class=listheading href=$href&sort=homephone>|.$locale->text('Home Phone').qq|</a></th>|;
-  
-  $column_header{startdate} = qq|<th><a class=listheading href=$href&sort=startdate>|.$locale->text('Startdate').qq|</a></th>|;
-  $column_header{enddate} = qq|<th><a class=listheading href=$href&sort=enddate>|.$locale->text('Enddate').qq|</a></th>|;
-  $column_header{notes} = qq|<th><a class=listheading href=$href&sort=notes>|.$locale->text('Notes').qq|</a></th>|;
-  $column_header{role} = qq|<th><a class=listheading href=$href&sort=role>|.$locale->text('Role').qq|</a></th>|;
-  $column_header{login} = qq|<th><a class=listheading href=$href&sort=login>|.$locale->text('Login').qq|</a></th>|;
-  
-  $column_header{sales} = qq|<th class=listheading>|.$locale->text('S').qq|</th>|;
-  $column_header{email} = qq|<th><a class=listheading href=$href&sort=email>|.$locale->text('E-mail').qq|</a></th>|;
-  $column_header{ssn} = qq|<th><a class=listheading href=$href&sort=ssn>|.$locale->text('SSN').qq|</a></th>|;
-  $column_header{dob} = qq|<th><a class=listheading href=$href&sort=dob>|.$locale->text('DOB').qq|</a></th>|;
-  $column_header{iban} = qq|<th><a class=listheading href=$href&sort=iban>|.$locale->text('IBAN').qq|</a></th>|;
-  $column_header{bic} = qq|<th><a class=listheading href=$href&sort=bic>|.$locale->text('BIC').qq|</a></th>|;
-  
-  $form->{title} = $locale->text('Employees');
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-        </tr>
-|;
-
-  foreach $ref (@{ $form->{all_employee} }) {
-
-    map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" } @column_index;
-    
-    $column_data{sales} = ($ref->{sales}) ? "<td>x</td>" : "<td>&nbsp;</td>";
-    $column_data{role} = qq|<td>$role{"$ref->{role}"}&nbsp;</td>|;
-    $column_date{address} = qq|$ref->{address1} $ref->{address2}|;
-
-    $column_data{name} = "<td><a href=$form->{script}?action=edit&db=employee&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&callback=$callback>$ref->{name}&nbsp;</td>";
-
-    if ($ref->{email}) {
-      $email = $ref->{email};
-      $email =~ s/</\&lt;/;
-      $email =~ s/>/\&gt;/;
-      
-      $column_data{email} = qq|<td><a href="mailto:$ref->{email}">$email</a></td>|;
-    }
-
-    $i++; $i %= 2;
-    print "
-        <tr class=listrow$i>
-";
-
-    map { print "$column_data{$_}\n" } @column_index;
-
-    print qq|
-        </tr>
-|;
-    
-  }
-
-  $i = 1;
-  $button{'HR--Employees--Add Employee'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Employee').qq|"> |;
-  $button{'HR--Employees--Add Employee'}{order} = $i++;
-
-  foreach $item (split /;/, $myconfig{acs}) {
-    delete $button{$item};
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=db value=$form->{db}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
- 
-}
-
-
-sub edit {
-
-# $locale->text('Edit Employee')
-# $locale->text('Edit Deduction')
-
-  $label = ucfirst $form->{db};
-  $form->{title} = "Edit $label";
-
-  &{ "$form->{db}_links" };
-  
-}
-
-
-sub employee_links {
-
-#$form->{deductions} = 1;
-  HR->get_employee(\%myconfig, \%$form);
-
-  map { $form->{$_} = $form->quote($form->{$_}) } keys %$form;
-
-  if ($form->{all_deduction}) {
-    $form->{selectdeduction} = "<option>\n";
-    map { $form->{selectdeduction} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } @{ $form->{all_deduction} };
-  }
-
-  $form->{manager} = "$form->{manager}--$form->{managerid}";
-
-  if ($form->{all_manager}) {
-    $form->{selectmanager} = "<option>\n";
-    map { $form->{selectmanager} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_manager} };
-  }
-
-  %role = ( user	=> $locale->text('User'),
-            supervisor	=> $locale->text('Supervisor'),
-	    manager	=> $locale->text('Manager'),
-            admin	=> $locale->text('Administrator')
-	  );
-  
-  $form->{selectrole} = "<option>\n";
-  map { $form->{selectrole} .= "<option value=$_>$role{$_}\n" } qw(user supervisor manager admin);
-
-  $i = 1;
-  foreach $ref (@{ $form->{all_employeededuction} }) {
-    $form->{"deduction_$i"} = "$ref->{description}--$ref->{id}";
-    map { $form->{"${_}_$i"} = $ref->{$_} } qw(before after rate);
-    $i++;
-  }
-  $form->{deduction_rows} = $i - 1;
-
-  &employee_header;
-  &employee_footer;
-
-}
-
-
-sub employee_header {
-
-  $sales = qq|<input type=hidden name=sales value=$form->{sales}>|;
-  $form->{sales} = ($form->{sales}) ? "checked" : "";
-
-  $form->{selectrole} =~ s/ selected//;
-  $form->{selectrole} =~ s/option value=\Q$form->{role}\E>/option value=$form->{role} selected>/;
-
-  $form->{selectdeduction} = $form->unescape($form->{selectdeduction});
-  
-  $form->{selectmanager} = $form->unescape($form->{selectmanager});
-  $form->{selectmanager} =~ s/ selected//;
-  $form->{selectmanager} =~ s/(<option value="\Q$form->{manager}\E")/$1 selected/;
-
-  $sales = qq|
-<input type=hidden name=role value=$form->{role}>
-<input type=hidden name=manager value=$form->{manager}>
-|;
-
-  if ($myconfig{role} ne 'user') {
-    $sales = qq|
-        <tr>
-	  <th align=right>|.$locale->text('Sales').qq|</th>
-	  <td><input name=sales class=checkbox type=checkbox value=1 $form->{sales}></td>
-	</tr>
-        <tr>
-	  <th align=right>|.$locale->text('Role').qq|</th>
-	  <td><select name=role>$form->{selectrole}</select></td>
-	</tr>
-|;
-
-    if ($form->{selectmanager}) {
-      $sales .= qq|
-        <tr>
-	  <th align=right>|.$locale->text('Manager').qq|</th>
-	  <td><select name=manager>$form->{selectmanager}</select></td>
-	</tr>
-|;
-    }
-  }
-  
-  $form->{deduction_rows}++;
-  
-  for ($i = 1; $i <= $form->{deduction_rows}; $i++) {
-    $form->{"selectdeduction_$i"} = $form->{selectdeduction};
-    if ($form->{"deduction_$i"}) {
-      $form->{"selectdeduction_$i"} =~ s/(<option value="\Q$form->{"deduction_$i"}\E")/$1 selected/;
-    }
-  }
-
-  $form->{selectdeduction} = $form->escape($form->{selectdeduction},1);
-  $form->{selectmanager} = $form->escape($form->{selectmanager},1);
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=selectdeduction value="$form->{selectdeduction}">
-<input type=hidden name=deduction_rows value=$form->{deduction_rows}>
-
-<input type=hidden name=selectmanager value="$form->{selectmanager}">
-<input type=hidden name=selectrole value="$form->{selectrole}">
-
-<input type=hidden name=status value=$form->{status}>
-
-<input type=hidden name=title value="$form->{title}">
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-        <tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Number').qq|</th>
-		<td><input name=employeenumber size=32 maxlength=32 value="$form->{employeenumber}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Name').qq|</th>
-		<td><input name=name size=35 maxlength=64 value="$form->{name}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Address').qq|</th>
-		<td><input name=address1 size=35 maxlength=32 value="$form->{address1}"></td>
-	      </tr>
-	      <tr>
-		<th></th>
-		<td><input name=address2 size=35 maxlength=32 value="$form->{address2}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('City').qq|</th>
-		<td><input name=city size=35 maxlength=32 value="$form->{city}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('State/Province').qq|</th>
-		<td><input name=state size=35 maxlength=32 value="$form->{state}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th>
-		<td><input name=zipcode size=10 maxlength=10 value="$form->{zipcode}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Country').qq|</th>
-		<td><input name=country size=35 maxlength=32 value="$form->{country}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('E-mail').qq|</th>
-		<td><input name=email size=35 value="$form->{email}"></td>
-	      </tr>
-	      <tr>
-	      $sales
-	    </table>
-	  </td>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Work Phone').qq|</th>
-		<td><input name=workphone size=20 maxlength=20 value="$form->{workphone}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Home Phone').qq|</th>
-		<td><input name=homephone size=20 maxlength=20 value="$form->{homephone}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Startdate').qq|</th>
-		<td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Enddate').qq|</th>
-		<td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td>
-	      </tr>
-
-	      <tr>
-		<th align=right nowrap>|.$locale->text('SSN').qq|</th>
-		<td><input name=ssn size=20 maxlength=20 value="$form->{ssn}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('DOB').qq|</th>
-		<td><input name=dob size=11 title="$myconfig{dateformat}" value=$form->{dob}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('IBAN').qq|</th>
-		<td><input name=iban size=34 maxlength=34 value="$form->{iban}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('BIC').qq|</th>
-		<td><input name=bic size=11 maxlength=11 value="$form->{bic}"></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <th align=left nowrap>|.$locale->text('Notes').qq|</th>
-  </tr>
-  <tr>
-    <td><textarea name=notes rows=3 cols=60 wrap=soft>$form->{notes}</textarea></td>
-  </tr>
-|;
-
-    if ($form->{selectdeduction}) {
-
-      print qq|
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-	  <th class=listheading>|.$locale->text('Payroll Deduction').qq|</th>
-	  <th class=listheading colspan=3>|.$locale->text('Allowances').qq|</th>
-	</tr>
-
-        <tr class=listheading>
-	  <th></th>
-	  <th class=listheading>|.$locale->text('Before Deduction').qq|</th>
-	  <th class=listheading>|.$locale->text('After Deduction').qq|</th>
-	  <th class=listheading>|.$locale->text('Rate').qq|</th>
-	</tr>
-|;
-
-    for ($i = 1; $i <= $form->{deduction_rows}; $i++) {
-      print qq|
-        <tr>
-	  <td><select name="deduction_$i">$form->{"selectdeduction_$i"}</select></td>
-	  <td><input name="before_$i" value=|.$form->format_amount(\%myconfig, $form->{"before_$i"}, 2).qq|></td>
-	  <td><input name="after_$i" value=|.$form->format_amount(\%myconfig, $form->{"after_$i"}, 2).qq|></td>
-	  <td><input name="rate_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"rate_$i"}).qq|></td>
-	</tr>
-|;
-    }
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-
-sub employee_footer {
-
-  print qq|
-<input name=id type=hidden value=$form->{id}>
-
-<input type=hidden name=db value=$form->{db}>
-<input type=hidden name=employeelogin value=$form->{employeelogin}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=callback value="$form->{callback}">
-
-<br>
-
-<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Save').qq|">
-|;
-
-  if ($form->{id}) {
-    print qq|<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">\n|;
-    if ($form->{status} eq 'orphaned') {
-      print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|;
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
- 
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub save { &{ "save_$form->{db}" } };
-
-
-sub save_employee {
-
-  $form->isblank("name", $locale->text("Name missing!"));
-  HR->save_employee(\%myconfig, \%$form);
-
-  # if it is a login change memberfile and .conf
-  if ($form->{employeelogin}) {
-    $user = new User $memberfile, $form->{employeelogin};
-
-    map { $user->{$_} = $form->{$_} } qw(name email role);
-    map { $user->{"old_$_"} = $user->{$_} } qw(dbpassword password);
-    
-    $user->save_member($memberfile, $userspath) if $user->{login};
-  }
-  
-  $form->redirect($locale->text('Employee saved!'));
-  
-}
-
-
-sub delete { &{ "delete_$form->{db}" } };
-
-
-sub delete_employee {
-
-  HR->delete_employee(\%myconfig, \%$form);
-  $form->redirect($locale->text('Employee deleted!'));
-  
-}
-
-
-sub continue { &{ $form->{nextsub} } };
-
-sub add_employee { &add };
-sub add_deduction { &add };
-
-
-sub search_deduction {
-
-  HR->deductions(\%myconfig, \%$form);
-  
-  $href = "$form->{script}?action=search_deduction&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  $form->sort_order();
-
-  $callback = "$form->{script}?action=search_deduction&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
-  
-  @column_index = $form->sort_columns(qw(description rate amount above below employeepays employerpays ap_accno expense_accno));
-
- 
-  $form->{callback} = $callback;
-  $callback = $form->escape($form->{callback});
-
-  $column_header{description} = qq|<th class=listheading href=$href>|.$locale->text('Description').qq|</th>|;
-  $column_header{rate} = qq|<th class=listheading nowrap>|.$locale->text('Rate').qq|<br>%</th>|;
-  $column_header{amount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|;
-  $column_header{above} = qq|<th class=listheading>|.$locale->text('Above').qq|</th>|;
-  $column_header{below} = qq|<th class=listheading>|.$locale->text('Below').qq|</th>|;
-  $column_header{employerpays} = qq|<th class=listheading>|.$locale->text('Employer').qq|</th>|;
-  $column_header{employeepays} = qq|<th class=listheading>|.$locale->text('Employee').qq|</th>|;
-  
-  $column_header{ap_accno} = qq|<th class=listheading>|.$locale->text('AP').qq|</th>|;
-  $column_header{expense_accno} = qq|<th class=listheading>|.$locale->text('Expense').qq|</th>|;
-  
-  $form->{title} = $locale->text('Deductions');
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-        </tr>
-|;
-
-  
-  foreach $ref (@{ $form->{all_deduction} }) {
-
-    $rate = $form->format_amount(\%myconfig, $ref->{rate} * 100, "", "&nbsp;");
-    
-    $column_data{rate} = "<td align=right>$rate</td>";
-
-    map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, 2, "&nbsp;")."</td>" } qw(amount below above);
-      
-    map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" } qw(ap_accno expense_accno);
-    
-    map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, "", "&nbsp;")."</td>" } qw(employerpays employeepays);
-    
-    if ($ref->{description} ne $sameitem) {
-      $column_data{description} = "<td><a href=$form->{script}?action=edit&db=$form->{db}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</a></td>";
-    } else {
-      $column_data{description} = "<td>&nbsp;</td>";
-    }
-
-    $i++; $i %= 2;
-    print "
-        <tr class=listrow$i>
-";
-
-    map { print "$column_data{$_}\n" } @column_index;
-
-    print qq|
-        </tr>
-|;
-
-    $sameitem = $ref->{description};
-    
-  }
-
-  $i = 1;
-  $button{'HR--Deductions--Add Deduction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Deduction').qq|"> |;
-  $button{'HR--Deductions--Add Deduction'}{order} = $i++;
-
-  foreach $item (split /;/, $myconfig{acs}) {
-    delete $button{$item};
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input type=hidden name=db value=$form->{db}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
- 
-}
-
-
-sub deduction_links {
-  
-  HR->get_deduction(\%myconfig, \%$form);
-
-  $i = 1;
-  foreach $ref (@{ $form->{deductionrate} }) {
-    map { $form->{"${_}_$i"} = $ref->{$_} } keys %$ref;
-    $i++;
-  }
-  $form->{rate_rows} = $i - 1;
-  
-  $i = 1;
-  foreach $ref (@{ $form->{deductionbase} }) {
-    $form->{"base_$i"} = "$ref->{description}--$ref->{id}";
-    $form->{"maximum_$i"} = $ref->{maximum};
-    $i++;
-  }
-  $form->{base_rows} = $i - 1;
-
-  $i = 1;
-  foreach $ref (@{ $form->{deductionafter} }) {
-    $form->{"after_$i"} = "$ref->{description}--$ref->{id}";
-    $i++;
-  }
-  $form->{after_rows} = $i - 1;
-  
-  $form->{employeepays} = 1;
-  
-  $selectaccount = "<option>\n";
-  map { $selectaccount .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{ap_accounts} };
-
-  $form->{ap_accno} = qq|$form->{ap_accno}--$form->{ap_description}|;
-  $form->{selectap} = $selectaccount;
-
-  $selectaccount = "<option>\n";
-  map { $selectaccount .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{expense_accounts} };
-
-  $form->{expense_accno} = qq|$form->{expense_accno}--$form->{expense_description}|;
-  $form->{selectexpense} = $selectaccount;
-
-  map { $form->{"rate_$_"} *= 100 } (1 .. $form->{rate_rows});
-
-  $form->{selectbase} = "<option>\n";
-  map { $form->{selectbase} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } @{ $form->{all_deduction} };
-  
-  &deduction_header;
-  &deduction_footer;
-  
-}
-
-
-sub deduction_header {
-
-  $selectap = $form->{selectap};
-  $selectap =~ s/option>\Q$form->{ap_accno}\E/option selected>$form->{ap_accno}/;
-  $selectexpense = $form->{selectexpense};
-  $selectexpense =~ s/option>\Q$form->{expense_accno}\E/option selected>$form->{expense_accno}/;
-
-
-  $form->{rate_rows}++;
-  $form->{base_rows}++;
-  $form->{after_rows}++;
-
-  $form->{selectbase} = $form->unescape($form->{selectbase});
-  
-  for ($i = 1; $i <= $form->{base_rows}; $i++) {
-    $form->{"selectbase_$i"} = $form->{selectbase};
-    if ($form->{"base_$i"}) {
-      $form->{"selectbase_$i"} =~ s/(<option value="\Q$form->{"base_$i"}\E")/$1 selected/;
-    }
-  }
-  for ($i = 1; $i <= $form->{after_rows}; $i++) {
-    $form->{"selectafter_$i"} = $form->{selectbase};
-    if ($form->{"after_$i"}) {
-      $form->{"selectafter_$i"} =~ s/(<option value="\Q$form->{"after_$i"}\E")/$1 selected/;
-    }
-  }
- 
-
-  $form->header;
-
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=title value="$form->{title}">
-
-<input type=hidden name=selectap value="$form->{selectap}">
-<input type=hidden name=selectexpense value="$form->{selectexpense}">
-<input type=hidden name=selectbase value="|.$form->escape($form->{selectbase},1).qq|">
-
-<input type=hidden name=rate_rows value=$form->{rate_rows}>
-<input type=hidden name=base_rows value=$form->{base_rows}>
-<input type=hidden name=after_rows value=$form->{after_rows}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Description').qq|</th>
-	  <td><input name=description size=35 value="$form->{description}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('AP').qq|</th>
-	  <td><select name=ap_accno>$selectap</select></td>
-	  <th align=right nowrap>|.$locale->text('Employee pays').qq| x</th>
-	  <td><input name=employeepays size=4 value=|.$form->format_amount(\%myconfig, $form->{employeepays}).qq|></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Expense').qq|</th>
-	  <td><select name=expense_accno>$selectexpense</select></td>
-	  <th align=right nowrap>|.$locale->text('Employer pays').qq| x</th>
-	  <td><input name=employerpays size=4 value=|.$form->format_amount(\%myconfig, $form->{employerpays}).qq|></td>
-	</tr>
-	<tr>
-	  <td></td>
-	  <td></td>
-	  <th align=right nowrap>|.$locale->text('Excempt age <').qq|</th>
-	  <td><input name=fromage size=4 value=|.$form->format_amount(\%myconfig, $form->{fromage}).qq|></td>
-	  <th align=right nowrap>|.$locale->text('>').qq|</th>
-	  <td><input name=toage size=4 value=|.$form->format_amount(\%myconfig, $form->{toage}).qq|>
-        </tr>
-	<tr>
-	  <td></td>
-	  <td>
-	    <table>
-	      <tr class=listheading>
-	        <th class=listheading>|.$locale->text('Rate').qq| %</th>
-		<th class=listheading>|.$locale->text('Amount').qq|</th>
-		<th class=listheading>|.$locale->text('Above').qq|</th>
-		<th class=listheading>|.$locale->text('Below').qq|</th>
-	      </tr>
-|;
-
-  for ($i = 1; $i <= $form->{rate_rows}; $i++) {
-    print qq|
-	      <tr>
-		<td><input name="rate_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"rate_$i"}).qq|></td>
-		<td><input name="amount_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"amount_$i"}, 2).qq|></td>
-		<td><input name="above_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"above_$i"}, 2).qq|></td>
-		<td><input name="below_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"below_$i"}, 2).qq|></td>
-	      </tr>
-|;
-  }
-
-  print qq|
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-|;
-  
-  print qq|
-  <tr>
-    <td>
-      <table>
-|;
-
-  $basedon = $locale->text('Based on');
-  $maximum = $locale->text('Maximum');
-  
-  for ($i = 1; $i <= $form->{base_rows}; $i++) {
-    print qq|
-	<tr>
-	  <th>$basedon</th>
-	  <td><select name="base_$i">$form->{"selectbase_$i"}</select></td>
-	  <th>$maximum</th>
-	  <td><input name="maximum_$i" value=|.$form->format_amount(\%myconfig, $form->{"maximum_$i"}, 2).qq|></td>
-	</tr>
-|;
-    $basedon = "";
-    $maximum = "";
-  }
-
-  $deductafter = $locale->text('Deduct after');
-  
-  for ($i = 1; $i <= $form->{after_rows}; $i++) {
-    print qq|
-	<tr>
-	  <th>$deductafter</th>
-	  <td><select name="after_$i">$form->{"selectafter_$i"}</select></td>
-	</tr>
-|;
-    $deductafter = "";
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-
-sub deduction_footer {
-
-  print qq|
-<input name=id type=hidden value=$form->{id}>
-
-<input type=hidden name=db value=$form->{db}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=callback value="$form->{callback}">
-
-<br>
-
-<input class=submit type=submit name=action value="|.$locale->text("Update").qq|">
-<input class=submit type=submit name=action value="|.$locale->text("Save").qq|">
-|;
-
-  if ($form->{id}) {
-    print qq|<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">\n|;
-    
-    if ($form->{status} eq 'orphaned') {
-      print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|;
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
- 
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub update { &{ "update_$form->{db}" }; }
-sub save { &{ "save_$form->{db}" } };
-
-
-sub update_deduction {
-
-  # if rate or amount is blank remove row
-  @flds = qw(rate amount above below);
-  $count = 0;
-  @a = ();
-  for $i (1 .. $form->{rate_rows}) {
-    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } @flds;
-    if ($form->{"rate_$i"} || $form->{"amount_$i"}) {
-      push @a, {};
-      $j = $#a;
-
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
-  $form->redo_rows(\@flds, \@a, $count, $form->{rate_rows});
-  $form->{rate_rows} = $count;
-
-
-  @flds = qw(base maximum);
-  $count = 0;
-  @a = ();
-  for $i (1 .. $form->{"base_rows"}) {
-    $form->{"maximum_$i"} = $form->parse_amount(\%myconfig, $form->{"maximum_$i"});
-    if ($form->{"base_$i"}) {
-      push @a, {};
-      $j = $#a;
-
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
-  $form->redo_rows(\@flds, \@a, $count, $form->{"base_rows"});
-  $form->{"base_rows"} = $count;
-
-
-  @flds = qw(after);
-  $count = 0;
-  @a = ();
-  for $i (1 .. $form->{"after_rows"}) {
-    if ($form->{"after_$i"}) {
-      push @a, {};
-      $j = $#a;
-
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
-  $form->redo_rows(\@flds, \@a, $count, $form->{"after_rows"});
-  $form->{"after_rows"} = $count;
-
-  &deduction_header;
-  &deduction_footer;
-
-}
-
-
-sub update_employee {
-
-  # if rate or amount is blank remove row
-  @flds = qw(before after);
-  $count = 0;
-  @a = ();
-  for $i (1 .. $form->{deduction_rows}) {
-    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } @flds;
-    if ($form->{"deduction_$i"}) {
-      push @a, {};
-      $j = $#a;
-
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
-  $form->redo_rows(\@flds, \@a, $count, $form->{deduction_rows});
-  $form->{deduction_rows} = $count;
-
-  &employee_header;
-  &employee_footer;
-
-}
- 
-
-sub save_as_new {
-
-  $form->{id} = 0;
-  delete $form->{employeelogin};
-
-  &save;
-
-}
-
-
-sub save_deduction {
-
-  $form->isblank("description", $locale->text("Description missing!"));
-
-  unless ($form->{"rate_1"} || $form->{"amount_1"}) {
-    $form->isblank("rate_1", $locale->text("Rate missing!")) unless $form->{"amount_1"};
-    $form->isblank("amount_1", $locale->text("Amount missing!"));
-  }
-  
-  HR->save_deduction(\%myconfig, \%$form);
-  $form->redirect($locale->text('Deduction saved!'));
-  
-}
-
-
-sub delete_deduction {
-
-  HR->delete_deduction(\%myconfig, \%$form);
-  $form->redirect($locale->text('Deduction deleted!'));
-  
-}
-
-
diff --git a/sql-ledger/bin/mozilla/ic.pl b/sql-ledger/bin/mozilla/ic.pl
deleted file mode 100644
index f643c1301..000000000
--- a/sql-ledger/bin/mozilla/ic.pl
+++ /dev/null
@@ -1,2706 +0,0 @@
-#=====================================================================
-# SQL-Ledger, Accounting
-# Copyright (c) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-# Contributors:
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Inventory Control module
-#
-#======================================================================
-
-
-use SL::IC;
-
-require "$form->{path}/io.pl";
-
-1;
-# end of main
-
-
-
-sub add {
-
-  %label = ( part	=> 'Part',
-             service	=> 'Service',
-	     assembly	=> 'Assembly',
-	     labor	=> 'Labor/Overhead' );
-
-# $locale->text('Add Part')
-# $locale->text('Add Service')
-# $locale->text('Add Assembly')
-# $locale->text('Add Labor/Overhead')
-
-  $label = "Add $label{$form->{item}}";
-  $form->{title} = $locale->text($label);
-
-  $form->{callback} = "$form->{script}?action=add&item=$form->{item}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  $form->{orphaned} = 1;
-
-  if ($form->{previousform}) {
-    $form->{callback} = "";
-  }
-
-  &link_part;
-  &display_form;
-  
-}
-
-
-sub search {
-
-  $form->get_partsgroup(\%myconfig, { all => 0, searchitems => $form->{searchitems}});
-
-  IC->get_warehouses(\%myconfig, \%$form) unless $form->{searchitems} =~ /(service|labor)/;
-
-  if (@{ $form->{all_partsgroup} }) {
-    $partsgroup = qq|<option>\n|;
-
-    map { $partsgroup .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} }; 
-
-    $partsgroup = qq| 
-        <th align=right nowrap>|.$locale->text('Group').qq|</th>
-	<td><select name=partsgroup>$partsgroup</select></td>
-|;
-  }
-
-  $l_listprice = qq|
-                <td><input name=l_listprice class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('List Price').qq|</td>
-|;
-  $l_sellprice = qq|
-		<td><input name=l_sellprice class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Sell Price').qq|</td>
-|;
-  $l_lastcost = qq|
-		<td><input name=l_lastcost class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Cost').qq|</td>
-|;
-  $l_linetotal = qq|
-		<td><input name=l_linetotal class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Line Total').qq|</td>
-|;
-  $l_curr = qq|
-		<td><input name=l_curr class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Currency').qq|</td>
-|;
-
-  $accrual = qq|
-		    <tr>
-		      <td colspan=4><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|
-		      &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>
-		    </tr>
-|;
-
-  $serialnumber = qq|
-          <th align=right nowrap>|.$locale->text('Serial Number').qq|</th>
-          <td><input name=serialnumber size=20></td>
-|;
-
-  $l_serialnumber = qq|
-        <td><input name=l_serialnumber class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Serial Number').qq|</td>
-|;
-
-
-  if ($form->{searchitems} =~ /(part|assembly)/) {
-    
-    $onhand = qq|
-            <input name=itemstatus class=radio type=radio value=onhand>&nbsp;|.$locale->text('On Hand').qq|
-            <input name=itemstatus class=radio type=radio value=short>&nbsp;|.$locale->text('Short').qq|
-|;
-
-    $makemodel = qq|
-        <tr>
-          <th align=right nowrap>|.$locale->text('Make').qq|</th>
-          <td><input name=make size=20></td>
-          <th align=right nowrap>|.$locale->text('Model').qq|</th>
-          <td><input name=model size=20></td>
-        </tr>
-|;
-
-    $l_makemodel = qq|
-        <td><input name=l_make class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Make').qq|</td>
-        <td><input name=l_model class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Model').qq|</td>
-|;
-
-    $l_bin = qq|
-		<td><input name=l_bin class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Bin').qq|</td>|;
-
-    $l_rop = qq|
-		<td><input name=l_rop class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('ROP').qq|</td>|;
-
-
-    $l_weight = qq|
-		<td><input name=l_weight class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Weight').qq|</td>|;
-
-
-    if (@{ $form->{all_warehouses} }) {
-      $selectwarehouse = "<option>\n";
-
-      map { $selectwarehouse .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_warehouses} });
-      
-      $warehouse = qq|
-          <th align=right nowrap>|.$locale->text('Warehouse').qq|</th>
-          <td><select name=warehouse>$selectwarehouse</select></td>
-|;
-
-      $l_warehouse = qq|
-        <td><input name=l_warehouse class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Warehouse').qq|</td>
-|;
-
-
-      $drawing = qq|
-        <tr>
-          <th align=right nowrap>|.$locale->text('Drawing').qq|</th>
-          <td><input name=drawing size=20></td>
-          <th align=right nowrap>|.$locale->text('Microfiche').qq|</th>
-          <td><input name=microfiche size=20></td>
-        </tr>
-|;
-
-      $l_drawing = qq|
-	      <tr>
-                <td><input name=l_image class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Image').qq|</td>
-		<td><input name=l_drawing class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Drawing').qq|</td>
-		<td><input name=l_microfiche class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Microfiche').qq|</td>
-	      </tr>
-|;
-
-    }
-  }
-
-  if ($form->{searchitems} eq 'assembly') {
- 
-    $toplevel = qq|
-        <tr>
-	  <td></td>
-          <td colspan=3>
-	  <input name=null class=radio type=radio value=1 checked>&nbsp;|.$locale->text('Top Level').qq|
-	  <input name=bom class=checkbox type=checkbox value=1>&nbsp;|.$locale->text('Individual Items').qq|
-          </td>
-        </tr>
-|;
-    
-    $bought = qq|
-	<tr>
-	  <td></td>
-	  <td colspan=3>
-	    <table>
-	      <tr>
-	        <td>
-		  <table>
-		    <tr>
-		      <td><input name=sold class=checkbox type=checkbox value=1></td>
-		      <td nowrap>|.$locale->text('Sales Invoices').qq|</td>
-		    </tr>
-		    <tr>
-		      <td colspan=2><hr size=1 noshade></td>
-		    </tr>
-		    <tr>
-		      <td><input name=ordered class=checkbox type=checkbox value=1></td>
-		      <td nowrap>|.$locale->text('Sales Orders').qq|</td>
-		    </tr>
-		    <tr>
-		      <td colspan=4><hr size=1 noshade></td>
-		    </tr>
-		    <tr>
-		      <td><input name=quoted class=checkbox type=checkbox value=1></td>
-		      <td nowrap>|.$locale->text('Quotations').qq|</td>
-		    </tr>
-		  </table>
-		</td>
-		<td width=5%>&nbsp;</td>
-		<td>
-		  <table>
-		    $accrual
-		    <tr>
-		      <th>|.$locale->text('From').qq|</th>
-		      <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-		      <th>|.$locale->text('To').qq|</th>
-		      <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
-		    </tr>
-		    <tr>
-		      <td colspan=4><input name=open class=checkbox type=checkbox value=1 checked>&nbsp;|.$locale->text('Open').qq|
-		      <input name=closed class=checkbox type=checkbox>&nbsp;|.$locale->text('Closed').qq|</td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-
-  } elsif ($form->{searchitems} eq 'component') {
-
-    $warehouse = "";
-    $serialnumber = "";
-    $l_serialnumber = "";
-    $l_warehouse = "";
-  
-  } elsif ($form->{searchitems} eq 'labor') {
-
-    $warehouse = "";
-    $serialnumber = "";
-    $l_serialnumber = "";
-    $l_sellprice = qq|
-		<td><input name=l_sellprice class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Amount').qq|</td>
-|;
-    $l_listprice = "";
-    $l_lastcost = "";
-    
-  } else {
-       
-     $bought = qq|
-        <tr>
-          <td></td>
-          <td colspan=3>
-	    <table>
-	      <tr>
-	        <td>
-		  <table>
-		    <tr>
-		      <td><input name=bought class=checkbox type=checkbox value=1></td>
-		      <td nowrap>|.$locale->text('Vendor Invoices').qq|</td>
-		      <td><input name=sold class=checkbox type=checkbox value=1></td>
-		      <td nowrap>|.$locale->text('Sales Invoices').qq|</td>
-		    </tr>
-		    <tr>
-		      <td colspan=4><hr size=1 noshade></td>
-		    </tr>
-		    <tr>
-		      <td><input name=onorder class=checkbox type=checkbox value=1></td>
-		      <td nowrap>|.$locale->text('Purchase Orders').qq|</td>
-		      <td><input name=ordered class=checkbox type=checkbox value=1></td>
-		      <td nowrap>|.$locale->text('Sales Orders').qq|</td>
-		    </tr>
-		    <tr>
-		      <td colspan=4><hr size=1 noshade></td>
-		    </tr>
-		    <tr>
-		      <td><input name=rfq class=checkbox type=checkbox value=1></td>
-		      <td nowrap>|.$locale->text('RFQ').qq|</td>
-		      <td><input name=quoted class=checkbox type=checkbox value=1></td>
-		      <td nowrap>|.$locale->text('Quotations').qq|</td>
-		    </tr>
-		  </table>
-		</td>
-		<td width=5%>&nbsp;</td>
-		<td>
-		  <table>
-		    $accrual
-		    <tr>
-		      <th>|.$locale->text('From').qq|</th>
-		      <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-		      <th>|.$locale->text('To').qq|</th>
-		      <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
-		    </tr>
-		    <tr>
-		      <td colspan=4><input name=open class=checkbox type=checkbox value=1 checked>&nbsp;|.$locale->text('Open').qq|
-		      <input name=closed class=checkbox type=checkbox>&nbsp;|.$locale->text('Closed').qq|</td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-  }
-
-  %title = ( all	=> 'Items',
-             part	=> 'Parts',
-	     labor	=> 'Labor/Overhead',
-	     service	=> 'Services',
-	     assembly	=> 'Assemblies',
-	     component	=> 'Components'
-	   );
-
-# $locale->text('Items')
-# $locale->text('Parts')
-# $locale->text('Labor/Overhead')
-# $locale->text('Services')
-# $locale->text('Assemblies')
-# $locale->text('Components')
-  
-  $form->{title} = $locale->text($title{$form->{searchitems}});
-   
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=searchitems value=$form->{searchitems}>
-<input type=hidden name=title value="$form->{title}">
-
-<table width="100%">
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table>
-        <tr>
-          <th align=right nowrap>|.$locale->text('Number').qq|</th>
-          <td><input name=partnumber size=20></td>
-        </tr>
-        <tr>
-          <th align=right nowrap>|.$locale->text('Description').qq|</th>
-          <td colspan=3><input name=description size=40></td>
-        </tr>
-	<tr>
-	  $warehouse
-	</tr>
-	<tr>
-	  $partsgroup
-	  $serialnumber
-	</tr>
-	$makemodel
-	$drawing
-	$toplevel
-        <tr>
-          <td></td>
-          <td colspan=3>
-            <input name=itemstatus class=radio type=radio value=active checked>&nbsp;|.$locale->text('Active').qq|
-	    $onhand
-            <input name=itemstatus class=radio type=radio value=obsolete>&nbsp;|.$locale->text('Obsolete').qq|
-            <input name=itemstatus class=radio type=radio value=orphaned>&nbsp;|.$locale->text('Orphaned').qq|
-	  </td>
-	</tr>
-	$bought
-        <tr>
-	  <td></td>
-          <td colspan=3>
-	    <hr size=1 noshade>
-	  </td>
-	</tr>
-	<tr>
-          <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-          <td colspan=3>
-            <table>
-              <tr>
-                <td><input name=l_partnumber class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Number').qq|</td>
-		<td><input name=l_description class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Description').qq|</td>
-		$l_serialnumber
-		<td><input name=l_unit class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Unit of measure').qq|</td>
-                <td><input name=l_priceupdate class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Updated').qq|</td>
-		<td><input name=l_partsgroup class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Group').qq|</td>
-	      </tr>
-	      <tr>
-	        $l_listprice
-		$l_sellprice
-		$l_lastcost
-		$l_linetotal
-		$l_curr
-	      </tr>
-	      <tr>
-		$l_bin
-		$l_rop
-		$l_weight
-              </tr>
-	        $l_drawing
-	      <tr>
-		$l_makemodel
-		$l_warehouse
-              </tr>
-	      <tr>
-                <td><input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|</td>
-	      </tr>
-            </table>
-          </td>
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr><td colspan=4><hr size=3 noshade></td></tr>
-</table>
-
-<input type=hidden name=nextsub value=generate_report>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub generate_report {
-
-  # setup $form->{sort}
-  unless ($form->{sort}) {
-    if ($form->{description} && !($form->{partnumber})) {
-      $form->{sort} = "description";
-    } else {
-      $form->{sort} = "partnumber";
-    }
-  }
-
-  $warehouse = $form->escape($form->{warehouse},1);
-  $partsgroup = $form->escape($form->{partsgroup},1);
-  $title = $form->escape($form->{title},1);
-  
-  $callback = "$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&warehouse=$warehouse&partsgroup=$partsgroup&title=$title&method=$form->{method}";
-
-
-  # if we have a serialnumber limit search
-  if ($form->{serialnumber} || $form->{l_serialnumber}) {
-    $form->{l_serialnumber} = "Y";
-    unless ($form->{bought} || $form->{sold} || $form->{onorder} || $form->{ordered}) {
-      if ($form->{searchitems} eq 'assembly') {
-	$form->{sold} = $form->{ordered} = 1;
-      } else {
-	$form->{bought} = $form->{sold} = $form->{onorder} = $form->{ordered} = 1;
-      }
-    }
-  }
-
- 
-  if ($form->{itemstatus} eq 'active') {
-    $option .= $locale->text('Active')." : ";
-  }
-  if ($form->{itemstatus} eq 'obsolete') {
-    $form->{onhand} = $form->{short} = 0;
-    $form->{warehouse} = "";
-    $form->{l_warehouse} = 0;
-
-    $option .= $locale->text('Obsolete')." : ";
-  }
-  if ($form->{itemstatus} eq 'orphaned') {
-    $form->{onhand} = $form->{short} = 0;
-    $form->{bought} = $form->{sold} = 0;
-    $form->{onorder} = $form->{ordered} = 0;
-    $form->{rfq} = $form->{quoted} = 0;
-
-    $form->{warehouse} = "";
-    $form->{l_warehouse} = 0;
-
-    $form->{transdatefrom} = $form->{transdateto} = "";
-    
-    $option .= $locale->text('Orphaned')." : ";
-  }
-  if ($form->{itemstatus} eq 'onhand') {
-    $option .= $locale->text('On Hand')." : ";
-    $form->{l_onhand} = "Y";
-  }
-  if ($form->{itemstatus} eq 'short') {
-    $option .= $locale->text('Short')." : ";
-    $form->{l_onhand} = "Y";
-    $form->{l_rop} = "Y" unless $form->{searchitems} eq 'labor';
-    
-    $form->{warehouse} = "";
-    $form->{l_warehouse} = 0;
-  }
-  if ($form->{onorder}) {
-    $form->{l_ordnumber} = "Y";
-    $callback .= "&onorder=$form->{onorder}";
-    $option .= $locale->text('Purchase Order')." : ";
-  }
-  if ($form->{ordered}) {
-    $form->{l_ordnumber} = "Y";
-    $callback .= "&ordered=$form->{ordered}";
-    $option .= $locale->text('Sales Order')." : ";
-  }
-  if ($form->{rfq}) {
-    $form->{l_quonumber} = "Y";
-    $callback .= "&rfq=$form->{rfq}";
-    $option .= $locale->text('RFQ')." : ";
-  }
-  if ($form->{quoted}) {
-    $form->{l_quonumber} = "Y";
-    $callback .= "&quoted=$form->{quoted}";
-    $option .= $locale->text('Quotation')." : ";
-  }
-  if ($form->{bought}) {
-    $form->{l_invnumber} = "Y";
-    $callback .= "&bought=$form->{bought}";
-    $option .= $locale->text('Vendor Invoice')." : ";
-  }
-  if ($form->{sold}) {
-    $form->{l_invnumber} = "Y";
-    $callback .= "&sold=$form->{sold}";
-    $option .= $locale->text('Sales Invoice')." : ";
-  }
-  if ($form->{sold} || $form->{bought}) {
-    $label = ucfirst $form->{method};
-    $option .= $locale->text($label) ." : ";
-  }
-
-  if ($form->{bought} || $form->{sold} || $form->{onorder} || $form->{ordered} || $form->{rfq} || $form->{quoted}) {
-    
-    # warehouse stuff is meaningless
-    $form->{warehouse} = "";
-    $form->{l_warehouse} = 0;
-    
-    $form->{l_lastcost} = "";
-    $form->{l_name} = "Y";
-    $form->{l_employee} = "Y";
-
-     
-    if ($form->{open}) {
-      $callback .= "&open=$form->{open}";
-      $option .= $locale->text('Open');
-    }
-    if ($form->{closed}) {
-      $callback .= "&closed=$form->{closed}";
-      if ($form->{open}) {
-	$option .= " : ".$locale->text('Closed');
-      } else {
-	$option .= $locale->text('Closed');
-      }
-    }
-
-    if ($form->{transdatefrom}) {
-      $callback .= "&transdatefrom=$form->{transdatefrom}";
-      $option .= "\n<br>".$locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
-    }
-    if ($form->{transdateto}) {
-      $callback .= "&transdateto=$form->{transdateto}";
-      $option .= "\n<br>".$locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{transdateto}, 1);
-    }
-  }
-  
-  if ($form->{warehouse}) {
-    ($warehouse) = split /--/, $form->{warehouse};
-    $option .= "<br>".$locale->text('Warehouse')." : $warehouse";
-    $form->{l_warehouse} = 0;
-  }
- 
-  $option .= "<br>";
-  
-  if ($form->{partnumber}) {
-    $callback .= "&partnumber=".$form->escape($form->{partnumber},1);
-    $option .= $locale->text('Number').qq| : $form->{partnumber}<br>|;
-  }
-  if ($form->{partsgroup}) {
-    ($partsgroup) = split /--/, $form->{partsgroup};
-    $option .= $locale->text('Group').qq| : $partsgroup<br>|;
-  }
-  if ($form->{serialnumber}) {
-    $callback .= "&serialnumber=".$form->escape($form->{serialnumber},1);
-    $option .= $locale->text('Serial Number').qq| : $form->{serialnumber}<br>|;
-  }
-  if ($form->{description}) {
-    $callback .= "&description=".$form->escape($form->{description},1);
-    $description = $form->{description};
-    $description =~ s/
/<br>/g;
-    $option .= $locale->text('Description').qq| : $form->{description}<br>|;
-  }
-  if ($form->{make}) {
-    $callback .= "&make=".$form->escape($form->{make},1);
-    $option .= $locale->text('Make').qq| : $form->{make}<br>|;
-  }
-  if ($form->{model}) {
-    $callback .= "&model=".$form->escape($form->{model},1);
-    $option .= $locale->text('Model').qq| : $form->{model}<br>|;
-  }
-  if ($form->{drawing}) {
-    $callback .= "&drawing=".$form->escape($form->{drawing},1);
-    $option .= $locale->text('Drawing').qq| : $form->{drawing}<br>|;
-  }
-  if ($form->{microfiche}) {
-    $callback .= "&microfiche=".$form->escape($form->{microfiche},1);
-    $option .= $locale->text('Microfiche').qq| : $form->{microfiche}<br>|;
-  }
-
-  
-  @columns = $form->sort_columns(qw(partnumber description assemblypartnumber partsgroup make model bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost curr priceupdate weight image drawing microfiche invnumber ordnumber quonumber name employee serialnumber warehouse));
-
-  if ($form->{l_linetotal}) {
-    $form->{l_onhand} = "Y";
-    $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
-    $form->{l_linetotallastcost} = "Y" if $form->{l_lastcost};
-    $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
-  }
-
-  if ($form->{searchitems} eq 'service') {
-    # remove bin, weight and rop from list
-    map { $form->{"l_$_"} = "" } qw(bin weight rop);
-
-    $form->{l_onhand} = "";
-    # qty is irrelevant unless bought or sold
-    if ($form->{bought} || $form->{sold} || $form->{onorder} ||
-        $form->{ordered} || $form->{rfq} || $form->{quoted}) {
-      $form->{l_onhand} = "Y";
-    } else {
-      $form->{l_linetotalsellprice} = "";
-      $form->{l_linetotallastcost} = "";
-    }
-  }
-
-  
-  foreach $item (@columns) {
-    if ($form->{"l_$item"} eq "Y") {
-      push @column_index, $item;
-
-      # add column to callback
-      $callback .= "&l_$item=Y";
-    }
-  }
-
-  if ($form->{l_subtotal} eq 'Y') {
-    $callback .= "&l_subtotal=Y";
-  }
-
-
-  IC->all_parts(\%myconfig, \%$form);
-
-  $callback .= "&direction=$form->{direction}&oldsort=$form->{oldsort}";
-  
-  $href = $callback;
-  
-  $form->sort_order();
-  
-  $callback =~ s/(direction=).*\&{1}/$1$form->{direction}\&/;
-
-
-  if ($form->{searchitems} eq 'assembly' && $form->{l_partnumber}) {
-    # replace partnumber with partnumber_
-    $ndx = 0;
-    foreach $item (@column_index) {
-      $ndx++;
-      last if $item eq 'partnumber';
-    }
-
-    splice @column_index, $ndx, 0, map { "partnumber_$_" } (1 .. $form->{pncol});
-    $colspan = $form->{pncol} + 1;
-  }
-
-  if ($form->{searchitems} eq 'component') {
-    if ($form->{l_partnumber}) {
-      # splice it in after the partnumber
-      $ndx = 0;
-      foreach $item (@column_index) {
-	$ndx++;
-	last if $item eq 'partnumber';
-      }
-      
-      @a = splice @column_index, 0, $ndx;
-      unshift @column_index, "assemblypartnumber";
-      unshift @column_index, @a;
-    }
-  }
-  
-  $column_header{partnumber} = qq|<th nowrap colspan=$colspan><a class=listheading href=$href&sort=partnumber>|.$locale->text('Number').qq|</a></th>|;
-  $column_header{description} = qq|<th nowrap><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
-  $column_header{partsgroup} = qq|<th nowrap><a class=listheading href=$href&sort=partsgroup>|.$locale->text('Group').qq|</a></th>|;
-  $column_header{bin} = qq|<th><a class=listheading href=$href&sort=bin>|.$locale->text('Bin').qq|</a></th>|;
-  $column_header{priceupdate} = qq|<th nowrap><a class=listheading href=$href&sort=priceupdate>|.$locale->text('Updated').qq|</a></th>|;
-  $column_header{onhand} = qq|<th class=listheading nowrap>|.$locale->text('Qty').qq|</th>|;
-  $column_header{unit} = qq|<th class=listheading nowrap>|.$locale->text('Unit').qq|</th>|;
-  $column_header{listprice} = qq|<th class=listheading nowrap>|.$locale->text('List Price').qq|</th>|;
-  $column_header{lastcost} = qq|<th class=listheading nowrap>|.$locale->text('Cost').qq|</th>|;
-  $column_header{rop} = qq|<th class=listheading nowrap>|.$locale->text('ROP').qq|</th>|;
-  $column_header{weight} = qq|<th class=listheading nowrap>|.$locale->text('Weight').qq|</th>|;
-
-  $column_header{make} = qq|<th nowrap><a class=listheading href=$href&sort=make>|.$locale->text('Make').qq|</a></th>|;
-  $column_header{model} = qq|<th nowrap><a class=listheading href=$href&sort=model>|.$locale->text('Model').qq|</a></th>|;
-  
-  $column_header{invnumber} = qq|<th nowrap><a class=listheading href=$href&sort=invnumber>|.$locale->text('Invoice Number').qq|</a></th>|;
-  $column_header{ordnumber} = qq|<th nowrap><a class=listheading href=$href&sort=ordnumber>|.$locale->text('Order Number').qq|</a></th>|;
-  $column_header{quonumber} = qq|<th nowrap><a class=listheading href=$href&sort=quonumber>|.$locale->text('Quotation').qq|</a></th>|;
-  
-  $column_header{name} = qq|<th nowrap><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|;
-  
-  $column_header{employee} = qq|<th nowrap><a class=listheading href=$href&sort=employee>|.$locale->text('Employee').qq|</a></th>|;
-  
-  $column_header{sellprice} = qq|<th class=listheading nowrap>|;
-  $column_header{sellprice} .= ($form->{searchitems} ne 'labor') ? $locale->text('Sell Price') : $locale->text('Amount');
-  $column_header{sellprice} .= qq|</th>|;
-  
-  $column_header{linetotalsellprice} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|;
-  $column_header{linetotallastcost} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|;
-  $column_header{linetotallistprice} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|;
-  
-  $column_header{curr} = qq|<th class=listheading nowrap>|.$locale->text('Curr').qq|</th>|;
-  
-  $column_header{image} = qq|<th class=listheading nowrap>|.$locale->text('Image').qq|</a></th>|;
-  $column_header{drawing} = qq|<th nowrap><a class=listheading href=$href&sort=drawing>|.$locale->text('Drawing').qq|</a></th>|;
-  $column_header{microfiche} = qq|<th nowrap><a class=listheading href=$href&sort=microfiche>|.$locale->text('Microfiche').qq|</a></th>|;
-  
-  $column_header{serialnumber} = qq|<th nowrap><a class=listheading href=$href&sort=serialnumber>|.$locale->text('Serial Number').qq|</a></th>|;
-  
-  $column_header{assemblypartnumber} = qq|<th nowrap><a class=listheading href=$href&sort=assemblypartnumber>|.$locale->text('Assembly').qq|</a></th>|;
-  
-  $column_header{warehouse} = qq|<th nowrap class=listheading>|.$locale->text('Warehouse').qq|</th>|;
-
-  
-  $form->header;
-
-  $i = 1;
-  if ($form->{searchitems} eq 'part') {
-    $button{'Goods & Services--Add Part'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Part').qq|"> |;
-    $button{'Goods & Services--Add Part'}{order} = $i++;
-  }
-  if ($form->{searchitems} eq 'service') {
-    $button{'Goods & Services--Add Service'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Service').qq|"> |;
-    $button{'Goods & Services--Add Service'}{order} = $i++;
-  }
-  if ($form->{searchitems} eq 'assembly') {  
-    $button{'Goods & Services--Add Assembly'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Assembly').qq|"> |;
-    $button{'Goods & Services--Add Assembly'}{order} = $i++;
-  }
-  if ($form->{searchitems} eq 'labor') {  
-    $button{'Goods & Services--Add Labor/Overhead'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Labor/Overhead').qq|"> |;
-    $button{'Goods & Services--Add Labor/Overhead'}{order} = $i++;
-  }
-
-  foreach $item (split /;/, $myconfig{acs}) {
-    delete $button{$item};
-  }
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-
-  <tr><td>$option</td></tr>
-
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-  
-  print qq|
-        </tr>
-  |;
-
-
-  # add order to callback
-  $form->{callback} = $callback .= "&sort=$form->{sort}";
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-
-  if (@{ $form->{parts} }) {
-    $sameitem = $form->{parts}->[0]->{$form->{sort}};
-  }
-
-
-  foreach $ref (@{ $form->{parts} }) {
-  
-    if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
-      if ($sameitem ne $ref->{$form->{sort}}) {
-	&parts_subtotal;
-	$sameitem = $ref->{$form->{sort}};
-      }
-    }
-
-    $ref->{exchangerate} = 1 unless $ref->{exchangerate};
-    $ref->{discount} *= 1;
-    $ref->{sellprice} = $ref->{sellprice} * (1 - $ref->{discount});
-    if ($form->{l_curr}) {
-      if ($ref->{module} ne 'oe') {
-	map { $ref->{$_} = $form->round_amount($ref->{$_} / $ref->{exchangerate}, 2) } qw(sellprice listprice lastcost);
-      }
-    } else {
-      if ($ref->{module} eq 'oe') {
-	map { $ref->{$_} = $form->round_amount($ref->{$_} * $ref->{exchangerate}, 2) } qw(sellprice listprice lastcost);
-      }
-    }
-    
-    # use this for assemblies
-    $onhand = $ref->{onhand};
-    
-    $ref->{description} =~ s/
/<br>/g;
-    
-    map { $column_data{"partnumber_$_"} = "<td>&nbsp;</td>" } (1 .. $form->{pncol});
-
-    $column_data{partnumber} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber}&nbsp;</a></td>";
-    
-    $column_data{assemblypartnumber} = "<td><a href=$form->{script}?action=edit&id=$ref->{assembly_id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{assemblypartnumber}&nbsp;</a></td>";
-    
-    if ($ref->{assemblyitem}) {
-      $onhand = 0 if ($form->{sold});
-      
-      $column_data{partnumber} = "<td>&nbsp;</td>";
-      
-      $column_data{"partnumber_$ref->{stagger}"} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber}&nbsp;</a></td>";
-
-    }
-    
-    map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" } qw(description partsgroup employee curr);
-
-    $column_data{onhand} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand}, '', "&nbsp;")."</td>";
-
-    map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, 2, "&nbsp;") . "</td>" } qw(sellprice listprice lastcost);
-    
-    $column_data{linetotalsellprice} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2, "&nbsp;")."</td>";
-    $column_data{linetotallastcost} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2, "&nbsp;")."</td>";
-    $column_data{linetotallistprice} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2, "&nbsp;")."</td>";
-
-    if ($ref->{assemblyitem} && $ref->{stagger} > 1) {
-      map { $column_data{$_} = "<td>&nbsp;</td>" } qw(linetotalsellprice linetotallastcost linetotallistprice);
-    }
-    
-    if (!$ref->{assemblyitem}) {
-      $totalsellprice += $onhand * $ref->{sellprice};
-      $totallastcost += $onhand * $ref->{lastcost};
-      $totallistprice += $onhand * $ref->{listprice};
-
-      $subtotalonhand += $onhand;
-      $subtotalsellprice += $onhand * $ref->{sellprice};
-      $subtotallastcost += $onhand * $ref->{lastcost};
-      $subtotallistprice += $onhand * $ref->{listprice};
-    }
-
-    $column_data{rop} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;")."</td>";
-    $column_data{weight} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{weight}, '', "&nbsp;")."</td>";
-    $column_data{unit} = "<td>$ref->{unit}&nbsp;</td>";
-    $column_data{bin} = "<td>$ref->{bin}&nbsp;</td>";
-    $column_data{priceupdate} = "<td>$ref->{priceupdate}&nbsp;</td>";
-    
-    $ref->{module} = 'ps' if $ref->{till};
-    $column_data{invnumber} = ($ref->{module} ne 'oe') ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{invnumber}&nbsp;</a></td>" : "<td>$ref->{invnumber}&nbsp;</td>";
-    $column_data{ordnumber} = ($ref->{module} eq 'oe') ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{ordnumber}&nbsp;</a></td>" : "<td>$ref->{ordnumber}&nbsp;</td>";
-    $column_data{quonumber} = ($ref->{module} eq 'oe' && !$ref->{ordnumber}) ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{quonumber}&nbsp;</a></td>" : "<td>$ref->{quonumber}&nbsp;</td>";
-
-    $column_data{name} = "<td>$ref->{name}&nbsp;</td>";
-   
-    $column_data{image} = ($ref->{image}) ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>" : "<td>&nbsp;</td>";
-    $column_data{drawing} = ($ref->{drawing}) ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>" : "<td>&nbsp;</td>";
-    $column_data{microfiche} = ($ref->{microfiche}) ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>" : "<td>&nbsp;</td>";
-    
-    $column_data{make} = "<td>$ref->{make}&nbsp;</td>";
-    $column_data{model} = "<td>$ref->{model}&nbsp;</td>";
-    
-    $column_data{serialnumber} = "<td>$ref->{serialnumber}&nbsp;</td>";
-    $column_data{warehouse} = "<td>$ref->{warehouse}&nbsp;</td>";
-    
-    $i++; $i %= 2;
-    print "<tr class=listrow$i>";
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-    </tr>
-|;
-
-  }
-  
-  
-  if ($form->{l_subtotal} eq 'Y') {
-    &parts_subtotal;
-  }
-
-  if ($form->{"l_linetotal"}) {
-    map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-    $column_data{linetotalsellprice} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalsellprice, 2, "&nbsp;")."</th>";
-    $column_data{linetotallastcost} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totallastcost, 2, "&nbsp;")."</th>";
-    $column_data{linetotallistprice} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totallistprice, 2, "&nbsp;")."</th>";
-
-    print "<tr class=listtotal>";
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|</tr>
-    |;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr><td><hr size=3 noshade></td></tr>
-</table>
-
-|;
- 
-  print qq|
-
-<br>
-
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=item value=$form->{searchitems}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub parts_subtotal {
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  $subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
-
-  $column_data{onhand} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalonhand, '', "&nbsp;")."</th>";
-
-  $column_data{linetotalsellprice} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalsellprice, 2, "&nbsp;")."</th>";
-  $column_data{linetotallistprice} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotallistprice, 2, "&nbsp;")."</th>";
-  $column_data{linetotallastcost} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotallastcost, 2, "&nbsp;")."</th>";
-  
-  $subtotalonhand = 0;
-  $subtotalsellprice = 0;
-  $subtotallistprice = 0;
-  $subtotallastcost = 0;
-
-  print "<tr class=listsubtotal>";
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-  </tr>
-|;
-
-}
-
-
-
-sub edit {
-  
- %label = ( part	=> 'Part',
-            service	=> 'Service',
-            assembly	=> 'Assembly',
-	    labor	=> 'Labor/Overhead' );
-
-# $locale->text('Edit Part')
-# $locale->text('Edit Service')
-# $locale->text('Edit Assembly')
-# $locale->text('Edit Labor/Overhead')
-
-  IC->get_part(\%myconfig, \%$form);
-
-  $label = "Edit $label{$form->{item}}";
-  $form->{title} = $locale->text($label);
-
-  &link_part;
-
-  $form->{previousform} = $form->escape($form->{previousform}, 1) if $form->{previousform};
-  
-  &display_form;
-
-}
-
-
-
-sub link_part {
-
-  IC->create_links("IC", \%myconfig, \%$form);
-  
-  # currencies 
-  map { $form->{selectcurrency} .= "<option>$_\n" } split /:/, $form->{currencies};
-  
-  # parts and assemblies have the same links
-  $item = $form->{item};
-  
-  # readonly
-  if ($form->{item} eq 'part') {
-    $form->{readonly} = 1 if $myconfig{acs} =~ /Goods \& Services--Add Part/;
-  }
-  if ($form->{item} eq 'service') {
-    $form->{readonly} = 1 if $myconfig{acs} =~ /Goods \& Services--Add Service/;
-  }
-  if ($form->{item} eq 'assembly') {
-    $item = 'part';
-    $form->{readonly} = 1 if $myconfig{acs} =~ /Goods \& Services--Add Assembly/;
-  }
-  if ($form->{item} eq 'labor') {
-    $item = 'labor';
-    $form->{readonly} = 1 if $myconfig{acs} =~ /Goods \& Services--Add Labor\/Overhead/;
-  }
-
-  # build the popup menus
-  $form->{taxaccounts} = "";
-  foreach $key (keys %{ $form->{IC_links} }) {
-    foreach $ref (@{ $form->{IC_links}{$key} }) {
-      # if this is a tax field
-      if ($key =~ /IC_tax/) {
-	if ($key =~ /$item/) {
-	  $form->{taxaccounts} .= "$ref->{accno} ";
-	  $form->{"IC_tax_$ref->{accno}_description"} = "$ref->{accno}--$ref->{description}";
-	  
-	  if ($form->{id}) {
-	    if ($form->{amount}{$ref->{accno}}) {
-	      $form->{"IC_tax_$ref->{accno}"} = "checked";
-	    }
-	  } else {
-	    $form->{"IC_tax_$ref->{accno}"} = "checked";
-	  }
-	}
-      } else {
-
-	$form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";
-	if ($form->{amount}{$key} eq $ref->{accno}) {
-	  $form->{$key} = "$ref->{accno}--$ref->{description}";
-	}
-	
-      }
-    }
-  }
-  chop $form->{taxaccounts};
-
-  if ($form->{item} !~ /service/) {
-    $form->{selectIC_income} = $form->{selectIC_sale};
-    $form->{selectIC_expense} = $form->{selectIC_cogs};
-    $form->{IC_income} = $form->{IC_sale};
-    $form->{IC_expense} = $form->{IC_cogs};
-  }
-  
-  delete $form->{IC_links};
-  delete $form->{amount};
-
-  $form->get_partsgroup(\%myconfig, {all => 1});
-  $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
-  
-  if (@{ $form->{all_partsgroup} }) {
-    $form->{selectpartsgroup} = qq|<option>\n|;
-
-    map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
-  }
-
-  if ($form->{item} eq 'assembly') {
-
-    foreach $i (1 .. $form->{assembly_rows}) {
-      if ($form->{"partsgroup_id_$i"}) {
-	$form->{"partsgroup_$i"} = qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
-      }
-    }
-    
-    $form->get_partsgroup(\%myconfig);
-
-    if (@{ $form->{all_partsgroup} }) {
-      $form->{selectassemblypartsgroup} = qq|<option>\n|;
-
-      map { $form->{selectassemblypartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
-    }
-  }
-  
-  # setup make and models
-  $i = 1;
-  foreach $ref (@{ $form->{makemodels} }) {
-    map { $form->{"${_}_$i"} = $ref->{$_} } qw(make model);
-    $i++;
-  }
-  $form->{makemodel_rows} = $i - 1;
-
-  
-  # setup vendors
-  if (@{ $form->{all_vendor} }) {
-    $form->{selectvendor} = "<option>\n";
-    map { $form->{selectvendor} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_vendor} };
-  }
-
-  # vendor matrix
-  $i = 1;
-  foreach $ref (@{ $form->{vendormatrix} }) {
-    $form->{"vendor_$i"} = qq|$ref->{name}--$ref->{id}|;
-
-    map { $form->{"${_}_$i"} = $ref->{$_} } qw(partnumber lastcost leadtime vendorcurr);
-    $i++;
-  }
-  $form->{vendor_rows} = $i - 1;
-  
-  # setup customers and groups
-  if (@{ $form->{all_customer} }) {
-    $form->{selectcustomer} = "<option>\n";
-    map { $form->{selectcustomer} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_customer} };
-  }
-
-  if (@{ $form->{all_pricegroup} }) {
-    $form->{selectpricegroup} = "<option>\n";
-    map { $form->{selectpricegroup} .= qq|<option value="$_->{pricegroup}--$_->{id}">$_->{pricegroup}\n| } @{ $form->{all_pricegroup} };
-  }
-
-  $i = 1;
-  # customer matrix
-  foreach $ref (@{ $form->{customermatrix} }) {
-
-    $form->{"customer_$i"} = "$ref->{name}--$ref->{cid}" if $ref->{cid};
-    $form->{"pricegroup_$i"} = "$ref->{pricegroup}--$ref->{gid}" if $ref->{gid};
-
-    map { $form->{"${_}_$i"} = $ref->{$_} } qw(validfrom validto pricebreak customerprice customercurr);
-
-    $i++;
-    
-  }
-  $form->{customer_rows} = $i - 1;
-
-}
-
-
-
-sub form_header {
-
-  ($dec) = ($form->{sellprice} =~ /\.(\d+)/);
-  $dec = length $dec;
-  my $decimalplaces = ($dec > 2) ? $dec : 2;
-
-  if ($form->{lastcost} > 0) {
-    $markup = $form->round_amount((($form->{sellprice}/$form->{lastcost} - 1) * 100), 1);
-    $form->{markup} = $form->format_amount(\%myconfig, $markup, 1);
-  }
-  
-  map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, $decimalplaces)} qw(listprice sellprice);
-  
-  ($dec) = ($form->{lastcost} =~ /\.(\d+)/);
-  $dec = length $dec;
-  my $decimalplaces = ($dec > 2) ? $dec : 2;
-
-  $form->{lastcost} = $form->format_amount(\%myconfig, $form->{lastcost}, $decimalplaces);
-
-  map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}) } qw(weight rop stock);
-  
-  map { $form->{$_} = $form->quote($form->{$_}) } qw(partnumber description unit notes);
-
-  if (($rows = $form->numtextrows($form->{notes}, 40)) < 2) {
-    $rows = 2;
-  }
-  
-  $notes = qq|<textarea name=notes rows=$rows cols=40 wrap=soft>$form->{notes}</textarea>|;
-
-  if (($rows = $form->numtextrows($form->{description}, 40)) > 1) {
-    $description = qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description}</textarea>|;
-  } else {
-    $description = qq|<input name=description size=40 value="$form->{description}">|;
-  }
-  
-  foreach $item (split / /, $form->{taxaccounts}) {
-    $form->{"IC_tax_$item"} = ($form->{"IC_tax_$item"}) ? "checked" : "";
-  }
-
-
-  # set option
-  foreach $item (qw(IC IC_income IC_expense)) {
-    if ($form->{$item}) {
-      if ($form->{orphaned}) {
-	$form->{"select$item"} =~ s/ selected//;
-	$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
-      } else {
-	$form->{"select$item"} = qq|<option selected>$form->{$item}|;
-      }
-    }
-  }
-
-  if ($form->{selectpartsgroup}) {
-    $form->{selectpartsgroup} = $form->unescape($form->{selectpartsgroup});
-
-    $partsgroup = qq|<input type=hidden name=selectpartsgroup value="|.$form->escape($form->{selectpartsgroup},1).qq|">|;
-    
-    $form->{selectpartsgroup} =~ s/(<option value="\Q$form->{partsgroup}\E")/$1 selected/;
-
-    $partsgroup .= qq|<select name=partsgroup>$form->{selectpartsgroup}</select>|;
-    $group = $locale->text('Group');
-  }
-
-  # tax fields
-  foreach $item (split / /, $form->{taxaccounts}) {
-    $tax .= qq|
-      <input class=checkbox type=checkbox name="IC_tax_$item" value=1 $form->{"IC_tax_$item"}>&nbsp;<b>$form->{"IC_tax_${item}_description"}</b>
-      <br><input type=hidden name=IC_tax_${item}_description value="$form->{"IC_tax_${item}_description"}">
-|;
-  }
-
-  $form->{obsolete} = "checked" if $form->{obsolete};
-  
-  $sellprice = qq|
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('List Price').qq|</th>
-		<td><input name=listprice size=11 value=$form->{listprice}></td>
-	      </tr>
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('Sell Price').qq|</th>
-		<td><input name=sellprice size=11 value=$form->{sellprice}></td>
-	      </tr>
-|;
-
-  $lastcost = qq|
- 	      <tr>
-                <th align="right" nowrap="true">|.$locale->text('Cost').qq|</th>
-                <td><input name=lastcost size=11 value=$form->{lastcost}></td>
-              </tr>
-	      <tr>
-	        <th align="right" nowrap="true">|.$locale->text('Markup').qq| %</th>
-		<td><input name=markup size=5 value=$form->{markup}></td>
-		<input type=hidden name=oldmarkup value=$markup>
-	      </tr>
-|;
- 
-  if ($form->{item} eq "part") {
-
-    $linkaccounts = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Inventory').qq|</th>
-		<td><select name=IC>$form->{selectIC}</select></td>
-		<input name=selectIC type=hidden value="$form->{selectIC}">
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Income').qq|</th>
-		<td><select name=IC_income>$form->{selectIC_income}</select></td>
-		<input name=selectIC_income type=hidden value="$form->{selectIC_income}">
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('COGS').qq|</th>
-		<td><select name=IC_expense>$form->{selectIC_expense}</select></td>
-		<input name=selectIC_expense type=hidden value="$form->{selectIC_expense}">
-	      </tr>
-|;
-  
-    if ($tax) {
-      $linkaccounts .= qq|
-	      <tr>
-		<th align=right>|.$locale->text('Tax').qq|</th>
-		<td>$tax</td>
-	      </tr>
-|;
-    }
-  
-    $weight = qq|
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('Weight').qq|</th>
-		<td>
-		  <table>
-		    <tr>
-		      <td>
-			<input name=weight size=10 value=$form->{weight}>
-		      </td>
-		      <th>
-			&nbsp;
-			$form->{weightunit}
-			<input type=hidden name=weightunit value=$form->{weightunit}>
-		      </th>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-|;
-    
-  }
-
-
-  if ($form->{item} eq "assembly") {
-    
-    $lastcost = qq|
-              <tr>
-	        <th align="right" nowrap="true">|.$locale->text('Cost').qq|</th> 
-		<td><input type=hidden name=lastcost value=$form->{lastcost}>$form->{lastcost}</td>
-	      </tr>
-	      <tr>
-	        <th align="right" nowrap="true">|.$locale->text('Markup').qq| %</th>
-		<td><input name=markup size=5 value=$form->{markup}></td>
-		<input type=hidden name=oldmarkup value=$markup>
-	      </tr>
-|;
-
-    $linkaccounts = qq|
-<!--
-	      <tr>
-		<th align=right>|.$locale->text('Inventory').qq|</th>
-		<td><select name=IC>$form->{selectIC}</select></td>
-		<input name=selectIC type=hidden value="$form->{selectIC}">
-	      </tr>
--->
-	      <tr>
-		<th align=right>|.$locale->text('Income').qq|</th>
-		<td><select name=IC_income>$form->{selectIC_income}</select></td>
-		<input name=selectIC_income type=hidden value="$form->{selectIC_income}">
-	      </tr>
-|;
-  
-    if ($tax) {
-      $linkaccounts .= qq|
-	      <tr>
-		<th align=right>|.$locale->text('Tax').qq|</th>
-		<td>$tax</td>
-	      </tr>
-|;
-    }
-  
-    $weight = qq|
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('Weight').qq|</th>
-		<td>
-		  <table>
-		    <tr>
-		      <td>
-			&nbsp;$form->{weight}
-			<input type=hidden name=weight value=$form->{weight}>
-		      </td>
-		      <th>
-			&nbsp;
-			$form->{weightunit}
-			<input type=hidden name=weightunit value=$form->{weightunit}>
-		      </th>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-|;
-    
-  }
-
- 
-  if ($form->{item} eq "service") {
-    
-    $linkaccounts = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Income').qq|</th>
-		<td><select name=IC_income>$form->{selectIC_income}</select></td>
-		<input name=selectIC_income type=hidden value="$form->{selectIC_income}">
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Expense').qq|</th>
-		<td><select name=IC_expense>$form->{selectIC_expense}</select></td>
-		<input name=selectIC_expense type=hidden value="$form->{selectIC_expense}">
-	      </tr>
-|;
-  
-    if ($tax) {
-      $linkaccounts .= qq|
-	      <tr>
-		<th align=right>|.$locale->text('Tax').qq|</th>
-		<td>$tax</td>
-	      </tr>
-|;
-    }
-
-  }
-
-  if ($form->{item} eq "labor") {
-    $lastcost = "";
-    $sellprice = qq|
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('Amount').qq|</th>
-		<td><input name=sellprice size=11 value=$form->{sellprice}></td>
-	      </tr>
-|;
-
-    $linkaccounts = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Labor/Overhead').qq|</th>
-		<td><select name=IC>$form->{selectIC}</select></td>
-		<input name=selectIC type=hidden value="$form->{selectIC}">
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Expense').qq|</th>
-		<td><select name=IC_expense>$form->{selectIC_expense}</select></td>
-		<input name=selectIC_expense type=hidden value="$form->{selectIC_expense}">
-	      </tr>
-|;
-  
-  }
-
-
-  if ($form->{item} =~ /(part|assembly)/) {
-    $n = ($form->{onhand} > 0) ? "1" : "0";
-    $rop = qq|
-	      <tr>
-		<th align="right" nowrap>|.$locale->text('On Hand').qq|</th>
-		<th align=left nowrap class="plus$n">&nbsp;|.$form->format_amount(\%myconfig, $form->{onhand}).qq|</th>
-	      </tr>
-|;
-
-    if ($form->{item} eq 'assembly') {
-      $rop .= qq|
-              <tr>
-	        <th align="right" nowrap>|.$locale->text('Stock').qq|</th>
-		<td><input name=stock size=10 value=$form->{stock}></td>
-	      </tr>
-|;
-    }
-
-    $rop .= qq|
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('ROP').qq|</th>
-		<td><input name=rop size=10 value=$form->{rop}></td>
-	      </tr>
-|;
-    
-    $bin = qq|
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('Bin').qq|</th>
-		<td><input name=bin size=10 value=$form->{bin}></td>
-	      </tr>
-|;
-    
-    $imagelinks = qq|
-  <tr>
-    <td>
-      <table width=100%>
-        <tr>
-	  <th align=right nowrap>|.$locale->text('Image').qq|</th>
-	  <td><input name=image size=40 value="$form->{image}"></td>
-	  <th align=right nowrap>|.$locale->text('Microfiche').qq|</th>
-	  <td><input name=microfiche size=20 value="$form->{microfiche}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Drawing').qq|</th>
-	  <td><input name=drawing size=40 value="$form->{drawing}"></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-|;
-
-  }
-
-  if ($form->{id}) {
-    $obsolete = qq|
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('Obsolete').qq|</th>
-		<td><input name=obsolete type=checkbox class=checkbox value=1 $form->{obsolete}></td>
-	      </tr>
-|;
-  }
-
-
-# type=submit $locale->text('Edit Part')
-# type=submit $locale->text('Edit Service')
-# type=submit $locale->text('Edit Assembly')
-
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action="$form->{script}#end">
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=item value=$form->{item}>
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=makemodel value="$form->{makemodel}">
-<input type=hidden name=alternate value="$form->{alternate}">
-<input type=hidden name=onhand value=$form->{onhand}>
-<input type=hidden name=orphaned value=$form->{orphaned}>
-<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
-<input type=hidden name=rowcount value=$form->{rowcount}>
-<input type=hidden name=baseassembly value=$form->{baseassembly}>
-
-<table width="100%">
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width="100%">
-        <tr valign=top>
-          <th align=left>|.$locale->text('Number').qq|</th>
-          <th align=left>|.$locale->text('Description').qq|</th>
-	  <th align=left>$group</th>
-	</tr>
-	<tr valign=top>
-          <td><input name=partnumber value="$form->{partnumber}" size=20></td>
-          <td>$description</td>
-	  <td>$partsgroup</td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width="100%" height="100%">
-        <tr valign=top>
-          <td width=70%>
-            <table width="100%" height="100%">
-              <tr class="listheading">
-                <th class="listheading" align="center" colspan=2>|.$locale->text('Link Accounts').qq|</th>
-              </tr>
-              $linkaccounts
-              <tr>
-                <th align="left">|.$locale->text('Notes').qq|</th>
-              </tr>
-              <tr>
-                <td colspan=2>
-                  $notes
-                </td>
-              </tr>
-            </table>
-          </td>
-	  <td width="30%">
-	    <table width="100%">
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('Updated').qq|</th>
-		<td><input name=priceupdate size=11 title="$myconfig{dateformat}" value=$form->{priceupdate}></td>    
-	      </tr>
-	      $sellprice
-	      $lastcost
-	      <tr>
-		<th align="right" nowrap="true">|.$locale->text('Unit').qq|</th>
-		<td><input name=unit size=5 value="$form->{unit}"></td>
-	      </tr>
-	      $weight
-	      $rop
-	      $bin
-	      $obsolete
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  $imagelinks
-|;
-}
-
-
-sub form_footer {
-
-  print qq|
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=customer_rows value=$form->{customer_rows}>
-|;
-
-
-  if ($form->{item} =~ /(part|assembly)/) {
-    print qq|
-      <input type=hidden name=makemodel_rows value=$form->{makemodel_rows}>
-|;
-  }
-  
-  if ($form->{item} =~ /(part|service)/) {
-    print qq|
-      <input type=hidden name=vendor_rows value=$form->{vendor_rows}>
-|;
-  }
-
-
-  if (! $form->{readonly}) {
-    print qq|
-      <input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-      <input class=submit type=submit name=action value="|.$locale->text('Save').qq|">|;
-
-    if ($form->{id}) {
-
-      if (!$form->{isassemblyitem}) {
-	print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">|;
-      }
-
-      if ($form->{orphaned}) {
-	print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">|;
-      }
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  &assembly_row(++$form->{assembly_rows}) if $form->{item} eq 'assembly';
-
-  print qq|
-
-  <input type=hidden name=path value=$form->{path}>
-  <input type=hidden name=login value=$form->{login}>
-  <input type=hidden name=sessionid value=$form->{sessionid}>
-  <input type=hidden name=callback value="$form->{callback}">
-  <input type=hidden name=previousform value="$form->{previousform}">
-  <input type=hidden name=isassemblyitem value=$form->{isassemblyitem}>
-
-</form>
-
-<a name="end"></a>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub makemodel_row {
-  my ($numrows) = @_;
-
-  map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(make model);
-
-  print qq|
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th class="listheading">|.$locale->text('Make').qq|</th>
-	  <th class="listheading">|.$locale->text('Model').qq|</th>
-	</tr>
-|;
-
-  for $i (1 .. $numrows) {
-    print qq|
-	<tr>
-	  <td><input name="make_$i" size=30 value="$form->{"make_$i"}"></td>
-	  <td><input name="model_$i" size=30 value="$form->{"model_$i"}"></td>
-	</tr>
-|;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-|;
-
-}
-
-
-sub vendor_row {
-  my ($numrows) = @_;
-
-  $form->{selectvendor} = $form->unescape($form->{selectvendor});
-  print qq|
-  <input type=hidden name=selectvendor value="|.$form->escape($form->{selectvendor},1).qq|">
-  
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th class="listheading">|.$locale->text('Vendor').qq|</th>
-	  <th class="listheading">|.$locale->text('Number').qq|</th>
-	  <th class="listheading">|.$locale->text('Cost').qq|</th>
-	  <th class="listheading">|.$locale->text('Curr').qq|</th>
-	  <th class="listheading">|.$locale->text('Leadtime').qq|</th>
-	</tr>
-|;
-
-  for $i (1 .. $numrows) {
-    
-    $form->{selectcurrency} =~ s/ selected//;
-   
-    if ($i == $numrows) {
-     
-      $vendor = qq|
-          <td><input name="vendor_$i" size=35 value="$form->{"vendor_$i"}"></td>
-|;
- 
-      if ($form->{selectvendor}) {
-	$vendor = qq|
-	  <td width=99%><select name="vendor_$i">$form->{selectvendor}</select></td>
-|;
-      }
-   
-    } else {
-      
-      $form->{selectcurrency} =~ s/option>$form->{"vendorcurr_$i"}/option selected>$form->{"vendorcurr_$i"}/;
- 
-      ($vendor) = split /--/, $form->{"vendor_$i"};
-      $vendor = qq|
-          <td>$vendor
-	  <input type=hidden name="vendor_$i" value="$form->{"vendor_$i"}">
-	  </td>
-|;
-
-    }
-   
-    print qq|
-	<tr>
-	  $vendor
-	  <td><input name="partnumber_$i" size=20 value="$form->{"partnumber_$i"}"></td>
-	  <td><input name="lastcost_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"lastcost_$i"}, 2).qq|></td>
-	  <td><select name="vendorcurr_$i">$form->{selectcurrency}</select></td>
-	  <td nowrap><input name="leadtime_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"leadtime_$i"}).qq|> <b>|.$locale->text('days').qq|</b></td>
-	</tr>
-|;
-      
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-|;
-
-}
-
-
-sub customer_row {
-  my ($numrows) = @_;
-
-  if ($form->{selectpricegroup}) {
-    $pricegroup = qq|
-          <th class="listheading">|.$locale->text('Pricegroup').qq|
-          </th>
-|;
-  }
-
-  $form->{selectcustomer} = $form->unescape($form->{selectcustomer});
-  $form->{selectpricegroup} = $form->unescape($form->{selectpricegroup});
-  
-  print qq|
-  <input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-  <input type=hidden name=selectcustomer value="|.$form->escape($form->{selectcustomer},1).qq|">
-  <input type=hidden name=selectpricegroup value="|.$form->escape($form->{selectpricegroup},1).qq|">
-  
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th class="listheading">|.$locale->text('Customer').qq|</th>
-	  $pricegroup
-	  <th class="listheading">|.$locale->text('Break').qq|</th>
-	  <th class="listheading">|.$locale->text('Sell Price').qq|</th>
-	  <th class="listheading">|.$locale->text('Curr').qq|</th>
-	  <th class="listheading">|.$locale->text('From').qq|</th>
-	  <th class="listheading">|.$locale->text('To').qq|</th>
-	</tr>
-|;
-
-  for $i (1 .. $numrows) {
-    
-    $form->{selectcurrency} =~ s/ selected//;
-    $form->{selectcurrency} =~ s/option>$form->{"customercurr_$i"}/option selected>$form->{"customercurr_$i"}/;
-    
-    if ($i == $numrows) {
-      $customer = qq|
-          <td><input name="customer_$i" size=35 value="$form->{"customer_$i"}"></td>
-	  |;
-  
-      if ($form->{selectcustomer}) {
-	$customer = qq|
-	  <td><select name="customer_$i">$form->{selectcustomer}</select></td>
-|;
-      }
-
-      if ($form->{selectpricegroup}) {
-	$pricegroup = qq|
-	  <td><select name="pricegroup_$i">$form->{selectpricegroup}</select></td>
-|;
-      }
-
-    } else {
-      ($customer) = split /--/, $form->{"customer_$i"};
-      $customer = qq|
-          <td>$customer</td>
-	  <input type=hidden name="customer_$i" value="$form->{"customer_$i"}">
-	  |;
-
-      if ($form->{selectpricegroup}) {
-	($pricegroup) = split /--/, $form->{"pricegroup_$i"};
-	$pricegroup = qq|
-	  <td>$pricegroup</td>
-	  <input type=hidden name="pricegroup_$i" value="$form->{"pricegroup_$i"}">
-|;
-      }
-    }
-    
-    
-    print qq|
-	<tr>
-	  $customer
-	  $pricegroup
-
-	  <td><input name="pricebreak_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"pricebreak_$i"}).qq|></td>
-	  <td><input name="customerprice_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"customerprice_$i"}, 2).qq|></td>
-	  <td><select name="customercurr_$i">$form->{selectcurrency}</select></td>
-	  <td><input name="validfrom_$i" size=11 title="$myconfig{dateformat}" value="$form->{"validfrom_$i"}"></td>
-	  <td><input name="validto_$i" size=11 title="$myconfig{dateformat}" value="$form->{"validto_$i"}"></td>
-	</tr>
-|;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-|;
-
-}
-
-
-
-sub assembly_row {
-  my ($numrows) = @_;
-
-  @column_index = qw(runningnumber qty unit bom adj partnumber description listprice sellprice lastcost);
-  
-  if ($form->{selectassemblypartsgroup}) {
-    $form->{selectassemblypartsgroup} = $form->unescape($form->{selectassemblypartsgroup});
-    @column_index = qw(runningnumber qty unit bom adj partnumber description partsgroup listprice sellprice lastcost);
-  }
-  
-  delete $form->{previousform};
-
-  # change callback
-  $form->{old_callback} = $form->{callback};
-  $callback = $form->{callback};
-  $form->{callback} = "$form->{script}?action=display_form";
-
-  # delete action
-  map { delete $form->{$_} } qw(action header);
-
-  $form->{baseassembly} = 0;
-  $previousform = "";
-  # save form variables in a previousform variable
-  foreach $key (sort keys %$form) {
-    # escape ampersands
-    $form->{$key} =~ s/&/%26/g;
-    $previousform .= qq|$key=$form->{$key}&|;
-  }
-  chop $previousform;
-  $form->{previousform} = $form->escape($previousform, 1);
-
-  $form->{sellprice} = 0;
-  $form->{listprice} = 0;
-  $form->{lastcost} = 0;
-  $form->{weight} = 0;
-
-  $form->{callback} = $callback;
-
-
-  $column_header{runningnumber} = qq|<th nowrap width=5%>|.$locale->text('No.').qq|</th>|;
-  $column_header{qty} = qq|<th align=left nowrap width=10%>|.$locale->text('Qty').qq|</th>|;
-  $column_header{unit} = qq|<th align=left nowrap width=5%>|.$locale->text('Unit').qq|</th>|;
-  $column_header{partnumber} = qq|<th align=left nowrap width=20%>|.$locale->text('Number').qq|</th>|;
-  $column_header{description} = qq|<th nowrap width=50%>|.$locale->text('Description').qq|</th>|;
-  $column_header{sellprice} = qq|<th align=right nowrap>|.$locale->text('Sell').qq|</th>|;
-  $column_header{listprice} = qq|<th align=right nowrap>|.$locale->text('List').qq|</th>|;
-  $column_header{lastcost} = qq|<th align=right nowrap>|.$locale->text('Cost').qq|</th>|;
-  $column_header{bom} = qq|<th>|.$locale->text('BOM').qq|</th>|;
-  $column_header{adj} = qq|<th>|.$locale->text('A').qq|</th>|;
-  $column_header{partsgroup} = qq|<th>|.$locale->text('Group').qq|</th>|;
-  
-  print qq|
-  <p>
-
-  <table width=100%>
-  <tr class=listheading>
-    <th class=listheading>|.$locale->text('Individual Items').qq|</th>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-  
-  print qq|
-        </tr>
-|;
-
-
-  for $i (1 .. $numrows) {
-    $form->{"partnumber_$i"} = $form->quote($form->{"partnumber_$i"});
-
-    $linetotalsellprice = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"}, 2);
-    $form->{sellprice} += $linetotalsellprice;
-    
-    $linetotallistprice = $form->round_amount($form->{"listprice_$i"} * $form->{"qty_$i"}, 2);
-    $form->{listprice} += $linetotallistprice;
-
-    $linetotallastcost = $form->round_amount($form->{"lastcost_$i"} * $form->{"qty_$i"}, 2);
-    $form->{lastcost} += $linetotallastcost;
-
-
-    $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
-
-    $linetotalsellprice = $form->format_amount(\%myconfig, $linetotalsellprice, 2);
-    $linetotallistprice = $form->format_amount(\%myconfig, $linetotallistprice, 2);
-    $linetotallastcost = $form->format_amount(\%myconfig, $linetotallastcost, 2);
-
-    if ($i == $numrows) {
-
-      map { $column_data{$_} = qq|<td></td>| } qw(runningnumber unit bom adj);
-
-      $column_data{qty} = qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
-      $column_data{partnumber} = qq|<td><input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}"></td>|;
-      $column_data{description} = qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}"></td>|;
-      $column_data{partsgroup} = qq|<td><select name="partsgroup_$i">$form->{selectassemblypartsgroup}</select></td>|;
-
-    } else {
-      
-      $column_data{partnumber} = qq|<td><input class=submit type=submit name=action value=" $form->{"partnumber_$i"}"></td>
-      <input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}">|;
-	
-      $column_data{runningnumber} = qq|<td><input name="runningnumber_$i" size=3 value="$i"></td>|;
-      $column_data{qty} = qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
-
-      map { $form->{"${_}_$i"} = ($form->{"${_}_$i"}) ? "checked" : "" } qw(bom adj);
-      $column_data{bom} = qq|<td align=center><input name="bom_$i" type=checkbox class=checkbox value=1 $form->{"bom_$i"}></td>|;
-      $column_data{adj} = qq|<td align=center><input name="adj_$i" type=checkbox class=checkbox value=1 $form->{"adj_$i"}></td>|;
-
-      ($partsgroup) = split /--/, $form->{"partsgroup_$i"};
-      $column_data{partsgroup} = qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$partsgroup</td>|;
-
-      $column_data{unit} = qq|<td><input type=hidden name="unit_$i" value="$form->{"unit_$i"}">$form->{"unit_$i"}</td>|;
-      $column_data{description} = qq|<td><input type=hidden name="description_$i" value="$form->{"description_$i"}">$form->{"description_$i"}</td>|;
-      
-    }
-    
-    $column_data{sellprice} = qq|<td align=right>$linetotalsellprice</td>|;
-    $column_data{listprice} = qq|<td align=right>$linetotallistprice</td>|;
-    $column_data{lastcost} = qq|<td align=right>$linetotallastcost</td>|;
-    
-    print qq|
-        <tr>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-    
-    print qq|
-        </tr>
-  <input type=hidden name="id_$i" value=$form->{"id_$i"}>
-  <input type=hidden name="sellprice_$i" value=$form->{"sellprice_$i"}>
-  <input type=hidden name="listprice_$i" value=$form->{"listprice_$i"}>
-  <input type=hidden name="lastcost_$i" value=$form->{"lastcost_$i"}>
-  <input type=hidden name="weight_$i" value=$form->{"weight_$i"}>
-  <input type=hidden name="assembly_$i" value=$form->{"assembly_$i"}>
-|;
-  }
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-  $column_data{sellprice} = "<th align=right>".$form->format_amount(\%myconfig, $form->{sellprice}, 2)."</th>";
-  $column_data{listprice} = "<th align=right>".$form->format_amount(\%myconfig, $form->{listprice}, 2)."</th>";
-  $column_data{lastcost} = "<th align=right>".$form->format_amount(\%myconfig, $form->{lastcost}, 2)."</th>";
-  
-  print qq|
-        <tr>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-    
-  print qq|
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-  </table>
-  <input type=hidden name=assembly_rows value=$form->{assembly_rows}>
-  <input type=hidden name=nextsub value=edit_assemblyitem>
-  <input type=hidden name=selectassemblypartsgroup value="|.$form->escape($form->{selectassemblypartsgroup},1).qq|">
-|;
- 
-}
-
-
-sub edit_assemblyitem {
-
-  $pn = substr($form->{action}, 1);
-
-  for ($i = 1; $i < $form->{assembly_rows}; $i++) {
-    last if $form->{"partnumber_$i"} eq $pn;
-  }
-
-  $form->error($local->text('unexpected error!')) unless $i;
-  
-  $form->{baseassembly} = ($form->{baseassembly}) ? $form->{baseassembly} : $form->{"assembly_$i"};
-
-  $form->{callback} = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&rowcount=$i&baseassembly=$form->{baseassembly}&isassemblyitem=1&previousform=$form->{previousform}|;
-
-  $form->redirect;
-  
-}
-
-
-sub update {
-
-  if ($form->{item} eq "assembly") {
-
-    $i = $form->{assembly_rows};
-    
-    # if last row is empty check the form otherwise retrieve item
-    if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq "")) {
-      
-      &check_form;
-      
-    } else {
-
-      IC->assembly_item(\%myconfig, \%$form);
-
-      $rows = scalar @{ $form->{item_list} };
-      
-      if ($rows) {
-	$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
-	$form->{"adj_$i"} = 1;
-	
-	if ($rows > 1) {
-	  $form->{makemodel_rows}--;
-	  $form->{customer_rows}--;
-	  &select_item;
-	  exit;
-	} else {
-	  map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description unit);
-	  map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
-
-	  if ($form->{item_list}[0]{partsgroup_id}) {
-	    $form->{"partsgroup_$i"} = qq|$form->{item_list}[0]{partsgroup}--$form->{item_list}[0]{partsgroup_id}|;
-	  }
-	  
-	  $form->{"runningnumber_$i"} = $form->{assembly_rows};
-	  $form->{assembly_rows}++;
-
-	  &check_form;
-
-	}
-
-      } else {
-
-        $form->{rowcount} = $i;
-	$form->{assembly_rows}++;
-	
-	&new_item;
-
-      }
-    }
-
-  } else {
-  
-    &check_form;
-
-  }
-
-}
-
-
-sub check_vendor {
-  
-  @flds = qw(vendor partnumber lastcost leadtime);
-  @a = (); 
-  $count = 0; 
-
-  map { $form->{"${_}_$form->{vendor_rows}"} = $form->parse_amount(\%myconfig, $form->{"${_}_$form->{vendor_rows}"}) } qw(lastcost leadtime);
-  
-  for $i (1 .. $form->{vendor_rows} - 1) {
-    
-    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(lastcost leadtime);
-    
-    if ($form->{"lastcost_$i"} || $form->{"partnumber_$i"}) {
-
-      push @a, {};
-      $j = $#a; 
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-
-    } 
-  }
-  
-  $i = $form->{vendor_rows};
-  
-  if (!$form->{selectvendor}) {
-
-    if ($form->{"vendor_$i"}) {
-      ($form->{vendor}) = split /--/, $form->{"vendor_$i"};
-      if (($j = $form->get_name(\%myconfig, vendor)) > 1) {
-	&select_name(vendor, $i);
-	exit;
-      }
-
-      if ($j == 1) {
-	# we got one name
-	$form->{"vendor_$i"} = qq|$form->{name_list}[0]->{name}--$form->{name_list}[0]->{id}|;
-      } else {
-	# name is not on file
-	$form->error(qq|$form->{"vendor_$i"} : |.$locale->text('Vendor not on file!'));
-      }
-    }
-  }
-
-  if ($form->{"vendor_$i"}) {
-    push @a, {};
-    $j = $#a; 
-    map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-    $count++;
-  }
-
-  $form->redo_rows(\@flds, \@a, $count, $form->{vendor_rows});
-  $form->{vendor_rows} = $count;
-
-}
-
-
-sub check_customer {
-  
-  @flds = qw(customer validfrom validto pricebreak customerprice pricegroup);
-  @a = (); 
-  $count = 0;
-
-  map { $form->{"${_}_$form->{customer_rows}"} = $form->parse_amount(\%myconfig, $form->{"${_}_$form->{customer_rows}"}) } qw(customerprice pricebreak);
-
-  for $i (1 .. $form->{customer_rows} - 1) {
-
-    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(customerprice pricebreak);
-    
-    if ($form->{"customerprice_$i"}) {
-      if ($form->{"pricebreak_$i"} || $form->{"customer_$i"} || $form->{"pricegroup_$i"}) {
-	
-	push @a, {};
-	$j = $#a; 
-	map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-	$count++;
-	
-      }
-    }
-  }
-
-  $i = $form->{customer_rows};
-
-  if (!$form->{selectcustomer}) {
-
-    if ($form->{"customer_$i"}) {
-      ($form->{customer}) = split /--/, $form->{"customer_$i"};
-
-      if (($j = $form->get_name(\%myconfig, customer)) > 1) {
-	&select_name(customer, $i);
-	exit;
-      }
-
-      if ($j == 1) {
-	# we got one name
-	$form->{"customer_$i"} = qq|$form->{name_list}[0]->{name}--$form->{name_list}[0]->{id}|;
-      } else {
-	# name is not on file
-	$form->error(qq|$form->{customer} : |.$locale->text('Customer not on file!'));
-      }
-    }
-  }
-
-  if ($form->{"customer_$i"} || $form->{"pricegroup_$i"} || ($form->{"customerprice_$i"} || $form->{"pricebreak_$i"})) {
-    push @a, {};
-    $j = $#a; 
-    map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-    $count++;
-  }
-
-  $form->redo_rows(\@flds, \@a, $count, $form->{customer_rows});
-  $form->{customer_rows} = $count;
-
-}
-
-
-
-sub select_name {
-  my ($table, $vr) = @_;
-  
-  @column_index = qw(ndx name address);
-
-  $label = ucfirst $table;
-  $column_data{ndx} = qq|<th>&nbsp;</th>|;
-  $column_data{name} = qq|<th class=listheading>|.$locale->text($label).qq|</th>|;
-  $column_data{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</th>|;
-  
-  # list items with radio button on a form
-  $form->header;
-
-  $title = $locale->text('Select from one of the names below');
-
-  print qq|
-<body>
-
-<form method=post action="$form->{script}#end">
-
-<input type=hidden name=vr value=$vr>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$title</th>
-  </tr>
-  <tr space=5></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-  
-  print qq|
-	</tr>
-|;
-
-  my $i = 0;
-  foreach $ref (@{ $form->{name_list} }) {
-    $checked = ($i++) ? "" : "checked";
-
-    $ref->{name} = $form->quote($ref->{name});
-    
-   $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
-   $column_data{name} = qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
-   $column_data{address} = qq|<td>$ref->{address1} $ref->{address2} $ref->{city} $ref->{state} $ref->{zipcode} $ref->{country}</td>|;
-    
-    $j++; $j %= 2;
-    print qq|
-	<tr class=listrow$j>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-	</tr>
-
-<input name="new_id_$i" type=hidden value=$ref->{id}>
-
-|;
-
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input name=lastndx type=hidden value=$i>
-
-|;
-
-  # delete variables
-  map { delete $form->{$_} } qw(action name_list header);
-
-  $form->hide_form();
-  
-  print qq|
-<input type=hidden name=nextsub value=name_selected>
-
-<input type=hidden name=vc value=$table>
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub name_selected {
-
-  # replace the variable with the one checked
-
-  # index for new item
-  $i = $form->{ndx};
-  
-  $form->{"$form->{vc}_$form->{vr}"} = qq|$form->{"new_name_$i"}--$form->{"new_id_$i"}|;
-  $form->{"$form->{vc}_id_$form->{vr}"} = $form->{"new_id_$i"};
-
-  # delete all the new_ variables
-  for $i (1 .. $form->{lastndx}) {
-    map { delete $form->{"new_${_}_$i"} } (id, name);
-  }
-  
-  map { delete $form->{$_} } qw(ndx lastndx nextsub);
-
-  &update;
-
-}
-
-
-sub save {
-
-  if ($form->{obsolete}) {
-    $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!")) if ($form->{onhand});
-  }
-
-# expand dynamic strings
-# $locale->text('Inventory quantity must be zero before you can set this part obsolete!')
-# $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!')
-
-  $olditem = $form->{id};
-
-  # save part
-  $rc = IC->save(\%myconfig, \%$form);
-
-  $parts_id = $form->{id};
-
-  # load previous variables
-  if ($form->{previousform} && !$form->{callback}) {
-    # save the new form variables before splitting previousform
-    map { $newform{$_} = $form->{$_} } keys %$form;
-
-    $previousform = $form->unescape($form->{previousform});
-    $baseassembly = $form->{baseassembly};
-
-    # don't trample on previous variables
-    map { delete $form->{$_} } keys %newform;
-
-    # now take it apart and restore original values
-    foreach $item (split /&/, $previousform) {
-      ($key, $value) = split /=/, $item, 2;
-      $value =~ s/%26/&/g;
-      $form->{$key} = $value;
-    }
-
-
-    if ($form->{item} eq 'assembly') {
-
-      if ($baseassembly) {
-	#redo the assembly
-	$previousform =~ /\&id=(\d+)/;
-	$form->{id} = $1;
-	
-	# restore original callback
-	$form->{callback} = $form->unescape($form->{old_callback});
-
-	&edit;
-	exit;
-      }
-	
-      # undo number formatting
-      map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(weight listprice sellprice lastcost rop);
-
-      $form->{assembly_rows}-- if $olditem;
-      $i = $newform{rowcount};
-      $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
-
-      ($dec) = ($form->{listprice} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $dec1 = ($dec > 2) ? $dec : 2;
- 
-      ($dec) = ($form->{sellprice} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $dec2 = ($dec > 2) ? $dec : 2;
-     
-      ($dec) = ($form->{lastcost} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $dec3 = ($dec > 2) ? $dec : 2;
-
-      $form->{listprice} -= $form->{"listprice_$i"} * $form->{"qty_$i"};
-      $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
-      $form->{lastcost} -= $form->{"lastcost_$i"} * $form->{"qty_$i"};
-      $form->{weight} -= $form->{"weight_$i"} * $form->{"qty_$i"};
-
-      # change/add values for assembly item
-      map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice lastcost inventory_accno income_accno expense_accno);
-
-      $form->{listprice} += $form->{"listprice_$i"} * $form->{"qty_$i"};
-      $form->{listprice} = $form->round_amount($form->{listprice}, $dec1);
-
-      $form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
-      $form->{sellprice} = $form->round_amount($form->{sellprice}, $dec2);
-      
-      $form->{lastcost} += $form->{"lastcost_$i"} * $form->{"qty_$i"};
-      $form->{lastcost} = $form->round_amount($form->{lastcost}, $dec3);
-
-      $form->{weight} += $form->{"weight_$i"} * $form->{"qty_$i"};
-
-      $form->{"adj_$i"} = 1 if !$olditem;
-
-      $form->{customer_rows}--;
-      
-    } else {
-      # set values for last invoice/order item
-      $i = $form->{rowcount};
-      $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
-
-      map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice partsgroup);
-      $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
-
-      if ($form->{exchangerate} != 0) {
-	($dec) = ($newform{sellprice} =~ /\.(\d+)/);
-	$dec = length $dec;
-	$decimalplaces = ($dec > 2) ? $dec : 2;
-	
-	$form->{"sellprice_$i"} = $form->round_amount($form->{"sellprice_$i"} / $form->{exchangerate}, $decimalplaces);
-      }
-      
-      map { $form->{"taxaccounts_$i"} .= "$_ " if ($newform{"IC_tax_$_"}) } split / /, $newform{taxaccounts};
-      chop $form->{"taxaccounts_$i"};
-
-      # credit remaining calculation
-      $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
-      map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
-      map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
-
-      $form->{creditremaining} -= $amount;
-      
-    }
-    
-    $form->{"id_$i"} = $parts_id;
-    delete $form->{action};
-
-    # restore original callback
-    $callback = $form->unescape($form->{callback});
-    $form->{callback} = $form->unescape($form->{old_callback});
-    delete $form->{old_callback};
-
-    $form->{makemodel_rows}--;
-
-    # put callback together
-    foreach $key (keys %$form) {
-      # do single escape for Apache 2.0
-      $value = $form->escape($form->{$key}, 1);
-      $callback .= qq|&$key=$value|;
-    }
-    $form->{callback} = $callback;
-  }
-
-  # redirect
-  $form->redirect;
-
-}
-
-
-sub save_as_new {
-
-  $form->{id} = 0;
-  &save;
-
-}
-
-
-sub delete {
-
-  $rc = IC->delete(\%myconfig, \%$form);
-  
-  # redirect
-  $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
-  $form->error($locale->text('Cannot delete item!'));
-
-}
-
-
-
-sub stock_assembly {
-
-  $form->{title} = $locale->text('Stock Assembly');
-  
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width="100%">
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table>
-        <tr>
-          <th align="right" nowrap="true">|.$locale->text('Number').qq|</th>
-          <td><input name=partnumber size=20></td>
-          <td>&nbsp;</td>
-        </tr>
-        <tr>
-          <th align="right" nowrap="true">|.$locale->text('Description').qq|</th>
-          <td><input name=description size=40></td>
-        </tr>
-        <tr>
-          <td></td>
-	  <td><input name=checkinventory class=checkbox type=checkbox value=1>&nbsp;|.$locale->text('Check Inventory').qq|</td>
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr><td><hr size=3 noshade></td></tr>
-</table>
-
-<input type=hidden name=sort value=partnumber>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=nextsub value=list_assemblies>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-
-sub list_assemblies {
-
-  IC->retrieve_assemblies(\%myconfig, \%$form);
-
-  $callback = "$form->{script}?action=list_assemblies&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&checkinventory=$form->{checkinventory}";
-  
-  $form->sort_order();
-  $href = "$form->{script}?action=list_assemblies&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&checkinventory=$form->{checkinventory}";
-  
-  if ($form->{partnumber}) {
-    $callback .= "&partnumber=".$form->escape($form->{partnumber},1);
-    $href .= "&partnumber=".$form->escape($form->{partnumber});
-    $form->{sort} = "partnumber" unless $form->{sort};
-  }
-  if ($form->{description}) {
-    $callback .= "&description=".$form->escape($form->{description},1);
-    $href .= "&description=".$form->escape($form->{description});
-    $form->{sort} = "description" unless $form->{sort};
-  }
- 
-  $column_header{partnumber} = qq|<th><a class=listheading href=$href&sort=partnumber>|.$locale->text('Number').qq|</th>|;
-  $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</th>|;
-  $column_header{bin} = qq|<th><a class=listheading href=$href&sort=bin>|.$locale->text('Bin').qq|</th>|;
-  $column_header{onhand} = qq|<th class=listheading>|.$locale->text('Qty').qq|</th>|;
-  $column_header{rop} = qq|<th class=listheading>|.$locale->text('ROP').qq|</th>|;
-  $column_header{stock} = qq|<th class=listheading>|.$locale->text('Add').qq|</th>|;
-
-  @column_index = $form->sort_columns(qw(partnumber description bin onhand rop stock));
-  
-  $form->{title} = $locale->text('Stock Assembly');
-
-  
-  $form->header;
-  
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr size=5></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-
-  print qq|
-	</tr>
-|;
-
-  # add sort and escape callback
-  $form->{callback} = $callback .= "&sort=$form->{sort}";
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-
-
-  $i = 1;
-  foreach $ref (@{ $form->{assembly_items} }) {
-
-    map { $ref->{$_} = $form->quote($ref->{$_}) } qw(partnumber description);
-   
-    $column_data{partnumber} = "<td width=20%><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber}&nbsp;</a></td>";
-    
-    $column_data{description} = qq|<td width=50%>$ref->{description}&nbsp;</td>|;
-    $column_data{bin} = qq|<td>$ref->{bin}&nbsp;</td>|;
-    $column_data{onhand} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{onhand}, "", "&nbsp;").qq|</td>|;
-    $column_data{rop} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;").qq|</td>|;
-    $column_data{stock} = qq|<td width=10%><input name="qty_$i" size=10 value=|.$form->format_amount(\%myconfig, $ref->{stock}).qq|></td>
-    <input type=hidden name="stock_$i" value=$ref->{stock}>|;
-
-    $j++; $j %= 2;
-    print qq|<tr class=listrow$j><input name="id_$i" type=hidden value=$ref->{id}>\n|;
-    
-    map { print "\n$column_data{$_}" } @column_index;
-    
-    print qq|
-	</tr>
-|;
-
-    $i++;
-
-  }
-  
-  $i--;
-  print qq|
-      </td>
-    </table>
-  <tr>
-    <td><hr size=3 noshade>
-  </tr>
-</table>
-
-<input name=rowcount type=hidden value="$i">
-<input type=hidden name=checkinventory value=$form->{checkinventory}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=nextsub value=restock_assemblies>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-
-</form>
-
-</body>
-</html>
-|;
- 
-}
-
-
-sub restock_assemblies {
-
-
-  if ($form->{checkinventory}) {
-    map { $form->error($locale->text('Quantity exceeds available units to stock!')) if $form->parse_amount($myconfig, $form->{"qty_$_"}) > $form->{"stock_$_"} }(1 .. $form->{rowcount});
-  }
-
-  $form->redirect($locale->text('Assemblies restocked!')) if (IC->restock_assemblies(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot stock assemblies!'));
-  
-}
-
-
-sub continue { &{ $form->{nextsub} } };
-
-sub add_part { &add };
-sub add_service { &add };
-sub add_assembly { &add };
-sub add_labor_overhead { &add };
-
-
diff --git a/sql-ledger/bin/mozilla/io.pl b/sql-ledger/bin/mozilla/io.pl
deleted file mode 100644
index 22228a9f8..000000000
--- a/sql-ledger/bin/mozilla/io.pl
+++ /dev/null
@@ -1,1637 +0,0 @@
-######################################################################
-# SQL-Ledger, Accounting
-# Copyright (c) 2002
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#######################################################################
-#
-# common routines used in is, ir, oe
-#
-#######################################################################
-
-# any custom scripts for this one
-if (-f "$form->{path}/custom_io.pl") {
-  eval { require "$form->{path}/custom_io.pl"; };
-}
-if (-f "$form->{path}/$form->{login}_io.pl") {
-  eval { require "$form->{path}/$form->{login}_io.pl"; };
-}
-
-
-1;
-# end of main
-
-
-# this is for our long dates
-# $locale->text('January')
-# $locale->text('February')
-# $locale->text('March')
-# $locale->text('April')
-# $locale->text('May ')
-# $locale->text('June')
-# $locale->text('July')
-# $locale->text('August')
-# $locale->text('September')
-# $locale->text('October')
-# $locale->text('November')
-# $locale->text('December')
-
-# this is for our short month
-# $locale->text('Jan')
-# $locale->text('Feb')
-# $locale->text('Mar')
-# $locale->text('Apr')
-# $locale->text('May')
-# $locale->text('Jun')
-# $locale->text('Jul')
-# $locale->text('Aug')
-# $locale->text('Sep')
-# $locale->text('Oct')
-# $locale->text('Nov')
-# $locale->text('Dec')
-
-
-sub display_row {
-  my $numrows = shift;
-
-  @column_index = qw(runningnumber partnumber description qty);
-
-  if ($form->{type} eq "sales_order") {
-    push @column_index, "ship";
-    $column_data{ship} = qq|<th class=listheading align=center width="auto">|.$locale->text('Ship').qq|</th>|;
-  }
-  if ($form->{type} eq "purchase_order") {
-    push @column_index, "ship";
-    $column_data{ship} = qq|<th class=listheading align=center width="auto">|.$locale->text('Recd').qq|</th>|;
-  }
-
-  foreach $item (qw(projectnumber partsgroup)) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"}) if $form->{"select$item"};
-  }
-      
-  if ($form->{language_code} ne $form->{oldlanguage_code}) {
-    # rebuild partsgroup
-    $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} });
-    if (@ { $form->{all_partsgroup} }) {
-      $form->{selectpartsgroup} = "<option>\n";
-      foreach $ref (@ { $form->{all_partsgroup} }) {
-	if ($ref->{translation}) {
-	  $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|;
-	} else {
-	  $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
-	}
-      }
-    }
-    $form->{oldlanguage_code} = $form->{language_code};
-  }
-      
-
-  push @column_index, qw(unit sellprice discount linetotal);
-
-  my $colspan = $#column_index + 1;
-
-  $form->{invsubtotal} = 0;
-  map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts});
-  
-  $column_data{runningnumber} = qq|<th class=listheading nowrap>|.$locale->text('No.').qq|</th>|;
-  $column_data{partnumber} = qq|<th class=listheading nowrap>|.$locale->text('Number').qq|</th>|;
-  $column_data{description} = qq|<th class=listheading nowrap>|.$locale->text('Description').qq|</th>|;
-  $column_data{qty} = qq|<th class=listheading nowrap>|.$locale->text('Qty').qq|</th>|;
-  $column_data{unit} = qq|<th class=listheading nowrap>|.$locale->text('Unit').qq|</th>|;
-  $column_data{sellprice} = qq|<th class=listheading nowrap>|.$locale->text('Price').qq|</th>|;
-  $column_data{discount} = qq|<th class=listheading>%</th>|;
-  $column_data{linetotal} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|;
-  $column_data{bin} = qq|<th class=listheading nowrap>|.$locale->text('Bin').qq|</th>|;
-  
-  print qq|
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-
-  $deliverydate = $locale->text('Delivery Date');
-  $serialnumber = $locale->text('Serial No.');
-  $projectnumber = $locale->text('Project');
-  $group = $locale->text('Group');
-  $sku = $locale->text('SKU');
-
-  $delvar = 'deliverydate';
-  
-  if ($form->{type} =~ /_(order|quotation)$/) {
-    $reqdate = $locale->text('Required by');
-    $delvar = 'reqdate';
-  }
-
-  $exchangerate = $form->parse_amount(\%myconfig, $form->{exchangerate});
-  $exchangerate = ($exchangerate) ? $exchangerate : 1;
-
-  for $i (1 .. $numrows) {
-    # undo formatting
-    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty ship discount sellprice);
-    
-    ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
-    $dec = length $dec;
-    $decimalplaces = ($dec > 2) ? $dec : 2;
-
-    if (($form->{"qty_$i"} != $form->{"oldqty_$i"}) || ($form->{currency} ne $form->{oldcurrency})) {
-      # check for a pricematrix
-      @a = split / /, $form->{"pricematrix_$i"};
-      if ((scalar @a) > 2 || $form->{currency} ne $form->{oldcurrency}) {
-	foreach $item (@a) {
-	  ($q, $p) = split /:/, $item;
-	  if ($p != 0 && $form->{"qty_$i"} > $q) {
-	    $form->{"sellprice_$i"} = $form->round_amount($p / $exchangerate, $decimalplaces);
-	  }
-	}
-      }
-    }
-    
-    $discount = $form->round_amount($form->{"sellprice_$i"} * $form->{"discount_$i"}/100, $decimalplaces);
-    $linetotal = $form->round_amount($form->{"sellprice_$i"} - $discount, $decimalplaces);
-    $linetotal = $form->round_amount($linetotal * $form->{"qty_$i"}, 2);
-
-    map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit);
-    
-    $skunumber = qq|
-                <p><b>$sku</b> $form->{"sku_$i"}| if ($form->{vc} eq 'vendor' && $form->{"sku_$i"});
-
-    
-    if ($form->{selectpartsgroup}) {
-      if ($i < $numrows) {
-	$partsgroup = qq|
-	      <p><b>$group</b>
-	      <input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">|;
-	($form->{"partsgroup_$i"}) = split /--/, $form->{"partsgroup_$i"};
-	$partsgroup .= $form->{"partsgroup_$i"};
-	$partsgroup = "" unless $form->{"partsgroup_$i"};
-      }
-    }
-    
-    $delivery = qq|
-	  <b>${$delvar}</b>
-	  <input name="${delvar}_$i" size=11 title="$myconfig{dateformat}" value="$form->{"${delvar}_$i"}">
-|;
-
-    $column_data{runningnumber} = qq|<td><input name="runningnumber_$i" size=3 value=$i></td>|;
-    $column_data{partnumber} = qq|<td><input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">$skunumber</td>|;
-
-    if (($rows = $form->numtextrows($form->{"description_$i"}, 25, 6)) > 1) {
-      $column_data{description} = qq|<td><textarea name="description_$i" rows=$rows cols=25 wrap=soft>$form->{"description_$i"}</textarea>$partsgroup</td>|;
-    } else {
-      $column_data{description} = qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}">$partsgroup</td>|;
-    }
-
-    $column_data{qty} = qq|<td align=right><input name="qty_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"qty_$i"}).qq|></td>|;
-    $column_data{ship} = qq|<td align=right><input name="ship_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"ship_$i"}).qq|></td>|;
-    $column_data{unit} = qq|<td><input name="unit_$i" size=5 value="$form->{"unit_$i"}"></td>|;
-    $column_data{sellprice} = qq|<td align=right><input name="sellprice_$i" size=9 value=|.$form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces).qq|></td>|;
-    $column_data{discount} = qq|<td align=right><input name="discount_$i" size=3 value=|.$form->format_amount(\%myconfig, $form->{"discount_$i"}).qq|></td>|;
-    $column_data{linetotal} = qq|<td align=right>|.$form->format_amount(\%myconfig, $linetotal, 2).qq|</td>|;
-    $column_data{bin} = qq|<td>$form->{"bin_$i"}</td>|;
-    
-    print qq|
-        <tr valign=top>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-  
-    print qq|
-        </tr>
-
-<input type=hidden name="orderitems_id_$i" value=$form->{"orderitems_id_$i"}>
-
-<input type=hidden name="id_$i" value=$form->{"id_$i"}>
-<input type=hidden name="inventory_accno_$i" value=$form->{"inventory_accno_$i"}>
-<input type=hidden name="bin_$i" value="$form->{"bin_$i"}">
-<input type=hidden name="weight_$i" value="$form->{"weight_$i"}">
-<input type=hidden name="income_accno_$i" value=$form->{"income_accno_$i"}>
-<input type=hidden name="expense_accno_$i" value=$form->{"expense_accno_$i"}>
-<input type=hidden name="listprice_$i" value="$form->{"listprice_$i"}">
-<input type=hidden name="assembly_$i" value="$form->{"assembly_$i"}">
-<input type=hidden name="taxaccounts_$i" value="$form->{"taxaccounts_$i"}">
-<input type=hidden name="pricematrix_$i" value="$form->{"pricematrix_$i"}">
-<input type=hidden name="oldqty_$i" value="$form->{"qty_$i"}">
-<input type=hidden name="sku_$i" value="$form->{"sku_$i"}">
-
-|;
-
-    $form->{selectprojectnumber} =~ s/ selected//;
-    $form->{selectprojectnumber} =~ s/(<option value="\Q$form->{"projectnumber_$i"}\E")/$1 selected/;
-
-    $project = qq|
-                <b>$projectnumber</b>
-		<select name="projectnumber_$i">$form->{selectprojectnumber}</select>
-| if $form->{selectprojectnumber};
-
-    $serial = qq|
-                <b>$serialnumber</b> <input name="serialnumber_$i" size=15 value="$form->{"serialnumber_$i"}">| if $form->{type} !~ /_quotation/;
-		
-    $partsgroup = "";
-    if ($i == $numrows) {
-      if ($form->{selectpartsgroup}) {
-	$partsgroup = qq|
-	        <b>$group</b>
-		<select name="partsgroup_$i">$form->{selectpartsgroup}</select>
-|;
-      }
-
-      $serial = "";
-      $project = "";
-      $delivery = ""
-    }
-
-	
-    # print second row
-    print qq|
-        <tr>
-	  <td colspan=$colspan>
-	  $delivery
-	  $serial
-	  $project
-	  $partsgroup
-	  </td>
-	</tr>
-	<tr>
-	  <td colspan=$colspan><hr size=1 noshade></td>
-	</tr>
-|;
-
-    $skunumber = "";
-    
-    map { $form->{"${_}_base"} += $linetotal } (split / /, $form->{"taxaccounts_$i"});
-  
-    $form->{invsubtotal} += $linetotal;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-|;
-
-  print qq|
-
-<input type=hidden name=oldcurrency value=$form->{currency}>
-<input type=hidden name=audittrail value="$form->{audittrail}">
-
-<input type=hidden name=selectpartsgroup value="|.$form->escape($form->{selectpartsgroup},1).qq|">
-<input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|">
-|;
- 
-}
-
-
-sub select_item {
-
-  if ($form->{vc} eq "vendor") {
-    @column_index = qw(ndx partnumber sku description partsgroup onhand sellprice);
-  } else {
-    @column_index = qw(ndx partnumber description partsgroup onhand sellprice);
-  }
-
-  $column_data{ndx} = qq|<th>&nbsp;</th>|;
-  $column_data{partnumber} = qq|<th class=listheading>|.$locale->text('Number').qq|</th>|;
-  $column_data{sku} = qq|<th class=listheading>|.$locale->text('SKU').qq|</th>|;
-  $column_data{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</th>|;
-  $column_data{partsgroup} = qq|<th class=listheading>|.$locale->text('Group').qq|</th>|;
-  $column_data{sellprice} = qq|<th class=listheading>|.$locale->text('Price').qq|</th>|;
-  $column_data{onhand} = qq|<th class=listheading>|.$locale->text('Qty').qq|</th>|;
-  
-  $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
-
-  # list items with radio button on a form
-  $form->header;
-
-  $title = $locale->text('Select from one of the items below');
-
-  print qq|
-<body>
-
-<form method=post action="$form->{script}#end">
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$title</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-  
-  print qq|
-        </tr>
-|;
-
-  my $i = 0;
-  foreach $ref (@{ $form->{item_list} }) {
-    $checked = ($i++) ? "" : "checked";
-
-    map { $ref->{$_} = $form->quote($ref->{$_}) } qw(sku partnumber description unit);
-
-    $ref->{sellprice} = $form->round_amount($ref->{sellprice} * (1 - $form->{tradediscount}), 2);
-
-    $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
-    $column_data{partnumber} = qq|<td>$ref->{partnumber}</td>|;
-    $column_data{sku} = qq|<td>$ref->{sku}</td>|;
-    $column_data{description} = qq|<td>$ref->{description}</td>|;
-    $column_data{partsgroup} = qq|<td>$ref->{partsgroup}</td>|;
-    $column_data{sellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{sellprice} / $exchangerate, 2, "&nbsp;").qq|</td>|;
-    $column_data{onhand} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{onhand}, '', "&nbsp;").qq|</td>|;
-    
-    $j++; $j %= 2;
-    print qq|
-        <tr class=listrow$j>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-        </tr>
-
-<input name="new_partnumber_$i" type=hidden value="$ref->{partnumber}">
-<input name="new_sku_$i" type=hidden value="$ref->{sku}">
-<input name="new_description_$i" type=hidden value="$ref->{description}">
-<input name="new_partsgroup_$i" type=hidden value="$ref->{partsgroup}">
-<input name="new_partsgroup_id_$i" type=hidden value="$ref->{partsgroup_id}">
-<input name="new_bin_$i" type=hidden value="$ref->{bin}">
-<input name="new_weight_$i" type=hidden value=$ref->{weight}>
-<input name="new_sellprice_$i" type=hidden value=$ref->{sellprice}>
-<input name="new_listprice_$i" type=hidden value=$ref->{listprice}>
-<input name="new_lastcost_$i" type=hidden value=$ref->{lastcost}>
-<input name="new_onhand_$i" type=hidden value=$ref->{onhand}>
-<input name="new_inventory_accno_$i" type=hidden value=$ref->{inventory_accno}>
-<input name="new_income_accno_$i" type=hidden value=$ref->{income_accno}>
-<input name="new_expense_accno_$i" type=hidden value=$ref->{expense_accno}>
-<input name="new_unit_$i" type=hidden value="$ref->{unit}">
-<input name="new_weight_$i" type=hidden value="$ref->{weight}">
-<input name="new_assembly_$i" type=hidden value="$ref->{assembly}">
-<input name="new_taxaccounts_$i" type=hidden value="$ref->{taxaccounts}">
-<input name="new_pricematrix_$i" type=hidden value="$ref->{pricematrix}">
-
-<input name="new_id_$i" type=hidden value=$ref->{id}>
-
-|;
-
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input name=lastndx type=hidden value=$i>
-
-|;
-
-  # delete action variable
-  map { delete $form->{$_} } qw(action item_list header);
-
-  $form->hide_form();
-  
-  print qq|
-<input type=hidden name=nextsub value=item_selected>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub item_selected {
-
-  # replace the last row with the checked row
-  $i = $form->{rowcount};
-  $i = $form->{assembly_rows} if ($form->{item} eq 'assembly');
-
-  # index for new item
-  $j = $form->{ndx};
-
-  # if there was a price entered, override it
-  $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
-  
-  map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} } qw(id partnumber sku description sellprice listprice lastcost inventory_accno income_accno expense_accno bin unit weight assembly taxaccounts pricematrix);
-
-  $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|;
-
-  ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
-  $dec = length $dec;
-  $decimalplaces = ($dec > 2) ? $dec : 2;
-
-  if ($sellprice) {
-    $form->{"sellprice_$i"} = $sellprice;
-  } else {
-    # if there is an exchange rate adjust sellprice
-    if (($form->{exchangerate} * 1) != 0) {
-      $form->{"sellprice_$i"} /= $form->{exchangerate};
-      $form->{"sellprice_$i"} = $form->round_amount($form->{"sellprice_$i"}, $decimalplaces);
-    }
-  }
-
-  if (($form->{exchangerate} * 1) != 0) {
-    map { $form->{"${_}_$i"} /= $form->{exchangerate} } qw(listprice lastcost);
-  }
-  
-  # this is for the assembly
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(sellprice listprice weight);
-
-  $form->{sellprice} += ($form->{"sellprice_$i"} * $form->{"qty_$i"});
-  $form->{weight} += ($form->{"weight_$i"} * $form->{"qty_$i"});
-
-  $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
-  map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
-  map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
-
-  $form->{creditremaining} -= $amount;
-
-  $form->{"runningnumber_$i"} = $i;
-  
-  # delete all the new_ variables
-  for $i (1 .. $form->{lastndx}) {
-    map { delete $form->{"new_${_}_$i"} } qw(partnumber sku description sellprice bin listprice lastcost inventory_accno income_accno expense_accno unit assembly taxaccounts id pricematrix weight);
-  }
-  
-  map { delete $form->{$_} } qw(ndx lastndx nextsub);
-
-  # format amounts
-  map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost) if $form->{item} ne 'assembly';
-
-  &display_form;
-
-}
-
-
-sub new_item {
-
-  if ($form->{language_code} && $form->{"description_$form->{rowcount}"}) {
-    $form->error($locale->text('Translation not on file!'));
-  }
-  
-  # change callback
-  $form->{old_callback} = $form->escape($form->{callback},1);
-  $form->{callback} = $form->escape("$form->{script}?action=display_form",1);
-
-  # delete action
-  delete $form->{action};
-
-  # save all other form variables in a previousform variable
-  if (!$form->{previousform}) {
-    foreach $key (keys %$form) {
-      # escape ampersands
-      $form->{$key} =~ s/&/%26/g;
-      $form->{previousform} .= qq|$key=$form->{$key}&|;
-    }
-    chop $form->{previousform};
-    $form->{previousform} = $form->escape($form->{previousform}, 1);
-  }
-
-  $i = $form->{rowcount};
-  map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber description);
-
-  $form->header;
-
-  print qq|
-<body>
-
-<h4 class=error>|.$locale->text('Item not on file!').qq|</h4>|;
-
-  if ($myconfig{acs} !~ /(Goods \& Services--Add Part|Goods \& Services--Add Service)/) {
-
-    print qq|
-<h4>|.$locale->text('What type of item is this?').qq|</h4>
-
-<form method=post action=ic.pl>
-
-<p>
-
-  <input class=radio type=radio name=item value=part checked>&nbsp;|.$locale->text('Part')
-.qq|<br>
-  <input class=radio type=radio name=item value=service>&nbsp;|.$locale->text('Service')
-
-.qq|
-<input type=hidden name=previousform value="$form->{previousform}">
-<input type=hidden name=partnumber value="$form->{"partnumber_$i"}">
-<input type=hidden name=description value="$form->{"description_$i"}">
-<input type=hidden name=rowcount value=$form->{rowcount}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=nextsub value=add>
-
-<p>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-|;
-  }
-
-  print qq|
-</body>
-</html>
-|;
-
-}
-
-
-
-sub display_form {
-
-  # if we have a display_form
-  if ($form->{display_form}) {
-    &{ "$form->{display_form}" };
-    exit;
-  }
-  
-  &form_header;
-
-  $numrows = ++$form->{rowcount};
-  $subroutine = "display_row";
-
-  if ($form->{item} eq 'part') {
-    # create makemodel rows
-    &makemodel_row(++$form->{makemodel_rows});
-
-    &vendor_row(++$form->{vendor_rows});
-    
-    $numrows = ++$form->{customer_rows};
-    $subroutine = "customer_row";
-  }
-  if ($form->{item} eq 'assembly') {
-    # create makemodel rows
-    &makemodel_row(++$form->{makemodel_rows});
-    
-    $numrows = ++$form->{customer_rows};
-    $subroutine = "customer_row";
-  }
-  if ($form->{item} eq 'service') {
-    &vendor_row(++$form->{vendor_rows});
-    
-    $numrows = ++$form->{customer_rows};
-    $subroutine = "customer_row";
-  }
-  if ($form->{item} eq 'labor') {
-    $numrows = 0;
-  }
-
-  # create rows
-  &{ $subroutine }($numrows) if $numrows;
-
-  &form_footer;
-
-}
-
-
-
-sub check_form {
-  
-  my @a = ();
-  my $count = 0;
-  my $i;
-  my $j;
-  my @flds = qw(id partnumber sku description qty ship sellprice unit discount inventory_accno income_accno expense_accno listprice taxaccounts bin assembly weight projectnumber runningnumber serialnumber partsgroup reqdate pricematrix);
-
-  # remove any makes or model rows
-  if ($form->{item} eq 'part') {
-    map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(listprice sellprice lastcost weight rop markup);
-    
-    &calc_markup;
-    
-    @flds = qw(make model);
-    $count = 0;
-    @a = ();
-    for $i (1 .. $form->{makemodel_rows}) {
-      if (($form->{"make_$i"} ne "") || ($form->{"model_$i"} ne "")) {
-	push @a, {};
-	$j = $#a;
-
-	map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-	$count++;
-      }
-    }
-
-    $form->redo_rows(\@flds, \@a, $count, $form->{makemodel_rows});
-    $form->{makemodel_rows} = $count;
-
-    &check_vendor;
-    &check_customer;
-    
-  } elsif ($form->{item} eq 'service') {
-    
-    map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(sellprice listprice lastcost markup);
-    
-    &calc_markup;
-    &check_vendor;
-    &check_customer;
-    
-  } elsif ($form->{item} eq 'assembly') {
-
-    $form->{sellprice} = 0;
-    $form->{weight} = 0;
-    $form->{lastcost} = 0;
-    $form->{listprice} = 0;
-    
-    map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(rop stock markup);
-
-   
-    @flds = qw(id qty unit bom adj partnumber description sellprice listprice weight runningnumber partsgroup);
-    $count = 0;
-    @a = ();
-    
-    for my $i (1 .. ($form->{assembly_rows} - 1)) {
-      if ($form->{"qty_$i"}) {
-	push @a, {};
-	my $j = $#a;
-
-        $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
-
-	map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-
-        map { $form->{$_} += ($form->{"${_}_$i"} * $form->{"qty_$i"}) } qw(sellprice listprice weight lastcost);
-	
-	$count++;
-      }
-    }
-
-    if ($form->{markup} && $form->{markup} != $form->{oldmarkup}) {
-      $form->{sellprice} = 0;
-      &calc_markup;
-    }
- 
-    map { $form->{$_} = $form->round_amount($form->{$_}, 2) } qw(sellprice lastcost listprice);
-    
-    $form->redo_rows(\@flds, \@a, $count, $form->{assembly_rows});
-    $form->{assembly_rows} = $count;
-    
-    $count = 0;
-    @flds = qw(make model);
-    @a = ();
-    
-    for my $i (1 .. ($form->{makemodel_rows})) {
-      if (($form->{"make_$i"} ne "") || ($form->{"model_$i"} ne "")) {
-	push @a, {};
-	my $j = $#a;
-
-	map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-	$count++;
-      }
-    }
-
-    $form->redo_rows(\@flds, \@a, $count, $form->{makemodel_rows});
-    $form->{makemodel_rows} = $count;
-
-    &check_customer;
-  
-  } else {
-
-    # this section applies to invoices and orders
-    # remove any empty numbers
-    
-    $count = 0;
-    @a = ();
-    if ($form->{rowcount}) {
-      for my $i (1 .. $form->{rowcount} - 1) {
-	if ($form->{"partnumber_$i"}) {
-	  push @a, {};
-	  my $j = $#a;
-
-	  map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-	  $count++;
-	}
-      }
-      
-      $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
-      $form->{rowcount} = $count;
-
-      $form->{creditremaining} -= &invoicetotal;
-      
-    }
-  }
-
-  &display_form;
-
-}
-
-
-sub calc_markup {
-
-  if ($form->{markup}) {
-    if ($form->{markup} != $form->{oldmarkup}) {
-      if ($form->{lastcost}) {
-	$form->{sellprice} = $form->{lastcost} * (1 + $form->{markup}/100);
-	$form->{sellprice} = $form->round_amount($form->{sellprice}, 2);
-      } else {
-	$form->{lastcost} = $form->{sellprice} / (1 + $form->{markup}/100);
-	$form->{lastcost} = $form->round_amount($form->{lastcost}, 2);
-      }
-    }
-  } else {
-    if ($form->{lastcost}) {
-      $form->{markup} = $form->round_amount(((1 - $form->{sellprice} / $form->{lastcost}) * 100), 1);
-    }
-    $form->{markup} = "" if $form->{markup} == 0;
-  }
-
-}
-
-
-sub invoicetotal {
-
-  $form->{oldinvtotal} = 0;
-  # add all parts and deduct paid
-  map { $form->{"${_}_base"} = 0 } split / /, $form->{taxaccounts};
-
-  my ($amount, $sellprice, $discount, $qty);
-  
-  for my $i (1 .. $form->{rowcount}) {
-    $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
-    $discount = $form->parse_amount(\%myconfig, $form->{"discount_$i"});
-    $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
-
-    $amount = $sellprice * (1 - $discount / 100) * $qty;
-    map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
-    $form->{oldinvtotal} += $amount;
-  }
-
-  map { $form->{oldinvtotal} += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{taxaccounts} if !$form->{taxincluded};
-  
-  $form->{oldtotalpaid} = 0;
-  for $i (1 .. $form->{paidaccounts}) {
-    $form->{oldtotalpaid} += $form->{"paid_$i"};
-  }
-  
-  # return total
-  ($form->{oldinvtotal} - $form->{oldtotalpaid});
-
-}
-
-
-sub validate_items {
-  
-  # check if items are valid
-  if ($form->{rowcount} == 1) {
-    &update;
-    exit;
-  }
-    
-  for $i (1 .. $form->{rowcount} - 1) {
-    $form->isblank("partnumber_$i", $locale->text('Number missing in Row') . " $i");
-  }
-
-}
-
-
-
-sub purchase_order {
-  
-  $form->{title} = $locale->text('Add Purchase Order');
-  $form->{vc} = 'vendor';
-  $form->{type} = 'purchase_order';
-  $buysell = 'sell';
-
-  &create_form;
-
-}
-
- 
-sub sales_order {
-
-  $form->{title} = $locale->text('Add Sales Order');
-  $form->{vc} = 'customer';
-  $form->{type} = 'sales_order';
-  $buysell = 'buy';
-
-  &create_form;
-
-}
-
-
-sub rfq {
-  
-  $form->{title} = $locale->text('Add Request for Quotation');
-  $form->{vc} = 'vendor';
-  $form->{type} = 'request_quotation';
-  $buysell = 'sell';
- 
-  &create_form;
-  
-}
-
-
-sub quotation {
-
-  $form->{title} = $locale->text('Add Quotation');
-  $form->{vc} = 'customer';
-  $form->{type} = 'sales_quotation';
-  $buysell = 'buy';
-
-  &create_form;
-
-}
-
-
-sub create_form {
-
-  map { delete $form->{$_} } qw(id printed emailed queued);
- 
-  $form->{script} = 'oe.pl';
-
-  $form->{shipto} = 1;
-
-  $form->{rowcount}-- if $form->{rowcount};
-
-  require "$form->{path}/$form->{script}";
-
-  map { $form->{"select$_"} = "" } ($form->{vc}, currency);
-  
-  map { $temp{$_} = $form->{$_} } qw(currency employee department intnotes notes language_code);
-
-  &order_links;
-
-  map { $form->{$_} = $temp{$_} if $temp{$_} } keys %temp;
-
-  $form->{exchangerate} = "";
-  $form->{forex} = "";
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell)));
-  }
-  
-  &prepare_order;
-
-  &display_form;
-
-}
-
-
-
-sub e_mail {
-
-  $bcc = qq|<input type=hidden name=bcc value="$form->{bcc}">|;
-  if ($myconfig{role} =~ /(admin|manager)/) {
-    $bcc = qq|
- 	  <th align=right nowrap=true>|.$locale->text('Bcc').qq|</th>
-	  <td><input name=bcc size=30 value="$form->{bcc}"></td>
-|;
-  }
-
-  if ($form->{formname} =~ /(pick|packing|bin)_list/) {
-    $form->{email} = $form->{shiptoemail} if $form->{shiptoemail};
-  }
-
-  $name = $form->{$form->{vc}};
-  $name =~ s/--.*//g;
-  $title = $locale->text('E-mail')." $name";
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action="$form->{script}#end">
-
-<table width=100%>
-  <tr class=listtop>
-    <th class=listtop>$title</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
-	  <td><input name=email size=30 value="$form->{email}"></td>
-	  <th align=right nowrap>|.$locale->text('Cc').qq|</th>
-	  <td><input name=cc size=30 value="$form->{cc}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Subject').qq|</th>
-	  <td><input name=subject size=30 value="$form->{subject}"></td>
-	  $bcc
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th align=left nowrap>|.$locale->text('Message').qq|</th>
-	</tr>
-	<tr>
-	  <td><textarea name=message rows=15 cols=60 wrap=soft>$form->{message}</textarea></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-|;
-
-  $form->{oldmedia} = $form->{media};
-  $form->{media} = "email";
-  $form->{format} = "pdf";
-  
-  &print_options;
-  
-  map { delete $form->{$_} } qw(action email cc bcc subject message formname sendmode format header);
-  
-  $form->hide_form();
-
-  print qq|
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=send_email>
-
-<br>
-<input name=action class=submit type=submit value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub send_email {
-
-  $old_form = new Form;
-  
-  map { $old_form->{$_} = $form->{$_} } keys %$form;
-  $old_form->{media} = $old_form->{oldmedia};
-  
-  &print_form($old_form);
-  
-}
-  
-
- 
-sub print_options {
-
-  $form->{sendmode} = "attachment";
-  $form->{copies} = 1 unless $form->{copies};
-  
-  $form->{PD}{$form->{formname}} = "selected";
-  $form->{DF}{$form->{format}} = "selected";
-  $form->{SM}{$form->{sendmode}} = "selected";
-  
-  if ($form->{selectlanguage}) {
-    $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"});
-    $form->{"selectlanguage"} =~ s/ selected//;
-    $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
-    $lang = qq|<td><select name=language_code>$form->{selectlanguage}</select></td>
-    <input type=hidden name=oldlanguage_code value=$form->{oldlanguage_code}>
-    <input type=hidden name=selectlanguage value="|.
-    $form->escape($form->{selectlanguage},1).qq|">|;
-  }
-  
-  if ($form->{type} eq 'purchase_order') {
-    $type = qq|<td><select name=formname>
-	    <option value=purchase_order $form->{PD}{purchase_order}>|.$locale->text('Purchase Order').qq|
-	    <option value=bin_list $form->{PD}{bin_list}>|.$locale->text('Bin List').qq|</select></td>|;
-  }
-  
-  if ($form->{type} eq 'sales_order') {
-    $type = qq|<td><select name=formname>
-	    <option value=sales_order $form->{PD}{sales_order}>|.$locale->text('Sales Order').qq|
-	    <option value=work_order $form->{PD}{work_order}>|.$locale->text('Work Order').qq|
-	    <option value=pick_list $form->{PD}{pick_list}>|.$locale->text('Pick List').qq|
-	    <option value=packing_list $form->{PD}{packing_list}>|.$locale->text('Packing List').qq|</select></td>|;
-  }
-  
-  if ($form->{type} =~ /_quotation$/) {
-    $type = qq|<td><select name=formname>
-	    <option value="$`_quotation" $form->{PD}{"$`_quotation"}>|.$locale->text('Quotation').qq|</select></td>|;
-  }
-  
-  if ($form->{type} eq 'invoice') {
-    $type = qq|<td><select name=formname>
-	    <option value=invoice $form->{PD}{invoice}>|.$locale->text('Invoice').qq|
-	    <option value=pick_list $form->{PD}{pick_list}>|.$locale->text('Pick List').qq|
-	    <option value=packing_list $form->{PD}{packing_list}>|.$locale->text('Packing List').qq|</select></td>|;
-  }
-  
-  if ($form->{type} eq 'ship_order') {
-    $type = qq|<td><select name=formname>
-	    <option value=pick_list $form->{PD}{pick_list}>|.$locale->text('Pick List').qq|
-	    <option value=packing_list $form->{PD}{packing_list}>|.$locale->text('Packing List').qq|</select></td>|;
-  }
-  
-  if ($form->{type} eq 'receive_order') {
-    $type = qq|<td><select name=formname>
-	    <option value=bin_list $form->{PD}{bin_list}>|.$locale->text('Bin List').qq|</select></td>|;
-  }
- 
-  if ($form->{media} eq 'email') {
-    $media = qq|<td><select name=sendmode>
-	    <option value=attachment $form->{SM}{attachment}>|.$locale->text('Attachment').qq|
-	    <option value=inline $form->{SM}{inline}>|.$locale->text('In-line').qq|</select></td>|;
-  } else {
-    $media = qq|<td><select name=media>
-	    <option value=screen>|.$locale->text('Screen');
-    if (%printer && $latex) {
-      map { $media .= qq|
-            <option value="$_">$_| } sort keys %printer;
-    }
-    if ($latex) {
-      $media .= qq|
-            <option value="queue">|.$locale->text('Queue');
-    }
-    $media .= qq|</select></td>|;
-
-    # set option selected
-    $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;
- 
-  }
-
-  $format = qq|<td><select name=format>
-            <option value=html $form->{DF}{html}>html|;
-
-#	    <option value=txt $form->{DF}{txt}>txt|;
-
-  if ($latex) {
-    $format .= qq|
-            <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq|
-	    <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF');
-  }
-  $format .= qq|</select></td>|;
-
-  print qq|
-<table width=100% cellspacing=0 cellpadding=0>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  $type
-	  $lang
-	  $format
-	  $media
-|;
-
-  if (%printer && $latex && $form->{media} ne 'email') {
-    print qq|
-	  <td>|.$locale->text('Copies').qq|
-	  <input name=copies size=2 value=$form->{copies}></td>
-|;
-  }
-
-  $form->{groupprojectnumber} = "checked" if $form->{groupprojectnumber};
-  $form->{grouppartsgroup} = "checked" if $form->{grouppartsgroup};
-
-  print qq|
-          <td>|.$locale->text('Group Items').qq|</td>
-          <td>
-	  <input name=groupprojectnumber type=checkbox class=checkbox $form->{groupprojectnumber}>
-	  |.$locale->text('Project').qq|
-	  <input name=grouppartsgroup type=checkbox class=checkbox $form->{grouppartsgroup}>
-	  |.$locale->text('Group').qq|
-	  </td>
-        </tr>
-      </table>
-    </td>
-    <td align=right>
-|;
-
-  if ($form->{printed} =~ /$form->{formname}/) {
-    print $locale->text('Printed').qq|<br>|;
-  }
-  
-  if ($form->{emailed} =~ /$form->{formname}/) {
-    print $locale->text('E-mailed').qq|<br>|;
-  }
-  
-  if ($form->{queued} =~ /$form->{formname}/) {
-    print $locale->text('Queued');
-  }
-  
-  print qq|
-    </td>
-  </tr>
-</table>
-|;
-
-
-}
-
-
-
-sub print {
-
-  # if this goes to the printer pass through
-  if ($form->{media} !~ /(screen|email)/) {
-    $form->error($locale->text('Select txt, postscript or PDF!')) if ($form->{format} !~ /(txt|postscript|pdf)/);
-
-    $old_form = new Form;
-    map { $old_form->{$_} = $form->{$_} } keys %$form;
-    
-  }
-   
-  &print_form($old_form);
-
-}
-
-
-sub print_form {
-  my ($old_form) = @_;
-
-  $inv = "inv";
-  $due = "due";
-
-  $numberfld = "sinumber";
-
-  $display_form = ($form->{display_form}) ? $form->{display_form} : "display_form";
-
-  if ($form->{formname} eq "invoice") {
-    $form->{label} = $locale->text('Invoice');
-  }
-  if ($form->{formname} eq 'sales_order') {
-    $inv = "ord";
-    $due = "req";
-    $form->{label} = $locale->text('Sales Order');
-    $numberfld = "sonumber";
-    $order = 1;
-  }
-  if ($form->{formname} eq 'work_order') {
-    $inv = "ord";
-    $due = "req";
-    $form->{label} = $locale->text('Work Order');
-    $numberfld = "sonumber";
-    $order = 1;
-  }
-  if ($form->{formname} eq 'packing_list') {
-    # we use the same packing list as from an invoice
-    $form->{label} = $locale->text('Packing List');
-
-    if ($form->{type} ne 'invoice') {
-      $inv = "ord";
-      $due = "req";
-      $numberfld = "sonumber";
-      $order = 1;
-    }
-  }
-  if ($form->{formname} eq 'pick_list') {
-    $form->{label} = $locale->text('Pick List');
-    if ($form->{type} ne 'invoice') {
-      $inv = "ord";
-      $due = "req";
-      $order = 1;
-      $numberfld = "sonumber";
-    }
-  }
-  if ($form->{formname} eq 'purchase_order') {
-    $inv = "ord";
-    $due = "req";
-    $form->{label} = $locale->text('Purchase Order');
-    $numberfld = "ponumber";
-    $order = 1;
-  }
-  if ($form->{formname} eq 'bin_list') {
-    $inv = "ord";
-    $due = "req";
-    $form->{label} = $locale->text('Bin List');
-    $numberfld = "ponumber";
-    $order = 1;
-  }
-  if ($form->{formname} eq 'sales_quotation') {
-    $inv = "quo";
-    $due = "req";
-    $form->{label} = $locale->text('Quotation');
-    $numberfld = "sqnumber";
-    $order = 1;
-  }
-  if ($form->{formname} eq 'request_quotation') {
-    $inv = "quo";
-    $due = "req";
-    $form->{label} = $locale->text('Quotation');
-    $numberfld = "rfqnumber";
-    $order = 1;
-  }
-  
-  $form->{"${inv}date"} = $form->{transdate};
-
-  $form->isblank("email", $locale->text('E-mail address missing!')) if ($form->{media} eq 'email');
-  $form->isblank("${inv}date", $locale->text($form->{label} .' Date missing!'));
-
-  # get next number
-  if (! $form->{"${inv}number"}) {
-    $form->{"${inv}number"} = $form->update_defaults(\%myconfig, $numberfld);
-    if ($form->{media} eq 'screen') {
-      &update;
-      exit;
-    }
-  }
-
-
-# $locale->text('Invoice Number missing!')
-# $locale->text('Invoice Date missing!')
-# $locale->text('Packing List Number missing!')
-# $locale->text('Packing List Date missing!')
-# $locale->text('Order Number missing!')
-# $locale->text('Order Date missing!')
-# $locale->text('Quotation Number missing!')
-# $locale->text('Quotation Date missing!')
-
-  &validate_items;
-
-  &{ "$form->{vc}_details" };
-
-  @a = ();
-  foreach $i (1 .. $form->{rowcount}) {
-    push @a, ("partnumber_$i", "description_$i", "projectnumber_$i", "partsgroup_$i", "serialnumber_$i", "bin_$i", "unit_$i");
-  }
-  map { push @a, "${_}_description" } split / /, $form->{taxaccounts};
-
-  $ARAP = ($form->{vc} eq 'customer') ? "AR" : "AP";
-  push @a, $ARAP;
-  
-  # format payment dates
-  for $i (1 .. $form->{paidaccounts} - 1) {
-    if (exists $form->{longformat}) {
-      $form->{"datepaid_$i"} = $locale->date(\%myconfig, $form->{"datepaid_$i"}, $form->{longformat});
-    }
-    
-    push @a, "${ARAP}_paid_$i", "source_$i", "memo_$i";
-  }
-  
-  $form->format_string(@a);
-  
-  ($form->{employee}) = split /--/, $form->{employee};
-  ($form->{warehouse}, $form->{warehouse_id}) = split /--/, $form->{warehouse};
-  
-  # this is a label for the subtotals
-  $form->{groupsubtotaldescription} = $locale->text('Subtotal') if not exists $form->{groupsubtotaldescription};
-  delete $form->{groupsubtotaldescription} if $form->{deletegroupsubtotal};
-
-  # create the form variables
-  if ($order) {
-    OE->order_details(\%myconfig, \%$form);
-  } else {
-    IS->invoice_details(\%myconfig, \%$form);
-  }
-
-  if (exists $form->{longformat}) {
-    map { $form->{$_} = $locale->date(\%myconfig, $form->{$_}, $form->{longformat}) } ("${inv}date", "${due}date", "shippingdate", "transdate");
-  }
-  
-  @a = qw(name address1 address2 city state zipcode country);
- 
-  $shipto = 1;
-  # if there is no shipto fill it in from billto
-  foreach $item (@a) {
-    if ($form->{"shipto$item"}) {
-      $shipto = 0;
-      last;
-    }
-  }
-
-  if ($shipto) {
-    if ($form->{formname} eq 'purchase_order' || $form->{formname} eq 'request_quotation') {
-	$form->{shiptoname} = $myconfig{company};
-	$form->{shiptoaddress1} = $myconfig{address};
-    } else {
-      if ($form->{formname} !~ /bin_list/) {
-	map { $form->{"shipto$_"} = $form->{$_} } @a;
-      }
-    }
-  }
-
-  $form->{notes} =~ s/^\s+//g;
-
-  # some of the stuff could have umlauts so we translate them
-  push @a, qw(contact shiptoname shiptoaddress1 shiptoaddress2 shiptocity shiptostate shiptozipcode shiptocountry shiptocontact shiptoemail shippingpoint shipvia notes employee warehouse);
-
-  push @a, ("${inv}number", "${inv}date", "${due}date", "email", "cc", "bcc");
-  
-  map { $form->{$_} = $myconfig{$_} } (qw(company address tel fax signature businessnumber));
-  map { $form->{"user$_"} = $myconfig{$_} } qw(name email);
-  push @a, qw(company address tel fax signature businessnumber username useremail);
-
-  $form->format_string(@a);
-
-
-  $form->{templates} = "$myconfig{templates}";
-  $form->{IN} = "$form->{formname}.$form->{format}";
-
-  if ($form->{format} =~ /(postscript|pdf)/) {
-    $form->{IN} =~ s/$&$/tex/;
-  }
-
-  $form->{pre} = "<body bgcolor=#ffffff>\n<pre>" if $form->{format} eq 'txt';
-
-  if ($form->{media} !~ /(screen|queue|email)/) {
-    $form->{OUT} = "| $printer{$form->{media}}";
-    
-    if ($form->{printed} !~ /$form->{formname}/) {
-    
-      $form->{printed} .= " $form->{formname}";
-      $form->{printed} =~ s/^ //;
-
-      $form->update_status(\%myconfig);
-    }
-
-    $old_form->{printed} = $form->{printed};
-
-    %audittrail = ( tablename	=> ($order) ? 'oe' : lc $ARAP,
-                    reference	=> $form->{"${inv}number"},
-		    formname	=> $form->{formname},
-		    action	=> 'printed',
-		    id		=> $form->{id} );
- 
-    $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-    
-  }
-
-
-  if ($form->{media} eq 'email') {
-    $form->{subject} = qq|$form->{label} $form->{"${inv}number"}| unless $form->{subject};
-
-    $form->{plainpaper} = 1;
-    $form->{OUT} = "$sendmail";
-
-    if ($form->{emailed} !~ /$form->{formname}/) {
-      $form->{emailed} .= " $form->{formname}";
-      $form->{emailed} =~ s/^ //;
-
-      # save status
-      $form->update_status(\%myconfig);
-    }
-
-    $now = scalar localtime;
-    $cc = $locale->text('Cc').qq|: $form->{cc}\n| if $form->{cc};
-    $bcc = $locale->text('Bcc').qq|: $form->{bcc}\n| if $form->{bcc};
-    
-    $old_form->{intnotes} = qq|$old_form->{intnotes}\n\n| if $old_form->{intnotes};
-    $old_form->{intnotes} .= qq|[email]
-|.$locale->text('Date').qq|: $now
-|.$locale->text('To').qq|: $form->{email}
-$cc${bcc}|.$locale->text('Subject').qq|: $form->{subject}\n|;
-
-    $old_form->{intnotes} .= qq|\n|.$locale->text('Message').qq|: |;
-    $old_form->{intnotes} .= ($form->{message}) ? $form->{message} : $locale->text('sent');
-
-    $old_form->{message} = $form->{message};
-    $old_form->{emailed} = $form->{emailed};
-
-    $old_form->{format} = "postscript" if $myconfig{printer};
-    $old_form->{media} = $myconfig{printer};
-
-    $old_form->save_intnotes(\%myconfig, ($order) ? 'oe' : lc $ARAP);
-    
-    %audittrail = ( tablename	=> ($order) ? 'oe' : lc $ARAP,
-                    reference	=> $form->{"${inv}number"},
-		    formname	=> $form->{formname},
-		    action	=> 'emailed',
-		    id		=> $form->{id} );
- 
-    $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-  }
-
-
-  if ($form->{media} eq 'queue') {
-    %queued = split / /, $form->{queued};
-    
-    if ($filename = $queued{$form->{formname}}) {
-      $form->{queued} =~ s/$form->{formname} $filename//;
-      unlink "$spool/$filename";
-      $filename =~ s/\..*$//g;
-    } else {
-      $filename = time;
-      $filename .= $$;
-    }
-
-    $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
-    $form->{OUT} = ">$spool/$filename";
-
-    $form->{queued} .= " $form->{formname} $filename";
-    $form->{queued} =~ s/^ //;
-
-    # save status
-    $form->update_status(\%myconfig);
-
-    $old_form->{queued} = $form->{queued};
-    
-    %audittrail = ( tablename	=> ($order) ? 'oe' : lc $ARAP,
-                    reference	=> $form->{"${inv}number"},
-		    formname	=> $form->{formname},
-		    action	=> 'queued',
-		    id		=> $form->{id} );
- 
-    $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-    
-  }
-
-
-  $form->{fileid} = $form->{"${inv}number"};
-  $form->{fileid} =~ s/(\s|\W)+//g;
-  
-  $form->parse_template(\%myconfig, $userspath);
-
-  # if we got back here restore the previous form
-  if ($old_form) {
-    
-    $old_form->{"${inv}number"} = $form->{"${inv}number"};
-    
-    # restore and display form
-    map { $form->{$_} = $old_form->{$_} } keys %$old_form;
-    delete $form->{pre};
-    
-    $form->{rowcount}--;
-
-    map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
-    
-    for $i (1 .. $form->{paidaccounts}) {
-      map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
-    }
-
-    &{ "$display_form" };
-
-  }
-
-}
-
-
-sub customer_details {
-
-  IS->customer_details(\%myconfig, \%$form);
-
-}
-
-
-sub vendor_details {
-
-  IR->vendor_details(\%myconfig, \%$form);
-
-}
-
-
-sub post_as_new {
-
-  $form->{postasnew} = 1;
-  map { delete $form->{$_} } qw(printed emailed queued);
-  
-  &post;
-
-}
-
-
-sub ship_to {
-
-  $title = $form->{title};
-  $form->{title} = $locale->text('Ship to');
-
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
-
-  # get details for name
-  &{ "$form->{vc}_details" };
-
-  $number = ($form->{vc} eq 'customer') ? $locale->text('Customer Number') : $locale->text('Vendor Number');
-
-  $nextsub = ($form->{display_form}) ? $form->{display_form} : "display_form";
-
-  $form->{rowcount}--;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <td>
-      <table>
-	<tr class=listheading>
-	  <th class=listheading colspan=2 width=50%>|.$locale->text('Billing Address').qq|</th>
-	  <th class=listheading width=50%>|.$locale->text('Shipping Address').qq|</th>
-	</tr>
-	<tr height="5"></tr>
-	<tr>
-	  <th align=right nowrap>$number</th>
-	  <td>$form->{"$form->{vc}number"}</td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Company Name').qq|</th>
-	  <td>$form->{name}</td>
-	  <td><input name=shiptoname size=35 maxlength=64 value="$form->{shiptoname}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Address').qq|</th>
-	  <td>$form->{address1}</td>
-	  <td><input name=shiptoaddress1 size=35 maxlength=32 value="$form->{shiptoaddress1}"></td>
-	</tr>
-	<tr>
-	  <th></th>
-	  <td>$form->{address2}</td>
-	  <td><input name=shiptoaddress2 size=35 maxlength=32 value="$form->{shiptoaddress2}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('City').qq|</th>
-	  <td>$form->{city}</td>
-	  <td><input name=shiptocity size=35 maxlength=32 value="$form->{shiptocity}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('State/Province').qq|</th>
-	  <td>$form->{state}</td>
-	  <td><input name=shiptostate size=35 maxlength=32 value="$form->{shiptostate}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th>
-	  <td>$form->{zipcode}</td>
-	  <td><input name=shiptozipcode size=10 maxlength=10 value="$form->{shiptozipcode}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Country').qq|</th>
-	  <td>$form->{country}</td>
-	  <td><input name=shiptocountry size=35 maxlength=32 value="$form->{shiptocountry}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Contact').qq|</th>
-	  <td>$form->{contact}</td>
-	  <td><input name=shiptocontact size=35 maxlength=64 value="$form->{shiptocontact}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Phone').qq|</th>
-	  <td>$form->{"$form->{vc}phone"}</td>
-	  <td><input name=shiptophone size=20 value="$form->{shiptophone}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Fax').qq|</th>
-	  <td>$form->{"$form->{vc}fax"}</td>
-	  <td><input name=shiptofax size=20 value="$form->{shiptofax}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
-	  <td>$form->{email}</td>
-	  <td><input name=shiptoemail size=35 value="$form->{shiptoemail}"></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=$nextsub>
-|;
-
-  # delete shipto
-  map { delete $form->{$_} } qw(shiptoname shiptoaddress1 shiptoaddress2 shiptocity shiptostate shiptozipcode shiptocountry shiptocontact shiptophone shiptofax shiptoemail header);
-  $form->{title} = $title;
-  
-  $form->hide_form();
-
-  print qq|
-
-<hr size=3 noshade>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/ir.pl b/sql-ledger/bin/mozilla/ir.pl
deleted file mode 100644
index 080ac2415..000000000
--- a/sql-ledger/bin/mozilla/ir.pl
+++ /dev/null
@@ -1,806 +0,0 @@
-#=====================================================================
-# SQL-Ledger, Accounting
-# Copyright (c) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Inventory received module
-#
-#======================================================================
-
-
-use SL::IR;
-use SL::PE;
-
-require "$form->{path}/io.pl";
-require "$form->{path}/arap.pl";
-
-1;
-# end of main
-
-
-
-sub add {
-
-  $form->{title} = $locale->text('Add Vendor Invoice');
-
-  $form->{callback} = "$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}" unless $form->{callback};
-  &invoice_links;
-  &prepare_invoice;
-  &display_form;
-  
-}
-
-
-sub edit {
-
-  $form->{title} = $locale->text('Edit Vendor Invoice');
-
-  &invoice_links;
-  &prepare_invoice;
-  &display_form;
-  
-}
-
-
-sub invoice_links {
-  
-  $form->{vc} = "vendor";
-
-  # create links
-  $form->create_links("AP", \%myconfig, "vendor");
-  
-  # currencies
-  @curr = split /:/, $form->{currencies};
-  chomp $curr[0];
-  $form->{defaultcurrency} = $curr[0];
-
-  map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
-
-  if ($form->{all_vendor}) {
-    unless ($form->{vendor_id}) {
-      $form->{vendor_id} = $form->{all_vendor}->[0]->{id};
-    }
-  }
-
-  IR->get_vendor(\%myconfig, \%$form);
-  delete $form->{notes};
-  IR->retrieve_invoice(\%myconfig, \%$form);
-
-  $form->{oldlanguage_code} = $form->{language_code};
-
-  $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} });
-  if (@ { $form->{all_partsgroup} }) {
-    $form->{selectpartsgroup} = "<option>\n";
-    foreach $ref (@ { $form->{all_partsgroup} }) {
-      if ($ref->{translation}) {
-	$form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|;
-      } else {
-        $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
-      }
-    }
-  }
-
-  if (@{ $form->{all_projects} }) { 
-    $form->{selectprojectnumber} = "<option>\n";
-    map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} };
-  }
-
-  $form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";
-  $form->{oldtransdate} = $form->{transdate};
-
-  # vendors
-  if ($form->{all_vendor}) {
-    $form->{vendor} = "$form->{vendor}--$form->{vendor_id}";
-    map { $form->{selectvendor} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_vendor} });
-  }
-
-  # departments
-  if ($form->{all_departments}) {
-    $form->{selectdepartment} = "<option>\n";
-    $form->{department} = "$form->{department}--$form->{department_id}";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-
-  if (@{ $form->{all_languages} }) {
-    $form->{selectlanguage} = "<option>\n";
-    map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} };
-  }
-  
-  # forex
-  $form->{forex} = $form->{exchangerate};
-  $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
-  
-  foreach $key (keys %{ $form->{AP_links} }) {
-
-    foreach $ref (@{ $form->{AP_links}{$key} }) {
-      $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";
-    }
-
-    if ($key eq "AP_paid") {
-      for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
-	$form->{"AP_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
-	# reverse paid
-	$form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount};
-	$form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate};
-	$form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate};
-	$form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source};
-	$form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo};
-
-	$form->{paidaccounts} = $i;
-      }
-    } else {
-      $form->{$key} = "$form->{acc_trans}{$key}->[0]->{accno}--$form->{acc_trans}{$key}->[0]->{description}";
-    }
-    
-  }
-
-  $form->{paidaccounts} = 1 unless (exists $form->{paidaccounts});
-
-  $form->{AP} = $form->{AP_1} unless $form->{id};
-
-  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
-
-  $form->{readonly} = 1 if $myconfig{acs} =~ /AP--Vendor Invoice/;
-  
-}
-
-
-
-sub prepare_invoice {
-
-  $form->{type} = "invoice";
-  $form->{oldcurrency} = $form->{currency};
-
-  if ($form->{id}) {
-        
-    map { $form->{$_} = $form->quote($form->{$_}) } qw(invnumber ordnumber quonumber);
-
-    foreach $ref (@{ $form->{invoice_details} }) {
-      $i++;
-      map { $form->{"${_}_$i"} = $ref->{$_} } keys %{ $ref };
-
-      $form->{"projectnumber_$i"} = qq|$ref->{projectnumber}--$ref->{project_id}|;
-      $form->{"partsgroup_$i"} = qq|$ref->{partsgroup}--$ref->{partsgroup_id}|;
-
-      $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
-      
-      ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $decimalplaces = ($dec > 2) ? $dec : 2;
-      
-      $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
-      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
-      $form->{"oldqty_$i"} = $form->{"qty_$i"};
-
-      map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit);
-
-      $form->{rowcount} = $i;
-    }
-  }
-  
-}
-
-
-
-sub form_header {
-
-  # set option selected
-  foreach $item (qw(AP currency)) {
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
-  }
-  
-  foreach $item (qw(vendor department)) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"});
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/;
-  }
-
-  if ($form->{selectlanguage}) {
-    $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"});
-    $form->{"selectlanguage"} =~ s/ selected//;
-    $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
-
-    $lang = qq|
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Language').qq|</th>
-		<td><select name=language_code>$form->{selectlanguage}</select></td>
-		<input type=hidden name=oldlanguage_code value=$form->{oldlanguage_code}>
-                <input type=hidden name="selectlanguage" value="|.
-		$form->escape($form->{selectlanguage},1).qq|">
-	      </tr>
-|;
-
-  }
-  
-
-  $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
-
-  $exchangerate = "";
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    if ($form->{forex}) {
-      $exchangerate .= qq|
-                <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>
-                <td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>
-|;
-    } else {
-      $exchangerate .= qq|
-                <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>
-                <td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
-|;
-    }
-  }
-  $exchangerate .= qq|
-<input type=hidden name=forex value=$form->{forex}>
-|;
-  
-  if ($form->{selectvendor}) {
-    $vendor = qq|<select name=vendor>$form->{selectvendor}</select>
-                 <input type=hidden name="selectvendor" value="|.
-		 $form->escape($form->{selectvendor},1).qq|">|;
-  } else {
-    $vendor = qq|<input name=vendor value="$form->{vendor}" size=35>|;
-  }
-  
-  $department = qq|
-              <tr>
-	      <th align="right" nowrap>|.$locale->text('Department').qq|</th>
-	      <td colspan=3><select name=department>$form->{selectdepartment}</select>
-	      <input type=hidden name=selectdepartment value="|.
-	      $form->escape($form->{selectdepartment},1).qq|">
-	      </td>
-	    </tr>
-| if $form->{selectdepartment};
-
-  $n = ($form->{creditremaining} < 0) ? "0" : "1";
-
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action="$form->{script}#end">
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=vc value="vendor">
-<input type=hidden name=type value=$form->{type}>
-
-<input type=hidden name=terms value=$form->{terms}>
-
-<input type=hidden name=creditlimit value=$form->{creditlimit}>
-<input type=hidden name=creditremaining value=$form->{creditremaining}>
-
-<input type=hidden name=closedto value=$form->{closedto}>
-<input type=hidden name=locked value=$form->{locked}>
-
-<input type=hidden name=shipped value=$form->{shipped}>
-
-<input type=hidden name=oldtransdate value=$form->{oldtransdate}>
-
-<table width=100%>
-  <tr class=listtop>
-    <th>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Vendor').qq|</th>
-		<td colspan=3>$vendor</td>
-		
-		<input type=hidden name=vendor_id value=$form->{vendor_id}>
-		<input type=hidden name=oldvendor value="$form->{oldvendor}">
-
-	      </tr>
-	      <tr>
-	        <td></td>
-		<td colspan=3>
-		  <table>
-		    <tr>
-		      <th nowrap>|.$locale->text('Credit Limit').qq|</th>
-		      <td>|.$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0").qq|</td>
-		      <td width=20%></td>
-		      <th nowrap>|.$locale->text('Remaining').qq|</th>
-		      <td class="plus$n" nowrap>|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td>
-		    </tr>
-		  </table>
-		</td>
-	      <tr>
-		<th align=right>|.$locale->text('Record in').qq|</th>
-		<td colspan=3><select name=AP>$form->{selectAP}</select></td>
-		<input type=hidden name=selectAP value="$form->{selectAP}">
-	      </tr>
-              $department
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Currency').qq|</th>
-		<td><select name=currency>$form->{selectcurrency}</select></td>
-		$exchangerate
-	      </tr>
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
-		<td><input name=invnumber size=20 value="$form->{invnumber}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
-		<td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>
-<input type=hidden name=quonumber value="$form->{quonumber}">
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Invoice Date').qq|</th>
-		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Due Date').qq|</th>
-		<td><input name=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td>
-	      </tr>
-	      $lang
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
-<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
-<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
-
-<input type=hidden name=taxpart value="$form->{taxpart}">
-<input type=hidden name=taxservice value="$form->{taxservice}">
-
-<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
-|;
-
-  foreach $item (split / /, $form->{taxaccounts}) {
-    print qq|
-<input type=hidden name="${item}_rate" value=$form->{"${item}_rate"}>
-<input type=hidden name="${item}_description" value="$form->{"${item}_description"}">
-|;
-  }
-
-}
-
-
-
-sub form_footer {
-
-  $form->{invtotal} = $form->{invsubtotal};
-  
-  if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) {
-    $rows = 2;
-  }
-  if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) {
-    $introws = 2;
-  }
-  $rows = ($rows > $introws) ? $rows : $introws;
-  $notes = qq|<textarea name=notes rows=$rows cols=25 wrap=soft>$form->{notes}</textarea>|;
-  $intnotes = qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;
-  
-  $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
-
-  $taxincluded = "";
-  if ($form->{taxaccounts}) {
-    $taxincluded = qq|
-		<input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}> <b>|.$locale->text('Tax Included').qq|</b>
-|;
-  }
-  
-  if (!$form->{taxincluded}) {
-    
-    foreach $item (split / /, $form->{taxaccounts}) {
-      if ($form->{"${item}_base"}) {
-	$form->{invtotal} += $form->{"${item}_total"} = $form->round_amount($form->{"${item}_base"} * $form->{"${item}_rate"}, 2);
-	$form->{"${item}_total"} = $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2);
-	
-	$tax .= qq|
-		<tr>
-		  <th align=right>$form->{"${item}_description"}</th>
-		  <td align=right>$form->{"${item}_total"}</td>
-		</tr>
-|;
-      }
-    }
-
-    $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0);
-    
-    $subtotal = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Subtotal').qq|</th>
-		<td align=right>$form->{invsubtotal}</td>
-	      </tr>
-|;
-
-  }
-
-
-  $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0);
-
-  print qq|
-  <tr>
-    <td>
-      <table width=100%>
-	<tr valign=bottom>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=left>|.$locale->text('Notes').qq|</th>
-		<th align=left>|.$locale->text('Internal Notes').qq|</th>
-	      </tr>
-	      <tr valign=top>
-		<td>$notes</td>
-		<td>$intnotes</td>
-	      </tr>
-	    </table>
-	  </td>
-	  <td align=right>
-	    $taxincluded
-	    <br>
-	    <table>
-	      $subtotal
-	      $tax
-	      <tr>
-		<th align=right>|.$locale->text('Total').qq|</th>
-		<td align=right>$form->{invtotal}</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr>
-	  <th colspan=6 class=listheading>|.$locale->text('Payments').qq|</th>
-	</tr>
-|;
-
-    if ($form->{currency} eq $form->{defaultcurrency}) {
-      @column_index = qw(datepaid source memo paid AP_paid);
-    } else {
-      @column_index = qw(datepaid source memo paid exchangerate AP_paid);
-    }
-
-    $column_data{datepaid} = "<th>".$locale->text('Date')."</th>";
-    $column_data{paid} = "<th>".$locale->text('Amount')."</th>";
-    $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>";
-    $column_data{AP_paid} = "<th>".$locale->text('Account')."</th>";
-    $column_data{source} = "<th>".$locale->text('Source')."</th>";
-    $column_data{memo} = "<th>".$locale->text('Memo')."</th>";
-
-    print qq|
-	<tr>
-|;
-    map { print "$column_data{$_}\n" } @column_index;
-    print qq|
-	</tr>
-|;
-
-    $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
-    for $i (1 .. $form->{paidaccounts}) {
-
-      print qq|
-	<tr>
-|;
-
-      $form->{"selectAP_paid_$i"} = $form->{selectAP_paid};
-      $form->{"selectAP_paid_$i"} =~ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;
-
-      # format amounts
-      $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
-      $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
-
-      $exchangerate = qq|&nbsp;|;
-      if ($form->{currency} ne $form->{defaultcurrency}) {
-	if ($form->{"forex_$i"}) {
-	  $exchangerate = qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|;
-	} else {
-	  $exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
-	}
-      }
-      $exchangerate .= qq|
-<input type=hidden name="forex_$i" value=$form->{"forex_$i"}>
-|;
-
-      $column_data{"paid_$i"} = qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|;
-      $column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|;
-      $column_data{"AP_paid_$i"} = qq|<td align=center><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|;
-      $column_data{"datepaid_$i"} = qq|<td align=center><input name="datepaid_$i" size=11 title="$myconfig{dateformat}" value=$form->{"datepaid_$i"}></td>|;
-      $column_data{"source_$i"} = qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
-      $column_data{"memo_$i"} = qq|<td align=center><input name="memo_$i" size=11 value=$form->{"memo_$i"}></td>|;
-
-      map { print qq|$column_data{"${_}_$i"}\n| } @column_index;
-
-      print qq|
-	</tr>
-|;
-    }
-    
-    print qq|
-	    <input type=hidden name=paidaccounts value=$form->{paidaccounts}>
-	    <input type=hidden name=selectAP_paid value="$form->{selectAP_paid}">
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-<br>
-|;
-
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-  
-  if (! $form->{readonly}) {
-    if ($form->{id}) {
-      print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-|;
-
-      if (!$form->{locked}) {
-	print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">
-|;
-      }
-
-      print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|">
-|;
-
-    } else {
-      if ($transdate > $closedto) {
-	print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|;
-      }
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-  
-print qq|
-
-<input type=hidden name=rowcount value=$form->{rowcount}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-</form>
-
-<a name="end"></a>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub update {
-
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate);
-  
-  &check_name(vendor);
-
-  if ($form->{transdate} ne $form->{oldtransdate}) {
-    $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1);
-    $form->{oldtransdate} = $form->{transdate};
-  }
-
-
-  $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'sell')));
-  
-  $j = 1;
-  for $i (1 .. $form->{paidaccounts}) {
-    if ($form->{"paid_$i"}) {
-      map { $form->{"${_}_$j"} = $form->{"${_}_$i"} } qw(datepaid source memo);
-      map { $form->{"${_}_$j"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
-
-      $form->{"exchangerate_$j"} = $exchangerate if ($form->{"forex_$j"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$j"}, 'sell')));
-      map { delete $form->{"${_}_$i"} } qw(datepaid source memo paid exchangerate forex) if $j != $i;
-    } else {
-      map { delete $form->{"${_}_$i"} } qw(datepaid source memo paid exchangerate forex);
-    }
-    $form->{paidaccounts} = $j;
-  }
-  
-  $i = $form->{rowcount};
-  $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
-
-  foreach $item (qw(partsgroup projectnumber)) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"}) if $form->{"select$item"};
-  }
-  
-  if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq "")) {
-
-    &check_form;
-    
-  } else {
-   
-    $form->{transdate} = $form->{oldtransdate};
-    IR->retrieve_item(\%myconfig, \%$form);
-
-    my $rows = scalar @{ $form->{item_list} };
-
-    if ($rows) {
-      $form->{"qty_$i"}                     = 1 unless ($form->{"qty_$i"});
-      
-      if ($rows > 1) {
-	
-	&select_item;
-	exit;
-	
-      } else {
-        # override sellprice if there is one entered
-	$sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
-
-	map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description unit);
-	
-	map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
-
-	$s = ($sellprice) ? $sellprice : $form->{"sellprice_$i"};
-	
-	($dec) = ($s =~ /\.(\d+)/);
-	$dec = length $dec;
-	$decimalplaces = ($dec > 2) ? $dec : 2;
- 
-        if ($sellprice) {
-	  $form->{"sellprice_$i"} = $sellprice;
-	} else {
-	  # if there is an exchange rate adjust sellprice
-	  $form->{"sellprice_$i"} /= $exchangerate;
-	}
-     
-	$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
-	$form->{"qty_$i"} =  $form->format_amount(\%myconfig, $form->{"qty_$i"});
-      }
-
-      &display_form;
-
-    } else {
-      # ok, so this is a new part
-      # ask if it is a part or service item
-
-      if ($form->{"partsgroup_$i"} && ($form->{"partsnumber_$i"} eq "") && ($form->{"description_$i"} eq "")) {
-	$form->{rowcount}--;
-	$form->{"discount_$i"} = "";
-	&display_form;
-      } else {
-	
-	$form->{"id_$i"}	= 0;
-	$form->{"unit_$i"}	= $locale->text('ea');
-
-	&new_item;
-
-      }
-    }
-  }
-}
-
-
-
-sub post {
-
-  $form->isblank("transdate", $locale->text('Invoice Date missing!'));
-  $form->isblank("vendor", $locale->text('Vendor missing!'));
-  
-  # if the vendor changed get new values
-  if (&check_name(vendor)) {
-    &update;
-    exit;
-  }
-
-  &validate_items;
-
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-
-  $form->error($locale->text('Cannot post invoice for a closed period!')) if ($transdate <= $closedto);
-
-  $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency});
-  
-  for $i (1 .. $form->{paidaccounts}) {
-    if ($form->{"paid_$i"}) {
-      $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);
-
-      $form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
-      
-      $form->error($locale->text('Cannot post payment for a closed period!')) if ($datepaid <= $closedto);
-      
-      if ($form->{currency} ne $form->{defaultcurrency}) {
-	$form->{"exchangerate_$i"} = $form->{exchangerate} if ($transdate == $datepaid);
-	$form->isblank("exchangerate_$i", $locale->text('Exchange rate for payment missing!'));
-      }
-    }
-  }
-  
-  
-  ($form->{AP}) = split /--/, $form->{AP};
-  ($form->{AP_paid}) = split /--/, $form->{AP_paid};
-  
-  $form->{id} = 0 if $form->{postasnew};
-
-  $form->{invnumber} = $form->update_defaults(\%myconfig, "vinumber") unless $form->{invnumber};
-
-  $form->redirect($locale->text('Invoice')." $form->{invnumber} ".$locale->text('posted!')) if (IR->post_invoice(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot post invoice!'));
-  
-}
-
-
-
-sub delete {
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-  # delete action variable
-  map { delete $form->{$_} } qw(action header);
-
-  $form->hide_form();
-
-  print qq|
-<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2>
-
-<h4>|.$locale->text('Are you sure you want to delete Invoice Number').qq| $form->{invnumber}</h4>
-<p>
-<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|">
-</form>
-|;
-
-
-}
-
-
-
-sub yes {
-
-  $form->redirect($locale->text('Invoice deleted!')) if (IR->delete_invoice(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot delete invoice!'));
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/is.pl b/sql-ledger/bin/mozilla/is.pl
deleted file mode 100644
index 605380d5d..000000000
--- a/sql-ledger/bin/mozilla/is.pl
+++ /dev/null
@@ -1,932 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Inventory invoicing module
-#
-#======================================================================
-
-
-use SL::IS;
-use SL::PE;
-
-require "$form->{path}/arap.pl";
-require "$form->{path}/io.pl";
-
-
-1;
-# end of main
-
-
-
-sub add {
-
-  $form->{title} = $locale->text('Add Sales Invoice');
-
-  $form->{callback} = "$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &invoice_links;
-  &prepare_invoice;
-  &display_form;
-  
-}
-
-
-sub edit {
-
-  $form->{title} = $locale->text('Edit Sales Invoice');
-
-  &invoice_links;
-  &prepare_invoice;
-  &display_form;
-  
-}
-
-
-sub invoice_links {
-
-  $form->{vc} = 'customer';
-
-  # create links
-  $form->create_links("AR", \%myconfig, "customer");
-  
-  # currencies
-  @curr = split /:/, $form->{currencies};
-  chomp $curr[0];
-  $form->{defaultcurrency} = $curr[0];
-
-  map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
-
-  if ($form->{all_customer}) {
-    unless ($form->{customer_id}) {
-      $form->{customer_id} = $form->{all_customer}->[0]->{id};
-    }
-  }
-
-  IS->get_customer(\%myconfig, \%$form);
-  delete $form->{notes};
-  IS->retrieve_invoice(\%myconfig, \%$form);
-
-  $form->{oldlanguage_code} = $form->{language_code};
-  
-  $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} });
-  if (@{ $form->{all_partsgroup} }) {
-    $form->{selectpartsgroup} = "<option>\n";
-    foreach $ref (@ { $form->{all_partsgroup} }) {
-      if ($ref->{translation}) {
-	$form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|;
-      } else {
-	$form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
-      }
-    }
-  }
-  
-  if (@{ $form->{all_projects} }) {
-    $form->{selectprojectnumber} = "<option>\n";
-    map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} };
-  }
-
-  $form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
-  $form->{oldtransdate} = $form->{transdate};
-  
-  if ($form->{all_customer}) {
-    $form->{customer} = "$form->{customer}--$form->{customer_id}";
-    map { $form->{selectcustomer} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_customer} });
-  }
-
-  # departments
-  if ($form->{all_departments}) {
-    $form->{selectdepartment} = "<option>\n";
-    $form->{department} = "$form->{department}--$form->{department_id}";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-  
-  $form->{employee} = "$form->{employee}--$form->{employee_id}";
-  # sales staff
-  if ($form->{all_employees}) {
-    $form->{selectemployee} = "";
-    map { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_employees} });
-  }
-  
-  if (@{ $form->{all_languages} }) {
-    $form->{selectlanguage} = "<option>\n";
-    map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} };
-  }
-  
-  # forex
-  $form->{forex} = $form->{exchangerate};
-  $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
-  
-  foreach $key (keys %{ $form->{AR_links} }) {
-    foreach $ref (@{ $form->{AR_links}{$key} }) {
-      $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";
-    }
-
-    if ($key eq "AR_paid") {
-      for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
-	$form->{"AR_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
-	# reverse paid
-	$form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount} * -1;
-	$form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate};
-	$form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate};
-	$form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source};
-	$form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo};
-	
-	$form->{paidaccounts} = $i;
-      }
-    } else {
-      $form->{$key} = "$form->{acc_trans}{$key}->[0]->{accno}--$form->{acc_trans}{$key}->[0]->{description}";
-    }
-    
-  }
-
-  $form->{paidaccounts} = 1 unless (exists $form->{paidaccounts});
-
-  $form->{AR} = $form->{AR_1} unless $form->{id};
-  
-  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
-
-  $form->{readonly} = 1 if $myconfig{acs} =~ /AR--Sales Invoice/;
-
-}
-
-
-sub prepare_invoice {
-
-  $form->{type} = "invoice";
-  $form->{formname} = "invoice";
-  $form->{format} = "postscript" if $myconfig{printer};
-  $form->{media} = $myconfig{printer};
-  
-  $form->{oldcurrency} = $form->{currency};
-  
-  if ($form->{id}) {
-    
-    map { $form->{$_} = $form->quote($form->{$_}) } qw(invnumber ordnumber quonumber shippingpoint shipvia notes intnotes);
-
-    foreach $ref (@{ $form->{invoice_details} } ) {
-      $i++;
-      map { $form->{"${_}_$i"} = $ref->{$_} } keys %{ $ref };
-
-      $form->{"projectnumber_$i"} = qq|$ref->{projectnumber}--$ref->{project_id}|;
-      $form->{"partsgroup_$i"} = qq|$ref->{partsgroup}--$ref->{partsgroup_id}|;
-
-      $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
-
-      ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $decimalplaces = ($dec > 2) ? $dec : 2;
-
-      $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
-      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
-      $form->{"oldqty_$i"} = $form->{"qty_$i"};
-      
-      map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit);
-      $form->{rowcount} = $i;
-    }
-  }
-  
-}
-
-
-
-sub form_header {
-
-  # set option selected
-  foreach $item (qw(AR currency)) {
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
-  }
-  
-  foreach $item (qw(customer department employee)) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"});
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/;
-  }
-    
-  $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
-
- 
-  $exchangerate = "";
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    if ($form->{forex}) {
-      $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>|;
-    } else {
-      $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|;
-    }
-  }
-  $exchangerate .= qq|
-<input type=hidden name=forex value=$form->{forex}>
-|;
-
-  if ($form->{selectcustomer}) {
-    $customer = qq|<select name=customer>$form->{selectcustomer}</select>
-                   <input type=hidden name="selectcustomer" value="|.
-		   $form->escape($form->{selectcustomer},1).qq|">|;
-  } else {
-    $customer = qq|<input name=customer value="$form->{customer}" size=35>|;
-  }
-  
-  $department = qq|
-              <tr>
-	        <th align="right" nowrap>|.$locale->text('Department').qq|</th>
-		<td colspan=3><select name=department>$form->{selectdepartment}</select>
-		<input type=hidden name=selectdepartment value="|.
-		$form->escape($form->{selectdepartment},1).qq|">
-		</td>
-	      </tr>
-| if $form->{selectdepartment};
-
-
-  $n = ($form->{creditremaining} < 0) ? "0" : "1";
-
-
-  if ($form->{business}) {
-    $business = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Business').qq|</th>
-		<td>$form->{business}</td>
-		<th align=right>|.$locale->text('Trade Discount').qq|</th>
-		<td>|.$form->format_amount(\%myconfig, $form->{tradediscount} * 100).qq| %</td>
-	      </tr>
-|;
-  }
-
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action="$form->{script}#end">
-
-<input type=hidden name=id value=$form->{id}>
-
-<input type=hidden name=type value=$form->{type}>
-<input type=hidden name=media value=$form->{media}>
-<input type=hidden name=format value=$form->{format}>
-
-<input type=hidden name=queued value="$form->{queued}">
-<input type=hidden name=printed value="$form->{printed}">
-<input type=hidden name=emailed value="$form->{emailed}">
-
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=vc value=$form->{vc}>
-
-<input type=hidden name=terms value=$form->{terms}>
-
-<input type=hidden name=discount value=$form->{discount}>
-<input type=hidden name=creditlimit value=$form->{creditlimit}>
-<input type=hidden name=creditremaining value=$form->{creditremaining}>
-
-<input type=hidden name=tradediscount value=$form->{tradediscount}>
-<input type=hidden name=business value="$form->{business}">
-
-<input type=hidden name=closedto value=$form->{closedto}>
-<input type=hidden name=locked value=$form->{locked}>
-
-<input type=hidden name=shipped value=$form->{shipped}>
-
-<input type=hidden name=oldtransdate value=$form->{oldtransdate}>
-
-
-<table width=100%>
-  <tr class=listtop>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Customer').qq|</th>
-		<td colspan=3>$customer</td>
-		<input type=hidden name=customer_id value=$form->{customer_id}>
-		<input type=hidden name=oldcustomer value="$form->{oldcustomer}"> 
-	      </tr>
-	      <tr>
-		<td></td>
-		<td colspan=3>
-		  <table>
-		    <tr>
-		      <th nowrap>|.$locale->text('Credit Limit').qq|</th>
-		      <td>|.$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0").qq|</td>
-		      <td width=20%></td>
-		      <th nowrap>|.$locale->text('Remaining').qq|</th>
-		      <td class="plus$n" nowrap>|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-	      $business
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Record in').qq|</th>
-		<td colspan=3><select name=AR>$form->{selectAR}</select></td>
-		<input type=hidden name=selectAR value="$form->{selectAR}">
-	      </tr>
-	      $department
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Currency').qq|</th>
-		<td><select name=currency>$form->{selectcurrency}</select></td>
-		<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-		<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
-		<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
-		<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
-		$exchangerate
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Shipping Point').qq|</th>
-		<td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Ship via').qq|</th>
-		<td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td>
-	      </tr>
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      <tr>
-	        <th align=right nowrap>|.$locale->text('Salesperson').qq|</th>
-		<td><select name=employee>$form->{selectemployee}</select></td>
-		<input type=hidden name=selectemployee value="|.
-		$form->escape($form->{selectemployee},1).qq|">
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
-		<td><input name=invnumber size=20 value="$form->{invnumber}"></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
-		<td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>
-<input type=hidden name=quonumber value="$form->{quonumber}">
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Invoice Date').qq|</th>
-		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Due Date').qq|</th>
-		<td><input name=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-    </td>
-  </tr>
-<!-- shipto are in hidden variables -->
-
-<input type=hidden name=shiptoname value="$form->{shiptoname}">
-<input type=hidden name=shiptoaddress1 value="$form->{shiptoaddress1}">
-<input type=hidden name=shiptoaddress2 value="$form->{shiptoaddress2}">
-<input type=hidden name=shiptocity value="$form->{shiptocity}">
-<input type=hidden name=shiptostate value="$form->{shiptostate}">
-<input type=hidden name=shiptozipcode value="$form->{shiptozipcode}">
-<input type=hidden name=shiptocountry value="$form->{shiptocountry}">
-<input type=hidden name=shiptocontact value="$form->{shiptocontact}">
-<input type=hidden name=shiptophone value="$form->{shiptophone}">
-<input type=hidden name=shiptofax value="$form->{shiptofax}">
-<input type=hidden name=shiptoemail value="$form->{shiptoemail}">
-
-<!-- email variables -->
-<input type=hidden name=message value="$form->{message}">
-<input type=hidden name=email value="$form->{email}">
-<input type=hidden name=subject value="$form->{subject}">
-<input type=hidden name=cc value="$form->{cc}">
-<input type=hidden name=bcc value="$form->{bcc}">
-
-<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
-|;
-
-  foreach $item (split / /, $form->{taxaccounts}) {
-    print qq|
-<input type=hidden name="${item}_rate" value="$form->{"${item}_rate"}">
-<input type=hidden name="${item}_description" value="$form->{"${item}_description"}">
-<input type=hidden name="${item}_taxnumber" value="$form->{"${item}_taxnumber"}">
-|;
-  }
-
-}
-
-
-
-sub form_footer {
-
-  $form->{invtotal} = $form->{invsubtotal};
-
-  if (($rows = $form->numtextrows($form->{notes}, 26, 8)) < 2) {
-    $rows = 2;
-  }
-  if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) {
-    $introws = 2;
-  }
-  $rows = ($rows > $introws) ? $rows : $introws;
-  $notes = qq|<textarea name=notes rows=$rows cols=26 wrap=soft>$form->{notes}</textarea>|;
-  $intnotes = qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;
-
-  $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
-
-  $taxincluded = "";
-  if ($form->{taxaccounts}) {
-    $taxincluded = qq|
-              <tr height="5"></tr>
-              <tr>
-	        <td align=right>
-	        <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td><th align=left>|.$locale->text('Tax Included').qq|</th>
-	     </tr>
-|;
-  }
-
-  if (!$form->{taxincluded}) {
-    
-    foreach $item (split / /, $form->{taxaccounts}) {
-      if ($form->{"${item}_base"}) {
-	$form->{"${item}_total"} = $form->round_amount($form->{"${item}_base"} * $form->{"${item}_rate"}, 2);
-	$form->{invtotal} += $form->{"${item}_total"};
-	$form->{"${item}_total"} = $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2);
-	
-	$tax .= qq|
-	      <tr>
-		<th align=right>$form->{"${item}_description"}</th>
-		<td align=right>$form->{"${item}_total"}</td>
-	      </tr>
-|;
-      }
-    }
-
-    $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0);
-    
-    $subtotal = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Subtotal').qq|</th>
-		<td align=right>$form->{invsubtotal}</td>
-	      </tr>
-|;
-
-  }
-
-  $form->{oldinvtotal} = $form->{invtotal};
-  $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0);
-  
-  print qq|
-  <tr>
-    <td>
-      <table width=100%>
-	<tr valign=bottom>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=left>|.$locale->text('Notes').qq|</th>
-		<th align=left>|.$locale->text('Internal Notes').qq|</th>
-	      </tr>
-	      <tr valign=top>
-		<td>$notes</td>
-		<td>$intnotes</td>
-	      </tr>
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      $subtotal
-	      $tax
-	      <tr>
-		<th align=right>|.$locale->text('Total').qq|</th>
-		<td align=right>$form->{invtotal}</td>
-	      </tr>
-	      $taxincluded
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-	  <th colspan=6 class=listheading>|.$locale->text('Payments')
-	  .qq|</th>
-	</tr>
-|;
-
-  if ($form->{currency} eq $form->{defaultcurrency}) {
-    @column_index = qw(datepaid source memo paid AR_paid);
-  } else {
-    @column_index = qw(datepaid source memo paid exchangerate AR_paid);
-  }
-
-  $column_data{datepaid} = "<th>".$locale->text('Date')."</th>";
-  $column_data{paid} = "<th>".$locale->text('Amount')."</th>";
-  $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>";
-  $column_data{AR_paid} = "<th>".$locale->text('Account')."</th>";
-  $column_data{source} = "<th>".$locale->text('Source')."</th>";
-  $column_data{memo} = "<th>".$locale->text('Memo')."</th>";
-  
-  print "
-	<tr>
-";
-  map { print "$column_data{$_}\n" } @column_index;
-  print "
-        </tr>
-";
-  
-  $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
-  for $i (1 .. $form->{paidaccounts}) {
-
-    print "
-        <tr>\n";
-
-    $form->{"selectAR_paid_$i"} = $form->{selectAR_paid};
-    $form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/;
-    
-    # format amounts
-    $totalpaid += $form->{"paid_$i"};
-    $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
-    $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
-
-    $exchangerate = qq|&nbsp;|;
-    if ($form->{currency} ne $form->{defaultcurrency}) {
-      if ($form->{"forex_$i"}) {
-	$exchangerate = qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|;
-      } else {
-	$exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
-      }
-    }
-
-    $exchangerate .= qq|
-<input type=hidden name="forex_$i" value=$form->{"forex_$i"}>
-|;
-
-    $column_data{"paid_$i"} = qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|;
-    $column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|;
-    $column_data{"AR_paid_$i"} = qq|<td align=center><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|;
-    $column_data{"datepaid_$i"} = qq|<td align=center><input name="datepaid_$i" size=11 title="$myconfig{dateformat}" value=$form->{"datepaid_$i"}></td>|;
-    $column_data{"source_$i"} = qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
-    $column_data{"memo_$i"} = qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|;
-
-    map { print qq|$column_data{"${_}_$i"}\n| } @column_index;
-    print "
-        </tr>\n";
-  }
-
-  print qq|
-<input type=hidden name=paidaccounts value=$form->{paidaccounts}>
-<input type=hidden name=selectAR_paid value="$form->{selectAR_paid}">
-<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
-<input type=hidden name=oldtotalpaid value=$totalpaid>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-  <tr>
-    <td>
-|;
-
-  &print_options;
-
-  print qq|
-    </td>
-  </tr>
-</table>
-<br>
-|;
-
-
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-
-  if (! $form->{readonly}) {
-    
-    if ($form->{id}) {
-      
-      print qq|
-      <input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-      <input class=submit type=submit name=action value="|.$locale->text('Ship to').qq|">
-      <input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-      <input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|">
-|;
-
-        if (! $form->{locked}) {
-	  print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|;
-
-	  if ($latex) {
-	    print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">|;
-	  }
-
-	  print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">
-|;
-	}
-
-	print qq|
-      <input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|">
-      <input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|">
-|;
-
-    } else {
-
-      if ($transdate > $closedto) {
-	print qq|
-        <input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Ship to').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|">
-	<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|;
-
-	if ($latex) {
-	  print qq|
-	<input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">|;
-	}
-      }
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-
-<input type=hidden name=rowcount value=$form->{rowcount}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-</form>
-
-<a name="end"></a>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub update {
-
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate);
-  
-  &check_name(customer);
-
-  if ($form->{transdate} ne $form->{oldtransdate}) {
-    $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1);
-    $form->{oldtransdate} = $form->{transdate};
-  }
-
-
-  $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'buy')));
-
-  $j = 1;
-  for $i (1 .. $form->{paidaccounts}) {
-    if ($form->{"paid_$i"}) {
-      map { $form->{"${_}_$j"} = $form->{"${_}_$i"} } qw(datepaid source memo);
-      map { $form->{"${_}_$j"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
-
-      $form->{"exchangerate_$j"} = $exchangerate if ($form->{"forex_$j"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$j"}, 'buy')));
-      map { delete $form->{"${_}_$i"} } qw(datepaid source memo paid exchangerate forex) if $j != $i;
-      $j++;
-    } else {
-      map { delete $form->{"${_}_$i"} } qw(datepaid source memo paid exchangerate forex);
-    }
-    $form->{paidaccounts} = $j;
-  }
-
-  $i = $form->{rowcount};
-  $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
-
-  foreach $item (qw(partsgroup projectnumber)) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"}) if $form->{"select$item"};
-  }
-    
-  # if last row empty, check the form otherwise retrieve new item
-  if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq "")) {
-
-    $form->{creditremaining} += ($form->{oldinvtotal} - $form->{oldtotalpaid});
-    &check_form;
-
-  } else {
-
-    IS->retrieve_item(\%myconfig, \%$form);
-    
-    $rows = scalar @{ $form->{item_list} };
-
-    $form->{"discount_$i"}	= $form->format_amount(\%myconfig, $form->{discount} * 100);
-
-    if ($rows > 0) {
-      $form->{"qty_$i"}		= ($form->{"qty_$i"} * 1) ? $form->{"qty_$i"} : 1;
-      
-      if ($rows > 1) {
-	
-	&select_item;
-	exit;
-	
-      } else {
-
-        $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
-	
-	map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description unit);
-	map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
-	
-	$form->{"discount_$i"} = $form->{discount} * 100;
-	
-	$s = ($sellprice) ? $sellprice : $form->{"sellprice_$i"};
-	($dec) = ($s =~ /\.(\d+)/);
-	$dec = length $dec;
-	$decimalplaces = ($dec > 2) ? $dec : 2;
-
-	if ($sellprice) {
-	  $form->{"sellprice_$i"} = $sellprice;
-	} else {
-	  # if there is an exchange rate adjust sellprice
-	  $form->{"sellprice_$i"} *= (1 - $form->{tradediscount});
-	  $form->{"sellprice_$i"} /= $exchangerate;
-	}
-	
-	map { $form->{"${_}_$i"} /= $exchangerate } qw(listprice lastcost);
-
-        $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"} / 100);
-	map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts});
-        map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
-	map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
-	
-        $form->{creditremaining} -= $amount;
-	
-	map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost);
-	
-	$form->{"qty_$i"} =  $form->format_amount(\%myconfig, $form->{"qty_$i"});
-      }
-
-      &display_form;
-
-    } else {
-      # ok, so this is a new part
-      # ask if it is a part or service item
-
-      if ($form->{"partsgroup_$i"} && ($form->{"partsnumber_$i"} eq "") && ($form->{"description_$i"} eq "")) {
-	$form->{rowcount}--;
-	$form->{"discount_$i"} = "";
-	&display_form;
-      } else {
-	
-	$form->{"id_$i"}          = 0;
-	$form->{"unit_$i"}        = $locale->text('ea');
-
-	&new_item;
-	
-      }
-    }
-  }
-}
-
-
-
-sub post {
-
-  $form->isblank("transdate", $locale->text('Invoice Date missing!'));
-  $form->isblank("customer", $locale->text('Customer missing!'));
-
-  # if oldcustomer ne customer redo form
-  if (&check_name(customer)) {
-    &update;
-    exit;
-  }
-
-  &validate_items;
-
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-  
-  $form->error($locale->text('Cannot post invoice for a closed period!')) if ($transdate <= $closedto);
-
-  $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency});
-  
-  for $i (1 .. $form->{paidaccounts}) {
-    if ($form->{"paid_$i"}) {
-      $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);
-
-      $form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
-      
-      $form->error($locale->text('Cannot post payment for a closed period!')) if ($datepaid <= $closedto);
-
-      if ($form->{currency} ne $form->{defaultcurrency}) {
-	$form->{"exchangerate_$i"} = $form->{exchangerate} if ($transdate == $datepaid);
-	$form->isblank("exchangerate_$i", $locale->text('Exchange rate for payment missing!'));
-      }
-    }
-  }
-
-  
-  ($form->{AR}) = split /--/, $form->{AR};
-  ($form->{AR_paid}) = split /--/, $form->{AR_paid};
-  
-  $form->{label} = $locale->text('Invoice');
-
-  $form->{id} = 0 if $form->{postasnew};
-  
-  $form->{invnumber} = $form->update_defaults(\%myconfig, "sinumber") unless $form->{invnumber};
-
-  $form->redirect($locale->text('Invoice posted!')) if (IS->post_invoice(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot post invoice!'));
-    
-}
-
-
-sub print_and_post {
-
-  $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;
-  $form->error($locale->text('Select Printer or Queue!')) if $form->{media} eq 'screen';
-
-  $old_form = new Form;
-  $form->{display_form} = "post";
-  map { $old_form->{$_} = $form->{$_} } keys %$form;
-  $old_form->{rowcount}++;
-
-  &print_form($old_form);
-
-}
-
-
-
-sub delete {
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-  # delete action variable
-  map { delete $form->{$_} } qw(action header);
-
-  $form->hide_form();
-
-  print qq|
-<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2>
-
-<h4>|.$locale->text('Are you sure you want to delete Invoice Number').qq| $form->{invnumber}
-</h4>
-
-<p>
-<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|">
-</form>
-|;
-
-
-}
-
-
-
-sub yes {
-
-  $form->redirect($locale->text('Invoice deleted!')) if (IS->delete_invoice(\%myconfig, \%$form, $spool));
-  $form->error($locale->text('Cannot delete invoice!'));
-
-}
-
-
-sub redirect {
-
-  $form->redirect;
-  $form->error($locale->text('Invoice processed!'));
-
-}
-
diff --git a/sql-ledger/bin/mozilla/login.pl b/sql-ledger/bin/mozilla/login.pl
deleted file mode 100644
index 1cf1f729f..000000000
--- a/sql-ledger/bin/mozilla/login.pl
+++ /dev/null
@@ -1,325 +0,0 @@
-######################################################################
-# SQL-Ledger Accounting
-# Copyright (c) 2000
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-######################################################################
-#
-# login frontend
-#
-#######################################################################
-
-
-use DBI;
-use SL::User;
-use SL::Form;
-
-
-$form = new Form;
-
-$locale = new Locale $language, "login";
-
-# customization
-if (-f "$form->{path}/custom_$form->{script}") {
-  eval { require "$form->{path}/custom_$form->{script}"; };
-  $form->error($@) if ($@);
-}
-
-# per login customization
-if (-f "$form->{path}/$form->{login}_$form->{script}") {
-  eval { require "$form->{path}/$form->{login}_$form->{script}"; };
-  $form->error($@) if ($@);
-}
-
-# window title bar, user info
-$form->{titlebar} = "SQL-Ledger ".$locale->text('Version'). " $form->{version}";
-
-if ($form->{action}) {
-  $form->{titlebar} .= " - $myconfig{name} - $myconfig{dbname}";
-  &{ $locale->findsub($form->{action}) };
-} else {
-  &login_screen;
-}
-
-
-1;
-
-
-sub login_screen {
-
-  $form->{stylesheet} = "sql-ledger.css";
-  $form->{favicon} = "sql-ledger.ico";
-
-  $form->{endsession} = 1;
-  $form->header(1);
-
-  if ($form->{login}) {
-   $sf = qq|function sf() { document.login.password.focus(); }|;
-  } else {
-   $sf = qq|function sf() { document.login.login.focus(); }|;
-  }
-
-  if ($form->{jsc} && -d 'bin/js') {
-  print qq|
-<script language="JavaScript" type="text/javascript">
-<!--
-var agt = navigator.userAgent.toLowerCase();
-var is_major = parseInt(navigator.appVersion);
-var is_nav = ((agt.indexOf('mozilla') != -1) && (agt.indexOf('spoofer') == -1)
-           && (agt.indexOf('compatible') == -1) && (agt.indexOf('opera') == -1)
-	   && (agt.indexOf('webtv') == -1));
-var is_nav4lo = (is_nav && (is_major <= 4));
-
-function jsp() {
-  if (is_nav4lo)
-    document.login.path.value = "bin/mozilla"
-  else
-    document.login.path.value = "bin/js"
-}
-$sf
-// End -->
-</script>
-|;
-  }
-
-  print qq|
-
-<body class=login onload="jsp(); sf()">
-
-<pre>
-
-</pre>
-
-<center>
-<table class=login border=3 cellpadding=20>
-  <tr>
-    <td class=login align=center><a href="http://www.sql-ledger.org" target=_top><img src=sql-ledger.gif border=0></a>
-<h1 class=login align=center>|.$locale->text('Version').qq| $form->{version}
-</h1>
-
-<p>
-
-<form method=post action=$form->{script} name=login>
-
-      <table width=100%>
-	<tr>
-	  <td align=center>
-	    <table>
-	      <tr>
-		<th align=right>|.$locale->text('Name').qq|</th>
-		<td><input class=login name=login size=30 value=$form->{login}></td>
-	      </tr> 
-	      <tr>
-		<th align=right>|.$locale->text('Password').qq|</th>
-		<td><input class=login type=password name=password size=30></td>
-	      </tr>
-	      <input type=hidden name=path value=$form->{path}>
-	    </table>
-
-	    <br>
-	    <input type=submit name=action value="|.$locale->text('Login').qq|">
-	  </td>
-	</tr>
-      </table>
-
-</form>
-
-    </td>
-  </tr>
-</table>
-  
-</body>
-</html>
-|;
-
-}
-
-
-sub selectdataset {
-  my ($login) = @_;
-  
-  if (-f "css/sql-ledger.css") {
-    $form->{stylesheet} = "sql-ledger.css";
-  }
-
-  $form->header;
-
-  print qq|
-<body class=login>
-
-<pre>
-
-</pre>
-
-<center>
-<table class=login border=3 cellpadding=20>
-  <tr>
-    <td class=login align=center><a href="http://www.sql-ledger.org" target=_top><img src=sql-ledger.gif border=0></a>
-<h1 class=login align=center>|.$locale->text('Version').qq| $form->{version}
-</h1>
-
-<p>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=beenthere value=1>
-
-      <table width=100%>
-	<tr>
-	  <td align=center>
-	    <table>
-	      <tr>
-		<th align=right>|.$locale->text('Name').qq|</th>
-		<td>$form->{login}</td>
-	      </tr> 
-	      <tr>
-		<th align=right>|.$locale->text('Password').qq|</th>
-		<td><input class=login type=password name=password size=30 value=$form->{password}></td>
-	      </tr>
-	      <input type=hidden name=path value=$form->{path}>
-	      <tr>
-		<th align=right>|.$locale->text('Company').qq|</th>
-		<td>|;
-		
-		$checked = "checked";
-		foreach $login (sort { $login{$a} cmp $login{$b} } keys %{ $login }) {
-		  print qq|
-		  <br><input class=login type=radio name=login value=$login $checked>$login{$login}
-		  |;
-		  $checked = "";
-		}
-
-		print qq|
-		  </td>
-	      </tr>
-	    </table>
-	    <br>
-	    <input type=submit name=action value="|.$locale->text('Login').qq|">
-	  </td>
-	</tr>
-      </table>
-
-</form>
-
-    </td>
-  </tr>
-</table>
-  
-</body>
-</html>
-|;
-
-
-}
-
-
-sub login {
-
-  $form->{stylesheet} = "sql-ledger.css";
-  $form->{favicon} = "sql-ledger.ico";
-  
-  $form->error($locale->text('You did not enter a name!')) unless ($form->{login});
-
-  if (! $form->{beenthere}) {
-    open(FH, "$memberfile") or $form->error("$memberfile : $!");
-    @a = <FH>;
-    close(FH);
-
-    @login = grep { s/\[(.*)\]/$1/ } @a;
-    @company = grep { s/company=(.*)/$1/ } @a;
-    shift @login;
-
-    for ($i = 0; $i <= $#login; $i++) {
-      chop $login[$i];
-      if (($form->{login} eq $login[$i]) || ($login[$i] =~ /$form->{login}@/)) {
-	chop $company[$i];
-	$login{$login[$i]} = $company[$i];
-      }
-    }
-
-    if (keys %login > 1) {
-      &selectdataset(\%login);
-      exit;
-    }
-  }
-
-
-  $user = new User $memberfile, $form->{login};
-
-  # if we get an error back, bale out
-  if (($errno = $user->login(\%$form, $userspath)) <= -1) {
-
-    $errno *= -1;
-    $err[1] = $locale->text('Incorrect Password!');
-    $err[2] = $locale->text('Incorrect Dataset version!');
-    $err[3] = qq|$form->{login} |.$locale->text('is not a member!');
-    $err[4] = $locale->text('Dataset is newer than version!');
-    
-    if ($errno == 5) {
-      # upgrade dataset and log in again
-      open FH, ">$userspath/nologin" or $form->error($!);
-
-      map { $form->{$_} = $user->{$_} } qw(dbname dbhost dbport dbdriver dbuser dbpasswd);
-
-      $form->{dbpasswd} = unpack 'u', $form->{dbpasswd};
-      
-      $form->{dbupdate} = "db$user->{dbname}";
-      $form->{$form->{dbupdate}} = 1;
-
-      $form->header;
-      print $locale->text('Upgrading to Version')." $form->{version} ... ";
-
-      # required for Oracle
-      $form->{dbdefault} = $sid;
-
-      $user->dbupdate(\%$form);
-
-      # remove lock file
-      unlink "$userspath/nologin";
-
-      print $locale->text('done');
-
-      print "<p><a href=menu.pl?login=$form->{login}&sessionid=$form->{sessionid}&path=$form->{path}&action=display>".$locale->text('Continue')."</a>";
-
-      exit;
-    }
-    
-    $form->error($err[$errno]);
-  }
-
-
-  # made it this far, execute the menu
-  $form->{callback} = "menu.pl?login=$form->{login}&path=$form->{path}&action=display";
-
-  $form->redirect;
-  
-}
-
-
-
-sub logout {
-
-  $jsc = $form->{path} =~ /js/;
-  $form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}&jsc=$jsc";
-  
-  $form->redirect;
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/menu.pl b/sql-ledger/bin/mozilla/menu.pl
deleted file mode 100644
index fab2905e0..000000000
--- a/sql-ledger/bin/mozilla/menu.pl
+++ /dev/null
@@ -1,158 +0,0 @@
-######################################################################
-# SQL-Ledger Accounting
-# Copyright (c) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#  Contributors: Christopher Browne
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#######################################################################
-#
-# two frame layout with refractured menu
-#
-#######################################################################
-
-$menufile = "menu.ini";
-use SL::Menu;
-
-
-1;
-# end of main
-
-
-sub display {
-
-  $menuwidth = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "155";
-  $menuwidth = $myconfig{menuwidth} if $myconfig{menuwidth};
-
-  $form->header(1);
-
-  print qq|
-
-<FRAMESET COLS="$menuwidth,*" BORDER="1">
-
-  <FRAME NAME="acc_menu" SRC="$form->{script}?login=$form->{login}&sessionid=$form->{sessionid}&action=acc_menu&path=$form->{path}">
-  <FRAME NAME="main_window" SRC="am.pl?login=$form->{login}&sessionid=$form->{sessionid}&action=company_logo&path=$form->{path}">
-
-</FRAMESET>
-
-</BODY>
-</HTML>
-|;
-
-}
-
-
-
-sub acc_menu {
-
-  my $menu = new Menu "$menufile";
-  $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
-  $menu = new Menu "$form->{login}_$menufile" if (-f "$form->{login}_$menufile");
-  
-  $form->{title} = $locale->text('Accounting Menu');
-  
-  $form->header;
-
-  print qq|
-<body class=menu>
-
-|;
-
-  &section_menu($menu);
-
-  print qq|
-</body>
-</html>
-|;
-
-}
-
-
-sub section_menu {
-  my ($menu, $level) = @_;
-
-  # build tiered menus
-  my @menuorder = $menu->access_control(\%myconfig, $level);
-
-  while (@menuorder) {
-    $item = shift @menuorder;
-    $label = $item;
-    $label =~ s/$level--//g;
-
-    my $spacer = "&nbsp;" x (($item =~ s/--/--/g) * 2);
-
-    $label =~ s/.*--//g;
-    $label = $locale->text($label);
-    $label =~ s/ /&nbsp;/g if $label !~ /<img /i;
-
-    $menu->{$item}{target} = "main_window" unless $menu->{$item}{target};
-    
-    if ($menu->{$item}{submenu}) {
-
-      $menu->{$item}{$item} = !$form->{$item};
-
-      if ($form->{level} && $item =~ $form->{level}) {
-
-        # expand menu
-	print qq|<br>\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a>|;
-
-	# remove same level items
-	map { shift @menuorder } grep /^$item/, @menuorder;
-	
-	&section_menu($menu, $item);
-
-	print qq|<br>\n|;
-
-      } else {
-
-	print qq|<br>\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label&nbsp;...</a>|;
-
-        # remove same level items
-	map { shift @menuorder } grep /^$item/, @menuorder;
-
-      }
-      
-    } else {
-    
-      if ($menu->{$item}{module}) {
-
-	print qq|<br>\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a>|;
-	
-      } else {
-
-        $form->{tag}++;
-	print qq|<a name="id$form->{tag}"></a>
-	<p><b>$label</b>|;
-	
-	&section_menu($menu, $item);
-
-	print qq|<br>\n|;
-
-      }
-    }
-  }
-}
-
-
-sub menubar {
-
-  1;
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/oe.pl b/sql-ledger/bin/mozilla/oe.pl
deleted file mode 100644
index 1c494c11f..000000000
--- a/sql-ledger/bin/mozilla/oe.pl
+++ /dev/null
@@ -1,2470 +0,0 @@
-#=====================================================================
-# SQL-Ledger, Accounting
-# Copyright (c) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Order entry module
-# Quotation module
-#
-#======================================================================
-
-
-use SL::OE;
-use SL::IR;
-use SL::IS;
-use SL::PE;
-
-require "$form->{path}/arap.pl";
-require "$form->{path}/io.pl";
-
-
-1;
-# end of main
-
-
-sub add {
-
-  if ($form->{type} eq 'purchase_order') {
-    $form->{title} = $locale->text('Add Purchase Order');
-    $form->{vc} = 'vendor';
-  }
-  if ($form->{type} eq 'sales_order') {
-    $form->{title} = $locale->text('Add Sales Order');
-    $form->{vc} = 'customer';
-  }
-  if ($form->{type} eq 'request_quotation') {
-    $form->{title} = $locale->text('Add Request for Quotation');
-    $form->{vc} = 'vendor';
-  }
-  if ($form->{type} eq 'sales_quotation') {
-    $form->{title} = $locale->text('Add Quotation');
-    $form->{vc} = 'customer';
-  }
-
-  $form->{callback} = "$form->{script}?action=add&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}" unless $form->{callback};
-  
-  &order_links;
-  &prepare_order;
-  &display_form;
-
-}
-
-
-sub edit {
-  
-  if ($form->{type} =~ /(purchase_order|bin_list)/) {
-    $form->{title} = $locale->text('Edit Purchase Order');
-    $form->{vc} = 'vendor';
-    $form->{type} = 'purchase_order';
-  }
-  if ($form->{type} =~ /((sales|work)_order|(packing|pick)_list)/) {
-    $form->{title} = $locale->text('Edit Sales Order');
-    $form->{vc} = 'customer';
-    $form->{type} = 'sales_order';
-  }
-  if ($form->{type} eq 'request_quotation') {
-    $form->{title} = $locale->text('Edit Request for Quotation');
-    $form->{vc} = 'vendor';
-  }
-  if ($form->{type} eq 'sales_quotation') {
-    $form->{title} = $locale->text('Edit Quotation');
-    $form->{vc} = 'customer';
-  }
-
-  &order_links;
-  &prepare_order;
-  &display_form;
-  
-}
-
-
-
-sub order_links {
-  
-  # get customer/vendor
-  $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");
-  
-  $form->get_partsgroup(\%myconfig);
-  if (@{ $form->{all_partsgroup} }) {
-    $form->{selectpartsgroup} = "<option>\n";
-    map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} }; 
-  }
-
-  # retrieve order/quotation
-  OE->retrieve(\%myconfig, \%$form);
-  
-  # currencies
-  @curr = split /:/, $form->{currencies};
-  chomp $curr[0];
-  $form->{defaultcurrency} = $curr[0];
-  $form->{currency} = $form->{defaultcurrency} unless $form->{currency};
-  
-  map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
-
-  $form->{oldlanguage_code} = $form->{language_code};
-  
-  $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} });
-  
-  if (@{ $form->{all_partsgroup} }) {
-    $form->{selectpartsgroup} = "<option>\n";
-    foreach $ref (@ { $form->{all_partsgroup} }) {
-      if ($ref->{translation}) {
-	$form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|;
-      } else {
-	$form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
-      }
-    }
-  }
-
-  if (@{ $form->{all_projects} }) {
-    $form->{selectprojectnumber} = "<option>\n";
-    map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} };
-  }
- 
-  $form->{shipto} = 1 if $form->{id};
-
-  if (@{ $form->{"all_$form->{vc}"} }) {
-    unless ($form->{"$form->{vc}_id"}) {
-      $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
-    }
-  }
-  
-  # get customer / vendor
-  if ($form->{type} =~ /(purchase_order|request_quotation|receive_order)/ ) {
-    IR->get_vendor(\%myconfig, \%$form);
-  }
-  if ($form->{type} =~ /(sales|ship)_(order|quotation)/) {
-    IS->get_customer(\%myconfig, \%$form);
-  }
-
-  ($form->{$form->{vc}}) = split /--/, $form->{$form->{vc}};
-  $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
-
-  # build selection list
-  if (@{ $form->{"all_$form->{vc}"} }) {
-    $form->{$form->{vc}} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
-    map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{"all_$form->{vc}"} });
-  }
-  
-  # departments
-  if (@{ $form->{all_departments} }) {
-    $form->{selectdepartment} = "<option>\n";
-    $form->{department} = "$form->{department}--$form->{department_id}";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-
-  $form->{employee} = "$form->{employee}--$form->{employee_id}";
-
-  # sales staff
-  if (@{ $form->{all_employees} }) {
-    $form->{selectemployee} = "";
-    map { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_employees} });
-  }
-
-  if (@{ $form->{all_languages} }) {
-    $form->{selectlanguage} = "<option>\n";
-    map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} };
-  }
-  
-  # forex
-  $form->{forex} = $form->{exchangerate};
-  
-}
-
-
-sub prepare_order {
-
-  $form->{format} = "postscript" if $myconfig{printer};
-  $form->{media} = $myconfig{printer};
-  $form->{formname} = $form->{type};
-  $form->{oldcurrency} = $form->{currency};
- 
-  if ($form->{id}) {
-    
-    map { $form->{$_} = $form->quote($form->{$_}) } qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname shiptoaddress1 shiptoaddress2 shiptocity shiptostate shiptozipcode shiptocountry shiptocontact);
-    
-    foreach $ref (@{ $form->{form_details} } ) {
-      $i++;
-      map { $form->{"${_}_$i"} = $ref->{$_} } keys %{ $ref };
-
-      $form->{"projectnumber_$i"} = qq|$ref->{projectnumber}--$ref->{project_id}|;
-      $form->{"partsgroup_$i"} = qq|$ref->{partsgroup}--$ref->{partsgroup_id}|;
-
-      $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
-
-      ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
-      $dec = length $dec;
-      $decimalplaces = ($dec > 2) ? $dec : 2;
-      
-      $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
-      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
-      $form->{"oldqty_$i"} = $form->{"qty_$i"};
-      
-      map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit);
-      $form->{rowcount} = $i;
-    }
-  }
-
-  if ($form->{type} eq 'sales_quotation') {
-    $form->{readonly} = 1 if $myconfig{acs} =~ /Quotations--Quotation/;
-  }
-  if ($form->{type} eq 'request_quotation') {
-    $form->{readonly} = 1 if $myconfig{acs} =~ /Quotations--RFQ/;
-  }
-  if ($form->{type} eq 'sales_order') {
-    $form->{readonly} = 1 if $myconfig{acs} =~ /Order Entry--Sales Order/;
-  }
-  if ($form->{type} eq 'purchase_order') {
-    $form->{readonly} = 1 if $myconfig{acs} =~ /Order Entry--Purchase Order/;
-  }
-
-}
-
-
-sub form_header {
-
-  $checkedopen = ($form->{closed}) ? "" : "checked";
-  $checkedclosed = ($form->{closed}) ? "checked" : "";
-
-  if ($form->{id}) {
-    $openclosed = qq|
-      <tr>
-	<th nowrap align=right><input name=closed type=radio class=radio value=0 $checkedopen> |.$locale->text('Open').qq|</th>
-	<th nowrap align=left><input name=closed type=radio class=radio value=1 $checkedclosed> |.$locale->text('Closed').qq|</th>
-      </tr>
-|;
-  }
-
-  # set option selected
-  $form->{selectcurrency} =~ s/ selected//;
-  $form->{selectcurrency} =~ s/option>\Q$form->{currency}\E/option selected>$form->{currency}/; 
-  
-  foreach $item ($form->{vc}, department, employee) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"});
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/;
-  }
-  
-    
-  $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
-
-  $exchangerate = qq|
-<input type=hidden name=forex value=$form->{forex}>
-|;
-
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    if ($form->{forex}) {
-      $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td>$form->{exchangerate}</td>
-      <input type=hidden name=exchangerate value=$form->{exchangerate}>
-|;
-    } else {
-      $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|;
-    }
-  }
-
-
-  $vclabel = ucfirst $form->{vc};
-  $vclabel = $locale->text($vclabel);
-
-  $terms = qq|
-                    <tr>
-		      <th align=right nowrap>|.$locale->text('Terms').qq|</th>
-		      <td nowrap><input name=terms size="3" maxlength="3" value=$form->{terms}> |.$locale->text('days').qq|</td>
-                    </tr>
-|;
-
-
-  if ($form->{business}) {
-    $business = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Business').qq|</th>
-		<td>$form->{business}</td>
-		<th align=right>|.$locale->text('Trade Discount').qq|</th>
-		<td>|.$form->format_amount(\%myconfig, $form->{tradediscount} * 100).qq| %</td>
-	      </tr>
-|;
-  }
-
-  if ($form->{type} !~ /_quotation$/) {
-    $ordnumber = qq|
-	      <tr>
-		<th width=70% align=right nowrap>|.$locale->text('Order Number').qq|</th>
-                <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>
-		<input type=hidden name=quonumber value="$form->{quonumber}">
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Order Date').qq|</th>
-		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap=true>|.$locale->text('Required by').qq|</th>
-		<td><input name=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate}></td>
-	      </tr>
-|;
-    
-    $n = ($form->{creditremaining} < 0) ? "0" : "1";
-    
-    $creditremaining = qq|
-	      <tr>
-		<td></td>
-		<td colspan=3>
-		  <table>
-		    <tr>
-		      <th nowrap>|.$locale->text('Credit Limit').qq|</th>
-		      <td>|.$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0").qq|</td>
-		      <td width=20%></td>
-		      <th nowrap>|.$locale->text('Remaining').qq|</th>
-		      <td class="plus$n" nowrap>|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-|;
-  } else {
-    $reqlabel = ($form->{type} eq 'sales_quotation') ? $locale->text('Valid until') : $locale->text('Required by');
-    if ($form->{type} eq 'sales_quotation') {
-      $ordnumber = qq|
-	      <tr>
-		<th width=70% align=right nowrap>|.$locale->text('Quotation Number').qq|</th>
-		<td><input name=quonumber size=20 value="$form->{quonumber}"></td>
-		<input type=hidden name=ordnumber value="$form->{ordnumber}">
-	      </tr>
-|;
-    } else {
-      $ordnumber = qq|
-	      <tr>
-		<th width=70% align=right nowrap>|.$locale->text('RFQ Number').qq|</th>
-		<td><input name=quonumber size=20 value="$form->{quonumber}"></td>
-		<input type=hidden name=ordnumber value="$form->{ordnumber}">
-	      </tr>
-|;
-
-      $terms = "";
-    }
-     
-
-    $ordnumber .= qq|
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Quotation Date').qq|</th>
-		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap=true>$reqlabel</th>
-		<td><input name=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate}></td>
-	      </tr>
-|;
-
-  }
-
-  if ($form->{"select$form->{vc}"}) {
-    $vc = qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}</select>
-             <input type=hidden name="select$form->{vc}" value="|
-	     .$form->escape($form->{"select$form->{vc}"},1).qq|">|;
-  } else {
-    $vc = qq|<input name=$form->{vc} value="$form->{$form->{vc}}" size=35>|;
-  }
-
-  $department = qq|
-              <tr>
-	        <th align="right" nowrap>|.$locale->text('Department').qq|</th>
-		<td colspan=3><select name=department>$form->{selectdepartment}</select>
-		<input type=hidden name=selectdepartment value="|
-		.$form->escape($form->{selectdepartment},1).qq|">
-		</td>
-	      </tr>
-| if $form->{selectdepartment};
-
-  $employee = qq|
-              <input type=hidden name=employee value="$form->{employee}">
-|;
-
-  if ($form->{type} eq 'sales_order') {
-    if ($form->{selectemployee}) {
-      $employee = qq|
- 	      <tr>
-	        <th align=right nowrap>|.$locale->text('Salesperson').qq|</th>
-		<td><select name=employee>$form->{selectemployee}</select></td>
-		<input type=hidden name=selectemployee value="|.
-		$form->escape($form->{selectemployee},1).qq|"
-	      </tr>
-|;
-    }
-  } else {
-      $employee = qq|
- 	      <tr>
-	        <th align=right nowrap>|.$locale->text('Employee').qq|</th>
-		<td><select name=employee>$form->{selectemployee}</select></td>
-		<input type=hidden name=selectemployee value="|.
-		$form->escape($form->{selectemployee},1).qq|"
-	      </tr>
-|;
-  }
-
-  
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action="$form->{script}#end">
-
-<input type=hidden name=id value=$form->{id}>
-
-<input type=hidden name=type value=$form->{type}>
-<input type=hidden name=formname value=$form->{formname}>
-<input type=hidden name=media value=$form->{media}>
-<input type=hidden name=format value=$form->{format}>
-
-<input type=hidden name=queued value="$form->{queued}">
-<input type=hidden name=printed value="$form->{printed}">
-<input type=hidden name=emailed value="$form->{emailed}">
-
-<input type=hidden name=vc value=$form->{vc}>
-
-<input type=hidden name=title value="$form->{title}">
-
-<input type=hidden name=discount value=$form->{discount}>
-<input type=hidden name=creditlimit value=$form->{creditlimit}>
-<input type=hidden name=creditremaining value=$form->{creditremaining}>
-
-<input type=hidden name=tradediscount value=$form->{tradediscount}>
-<input type=hidden name=business value="$form->{business}">
-
-
-<table width=100%>
-  <tr class=listtop>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width="100%">
-        <tr valign=top>
-	  <td>
-	    <table width=100%>
-	      <tr>
-		<th align=right>$vclabel</th>
-		<td colspan=3>$vc</td>
-		<input type=hidden name=$form->{vc}_id value=$form->{"$form->{vc}_id"}>
-		<input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
-	      </tr>
-	      $creditremaining
-	      $business
-	      $department
-	      <tr>
-		<th align=right>|.$locale->text('Currency').qq|</th>
-		<td><select name=currency>$form->{selectcurrency}</select></td>
-		<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-		<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
-		$exchangerate
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Shipping Point').qq|</th>
-		<td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Ship via').qq|</th>
-		<td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td>
-	      </tr>
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      $openclosed
-	      $employee
-	      $ordnumber
-	      $terms
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-
-<!-- shipto are in hidden variables -->
-
-<input type=hidden name=shiptoname value="$form->{shiptoname}">
-<input type=hidden name=shiptoaddress1 value="$form->{shiptoaddress1}">
-<input type=hidden name=shiptoaddress2 value="$form->{shiptoaddress2}">
-<input type=hidden name=shiptocity value="$form->{shiptocity}">
-<input type=hidden name=shiptostate value="$form->{shiptostate}">
-<input type=hidden name=shiptozipcode value="$form->{shiptozipcode}">
-<input type=hidden name=shiptocountry value="$form->{shiptocountry}">
-<input type=hidden name=shiptocontact value="$form->{shiptocontact}">
-<input type=hidden name=shiptophone value="$form->{shiptophone}">
-<input type=hidden name=shiptofax value="$form->{shiptofax}">
-<input type=hidden name=shiptoemail value="$form->{shiptoemail}">
-
-<!-- email variables -->
-<input type=hidden name=message value="$form->{message}"> 
-<input type=hidden name=email value="$form->{email}">
-<input type=hidden name=subject value="$form->{subject}">
-<input type=hidden name=cc value="$form->{cc}">
-<input type=hidden name=bcc value="$form->{bcc}">
-
-<input type=hidden name=taxpart value="$form->{taxpart}">
-<input type=hidden name=taxservice value="$form->{taxservice}">
-
-<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
-|;
-
-  foreach $item (split / /, $form->{taxaccounts}) {
-    print qq|
-<input type=hidden name="${item}_rate" value=$form->{"${item}_rate"}>
-<input type=hidden name="${item}_description" value="$form->{"${item}_description"}">
-|;
-  }
-
-}
-
-
-sub form_footer {
-
-  $form->{invtotal} = $form->{invsubtotal};
-
-  if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) {
-    $rows = 2;
-  }
-  if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) {
-    $introws = 2;
-  }
-  $rows = ($rows > $introws) ? $rows : $introws;
-  $notes = qq|<textarea name=notes rows=$rows cols=25 wrap=soft>$form->{notes}</textarea>|;
-  $intnotes = qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;
-
-
-  $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
-
-  $taxincluded = "";
-  if ($form->{taxaccounts}) {
-    $taxincluded = qq|
-            <tr height="5"></tr>
-            <tr>
-	      <td align=right>
-	      <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
-	      <th align=left>|.$locale->text('Tax Included').qq|</th>
-	    </tr>
-|;
-  }
-
-  if (!$form->{taxincluded}) {
-    
-    foreach $item (split / /, $form->{taxaccounts}) {
-      if ($form->{"${item}_base"}) {
-	$form->{invtotal} += $form->{"${item}_total"} = $form->round_amount($form->{"${item}_base"} * $form->{"${item}_rate"}, 2);
-	$form->{"${item}_total"} = $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2);
-	
-	$tax .= qq|
-	      <tr>
-		<th align=right>$form->{"${item}_description"}</th>
-		<td align=right>$form->{"${item}_total"}</td>
-	      </tr>
-|;
-      }
-    }
-
-    $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0);
-    
-    $subtotal = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Subtotal').qq|</th>
-		<td align=right>$form->{invsubtotal}</td>
-	      </tr>
-|;
-
-  }
-
-  $form->{oldinvtotal} = $form->{invtotal};
-  $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0);
-
-
-  print qq|
-  <tr>
-    <td>
-      <table width=100%>
-	<tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=left>|.$locale->text('Notes').qq|</th>
-		<th align=left>|.$locale->text('Internal Notes').qq|</th>
-	      </tr>
-	      <tr valign=top>
-		<td>$notes</td>
-		<td>$intnotes</td>
-	      </tr>
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      $subtotal
-	      $tax
-	      <tr>
-		<th align=right>|.$locale->text('Total').qq|</th>
-		<td align=right>$form->{invtotal}</td>
-	      </tr>
-	      $taxincluded
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
-<input type=hidden name=oldtotalpaid value=$totalpaid>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-  <tr>
-    <td>
-|;
-
-  &print_options;
-
-  print qq|
-    </td>
-  </tr>
-</table>
-
-<br>
-|;
-
-  if (! $form->{readonly}) {
-    print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Ship to').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Save').qq|">
-|;
-
-    if ($latex) {
-      print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Print and Save').qq|">|;
-    }
-    
-    if ($form->{id}) {
-      print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">|;
-
-      if ($form->{type} =~ /sales_/) {
-	if ($myconfig{acs} !~ /AP--Sales Invoice/) {
-	  print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice').qq|">
-|;
-	}
-      } else {
-	if ($myconfig{acs} !~ /AR--Vendor Invoice/) {
-	  print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice').qq|">
-|;
-	}
-      }
-	
-      if ($form->{type} eq 'sales_order') {
-        if ($myconfig{acs} !~ /Quotations--RFQ/) {
-	  print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Quotation').qq|">
-|;
-	}
-      }
-      
-      if ($form->{type} eq 'purchase_order') {
-	if ($myconfig{acs} !~ /Quotations--RFQ/) {
-	  print qq|
-<input class=submit type=submit name=action value="|.$locale->text('RFQ').qq|">
-|;
-	}
-      }
-      
-      if ($form->{type} eq 'sales_quotation') {
-	if ($myconfig{acs} !~ /Order Entry--Sales Order/) {
-	  print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|">
-|;
-	}
-      }
-      
-      if ($myconfig{acs} !~ /Order Entry--Purchase Order/) {
-	if ($form->{type} eq 'request_quotation') {
-	  print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|">
-|;
-	}
-      }
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq| 
-
-<input type=hidden name=rowcount value=$form->{rowcount}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-</form>
-
-<a name=end></a>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub update {
-
-  map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate);
-
-  &check_name($form->{vc});
-
-
-  $buysell = 'buy';
-  $buysell = 'sell' if ($form->{vc} eq 'vendor');
-  $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell)));
-  
-  my $i = $form->{rowcount};
-  $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
-
-  foreach $item (qw(partsgroup projectnumber)) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"}) if $form->{"select$item"};
-  }
-
-  if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq "")) {
-
-    $form->{creditremaining} += ($form->{oldinvtotal} - $form->{oldtotalpaid});
-    &check_form;
-    
-  } else {
-
-    if ($form->{type} eq 'purchase_order' || $form->{type} eq 'request_quotation') {
-      IR->retrieve_item(\%myconfig, \%$form);
-    }
-    if ($form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation') {
-      IS->retrieve_item(\%myconfig, \%$form);
-    }
-
-    $rows = scalar @{ $form->{item_list} };
-
-    $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{discount} * 100);
-
-    if ($rows) {
-      $form->{"qty_$i"}		= 1;
-      if ($form->{type} !~ /_quotation/) {
-	$form->{"reqdate_$i"}	= $form->{reqdate} unless $form->{"reqdate_$i"};
-      }
-      
-      if ($rows > 1) {
-	
-	&select_item;
-	exit;
-	
-      } else {
-	
-	$sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
-	
-	map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description unit);
-	map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
-
-	$s = ($sellprice) ? $sellprice : $form->{"sellprice_$i"};
-	
-	($dec) = ($s =~ /\.(\d+)/);
-	$dec = length $dec;
-	$decimalplaces = ($dec > 2) ? $dec : 2;
-
-        if ($sellprice) {
-	  $form->{"sellprice_$i"} = $sellprice;
-	} else {
-	  # if there is an exchange rate adjust prices
-	  $form->{"sellprice_$i"} *= (1 - $form->{tradediscount});
-	  $form->{"sellprice_$i"} /= $exchangerate;
-	}
-	
-	map { $form->{"${_}_$i"} /= $exchangerate } qw(listprice lastcost);
-
-	$amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"} / 100);
-	map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts});
-	map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
-	map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{taxaccounts} if !$form->{taxincluded};
-	
-	$form->{creditremaining} -= $amount;
-	
-	map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost);
-	
-	$form->{"qty_$i"} =  $form->format_amount(\%myconfig, $form->{"qty_$i"});
-      }
-
-      &display_form;
-
-    } else {
-      # ok, so this is a new part
-      # ask if it is a part or service item
-
-      if ($form->{"partsgroup_$i"} && ($form->{"partsnumber_$i"} eq "") && ($form->{"description_$i"} eq "")) {
-	$form->{rowcount}--;
-	$form->{"discount_$i"} = "";
-	&display_form;
-      } else {
-		
-	$form->{"id_$i"}	= 0;
-	$form->{"unit_$i"}	= $locale->text('ea');
-	$form->{"reqdate_$i"}	= $form->{reqdate} if $form->{type} !~ /_quotation/;
-
-	&new_item;
-
-      }
-    }
-  }
-
-}
-
-
-
-sub search {
-  
-  if ($form->{type} eq 'purchase_order') {
-    $form->{title} = $locale->text('Purchase Orders');
-    $form->{vc} = 'vendor';
-    $ordlabel = $locale->text('Order Number');
-    $ordnumber = 'ordnumber';
-    $employee = $locale->text('Employee');
-  }
-  if ($form->{type} eq 'request_quotation') {
-    $form->{title} = $locale->text('Request for Quotations');
-    $form->{vc} = 'vendor';
-    $ordlabel = $locale->text('RFQ Number');
-    $ordnumber = 'quonumber';
-    $employee = $locale->text('Employee');
-  }
-  if ($form->{type} eq 'receive_order') {
-    $form->{title} = $locale->text('Receive Merchandise');
-    $form->{vc} = 'vendor';
-    $ordlabel = $locale->text('Order Number');
-    $ordnumber = 'ordnumber';
-    $employee = $locale->text('Employee');
-  }
-  if ($form->{type} eq 'sales_order') {
-    $form->{title} = $locale->text('Sales Orders');
-    $form->{vc} = 'customer';
-    $ordlabel = $locale->text('Order Number');
-    $ordnumber = 'ordnumber';
-    $employee = $locale->text('Salesperson');
-  }
-  if ($form->{type} eq 'ship_order') {
-    $form->{title} = $locale->text('Ship Merchandise');
-    $form->{vc} = 'customer';
-    $ordlabel = $locale->text('Order Number');
-    $ordnumber = 'ordnumber';
-    $employee = $locale->text('Salesperson');
-
-  }
-  
-  if ($form->{type} eq 'sales_quotation') {
-    $form->{title} = $locale->text('Quotations');
-    $form->{vc} = 'customer';
-    $ordlabel = $locale->text('Quotation Number');
-    $ordnumber = 'quonumber';
-    $employee = $locale->text('Employee');
-  }
-
-  $manager = qq|
-	        <td><input name="l_manager" class=checkbox type=checkbox value=Y> |.$locale->text('Manager').qq|</td>|;
-
-  if ($form->{type} =~ /(ship|receive)_order/) {
-    OE->get_warehouses(\%myconfig, \%$form);
-
-    $manager = "";
-
-    # warehouse
-    if (@{ $form->{all_warehouses} }) {
-      $form->{selectwarehouse} = "<option>\n";
-      $form->{warehouse} = qq|$form->{warehouse}--$form->{warehouse_id}|;
-
-      map { $form->{selectwarehouse} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_warehouses} });
-
-      $warehouse = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Warehouse').qq|</th>
-		<td><select name=warehouse>$form->{selectwarehouse}</select></td>
-		<input type=hidden name=selectwarehouse value="|.
-		$form->escape($form->{selectwarehouse},1).qq|">
-	      </tr>
-|;
-
-    }
-  }
-
-  # setup vendor / customer selection
-  $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");
-
-  map { $vc .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} };
-
-  $vclabel = ucfirst $form->{vc};
-  $vclabel = $locale->text($vclabel);
-  
-# $locale->text('Vendor')
-# $locale->text('Customer')
-  
-  $vc = ($vc) ? qq|<select name=$form->{vc}><option>\n$vc</select>| : qq|<input name=$form->{vc} size=35>|;
-
-  # departments  
-  if (@{ $form->{all_departments} }) {
-    $form->{selectdepartment} = "<option>\n";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
-
-  $department = qq|  
-        <tr>  
-	  <th align=right nowrap>|.$locale->text('Department').qq|</th>
-	  <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
-	</tr>
-| if $form->{selectdepartment}; 
-
-  if ($form->{type} !~ /(ship|receive)_order/) {
-    $openclosed = qq|
-	      <tr>
-	        <td><input name="open" class=checkbox type=checkbox value=1 checked> |.$locale->text('Open').qq|</td>
-	        <td><input name="closed" class=checkbox type=checkbox value=1 $form->{closed}> |.$locale->text('Closed').qq|</td>
-	      </tr>
-|;
-  } else {
-    
-     $openclosed = qq|
-	        <input type=hidden name="open" value=1>
-|;
-  }
-
-  
-  # accounting years
-  $form->{selectaccountingyear} = "<option>\n";
-  map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} };
-  $form->{selectaccountingmonth} = "<option>\n";
-  map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} };
-
-  $selectfrom = qq|
-        <tr>
-	<th align=right>|.$locale->text('Period').qq|</th>
-	<td colspan=3>
-	<select name=month>$form->{selectaccountingmonth}</select>
-	<select name=year>$form->{selectaccountingyear}</select>
-	<input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	<input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	<input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	<input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	</td>
-      </tr>
-|;
-
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-        <tr>
-          <th align=right>$vclabel</th>
-          <td colspan=3>$vc</td>
-        </tr>
-	$warehouse
-	$department
-        <tr>
-          <th align=right>$ordlabel</th>
-          <td colspan=3><input name="$ordnumber" size=20></td>
-        </tr>
-        <tr>
-          <th align=right>|.$locale->text('Ship via').qq|</th>
-          <td colspan=3><input name="shipvia" size=40></td>
-        </tr>
-        <tr>
-          <th align=right>|.$locale->text('From').qq|</th>
-          <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-          <th align=right>|.$locale->text('To').qq|</th>
-          <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
-        </tr>
-        <input type=hidden name=sort value=transdate>
-	$selectfrom
-        <tr>
-          <th align=right>|.$locale->text('Include in Report').qq|</th>
-          <td colspan=3>
-	    <table>
-	      $openclosed
-	      <tr>
-		<td><input name="l_id" class=checkbox type=checkbox value=Y>
-		|.$locale->text('ID').qq|</td>
-		<td><input name="l_$ordnumber" class=checkbox type=checkbox value=Y checked> $ordlabel</td>
-		<td><input name="l_transdate" class=checkbox type=checkbox value=Y checked> |.$locale->text('Date').qq|</td>
-		<td><input name="l_reqdate" class=checkbox type=checkbox value=Y checked> |.$locale->text('Required by').qq|</td>
-	      </tr>
-	      <tr>
-	        <td><input name="l_name" class=checkbox type=checkbox value=Y checked> $vclabel</td>
-	        <td><input name="l_employee" class=checkbox type=checkbox value=Y checked> $employee</td>
-		$manager
-		<td><input name="l_shipvia" class=checkbox type=checkbox value=Y> |.$locale->text('Ship via').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_netamount" class=checkbox type=checkbox value=Y> |.$locale->text('Amount').qq|</td>
-		<td><input name="l_tax" class=checkbox type=checkbox value=Y> |.$locale->text('Tax').qq|</td>
-		<td><input name="l_amount" class=checkbox type=checkbox value=Y checked> |.$locale->text('Total').qq|</td>
-		<td><input name="l_curr" class=checkbox type=checkbox value=Y checked> |.$locale->text('Currency').qq|</td>
-	      </tr>
-	      <tr>
-	        <td><input name="l_subtotal" class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq|</td>
-	      </tr>
-	    </table>
-          </td>
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr><td colspan=4><hr size=3 noshade></td></tr>
-</table>
-
-<br>
-<input type=hidden name=nextsub value=transactions>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=vc value=$form->{vc}>
-<input type=hidden name=type value=$form->{type}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub transactions {
-
-  # split vendor / customer
-  ($form->{$form->{vc}}, $form->{"$form->{vc}_id"}) = split(/--/, $form->{$form->{vc}});
-
-  $ordnumber = ($form->{type} =~ /_order/) ? 'ordnumber' : 'quonumber';
-  
-  OE->transactions(\%myconfig, \%$form);
-
-  $number = $form->escape($form->{$ordnumber});
-  $name = $form->escape($form->{$form->{vc}});
-  $department = $form->escape($form->{department});
-  $warehouse = $form->escape($form->{warehouse});
-  $shipvia = $form->escape($form->{shipvia});
-  
-  # construct href
-  $href = qq|$form->{script}?oldsort=$form->{oldsort}&direction=$form->{direction}&path=$form->{path}&action=transactions&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&sessionid=$form->{sessionid}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name--$form->{"$form->{vc}_id"}&department=$department&warehouse=$warehouse&shipvia=$shipvia|;
-
-  # construct callback
-  $number = $form->escape($form->{$ordnumber},1);
-  $name = $form->escape($form->{$form->{vc}},1);
-  $department = $form->escape($form->{department},1);
-  $warehouse = $form->escape($form->{warehouse},1);
-  $shipvia = $form->escape($form->{shipvia},1);
-  
-  # flip direction
-  $form->sort_order();
-    
-  $callback = qq|$form->{script}?oldsort=$form->{oldsort}&direction=$form->{direction}&path=$form->{path}&action=transactions&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&sessionid=$form->{sessionid}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name--$form->{"$form->{vc}_id"}&department=$department&warehouse=$warehouse&shipvia=$shipvia|;
-
-  @columns = $form->sort_columns("transdate", "reqdate", "id", "$ordnumber", "name", "netamount", "tax", "amount", "curr", "employee", "manager", "shipvia", "open", "closed");
-
-  $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed}) ;
-
-  foreach $item (@columns) {
-    if ($form->{"l_$item"} eq "Y") {
-      push @column_index, $item;
-
-      if ($form->{l_curr} && $item =~ /(amount|tax)/) {
-	push @column_index, "fx_$item";
-      }
-      
-      # add column to href and callback
-      $callback .= "&l_$item=Y";
-      $href .= "&l_$item=Y";
-    }
-  }
-  
-  if ($form->{l_subtotal} eq 'Y') {
-    $callback .= "&l_subtotal=Y";
-    $href .= "&l_subtotal=Y";
-  }
- 
- 
-  $i = 1; 
-  if ($form->{vc} eq 'vendor') {
-    if ($form->{type} eq 'receive_order') {
-      $form->{title} = $locale->text('Receive Merchandise');
-    } elsif ($form->{type} eq 'purchase_order') {
-      $form->{title} = $locale->text('Purchase Orders');
-
-      if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-	$button{'Order Entry--Purchase Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|"> |;
-	$button{'Order Entry--Sales Order'}{order} = $i++;
-      }
-
-    } else {
-      $form->{title} = $locale->text('Request for Quotations');
-
-      if ($myconfig{acs} !~ /Quotations--Quotations/) {
-	$button{'Quotations--RFQ'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('RFQ ').qq|"> |;
-	$button{'Quotations--RFQ'}{order} = $i++;
-      }
-      
-    }
-    $name = $locale->text('Vendor');
-    $employee = $locale->text('Employee');
-  }
-  if ($form->{vc} eq 'customer') {
-    if ($form->{type} eq 'sales_order') {
-      $form->{title} = $locale->text('Sales Orders');
-      $employee = $locale->text('Salesperson');
-
-      if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-	$button{'Order Entry--Sales Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|"> |;
-	$button{'Order Entry--Sales Order'}{order} = $i++;
-      }
-
-    } elsif ($form->{type} eq 'ship_order') {
-      $form->{title} = $locale->text('Ship Merchandise');
-      $employee = $locale->text('Salesperson');
-    } else {
-      $form->{title} = $locale->text('Quotations');
-      $employee = $locale->text('Employee');
-
-      if ($myconfig{acs} !~ /Quotations--Quotations/) {
-	$button{'Quotations--Quotation'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Quotation ').qq|"> |;
-	$button{'Quotations--Quotation'}{order} = $i++;
-      }
-      
-    }
-    $name = $locale->text('Customer');
-  }
-
-  foreach $item (split /;/, $myconfig{acs}) {
-    delete $button{$item};
-  }
-
-  $column_header{id} = qq|<th><a class=listheading href=$href&sort=id>|.$locale->text('ID').qq|</a></th>|;
-  $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</a></th>|;
-  $column_header{reqdate} = qq|<th><a class=listheading href=$href&sort=reqdate>|.$locale->text('Required by').qq|</a></th>|;
-  $column_header{ordnumber} = qq|<th><a class=listheading href=$href&sort=ordnumber>|.$locale->text('Order').qq|</a></th>|;
-  $column_header{quonumber} = qq|<th><a class=listheading href=$href&sort=quonumber>|.$locale->text('Quotation').qq|</a></th>|;
-  $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>$name</a></th>|;
-  $column_header{netamount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|;
-  $column_header{tax} = qq|<th class=listheading>|.$locale->text('Tax').qq|</th>|;
-  $column_header{amount} = qq|<th class=listheading>|.$locale->text('Total').qq|</th>|;
-  $column_header{curr} = qq|<th><a class=listheading href=$href&sort=curr>|.$locale->text('Curr').qq|</a></th>|;
-  $column_header{shipvia} = qq|<th><a class=listheading href=$href&sort=shipvia>|.$locale->text('Ship via').qq|</a></th>|;
-  $column_header{open} = qq|<th class=listheading>|.$locale->text('O').qq|</th>|;
-  $column_header{closed} = qq|<th class=listheading>|.$locale->text('C').qq|</th>|;
-
-  $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>$employee</a></th>|;
-  $column_header{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|;
-
-  map { $column_header{"fx_$_"} = "<th>&nbsp;</th>" } qw(amount tax netamount);
-  
-  if ($form->{$form->{vc}}) {
-    $option = $locale->text(ucfirst $form->{vc});
-    $option .= " : $form->{$form->{vc}}";
-  }
-  if ($form->{warehouse}) {
-    ($warehouse) = split /--/, $form->{warehouse};
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Warehouse');
-    $option .= " : $warehouse";
-  }
-  if ($form->{department}) {
-    $option .= "\n<br>" if ($option);
-    ($department) = split /--/, $form->{department};
-    $option .= $locale->text('Department')." : $department";
-  }
-  if ($form->{transdatefrom}) {
-    $option .= "\n<br>".$locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
-  }
-  if ($form->{transdateto}) {
-    $option .= "\n<br>".$locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1);
-  }
-  if ($form->{open}) {
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Open');
-  }
-  if ($form->{closed}) {
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Closed');
-  }
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-
-  print qq|
-	</tr>
-|;
-
-  # add sort and escape callback
-  $callback .= "&sort=$form->{sort}";
-  $form->{callback} = $callback;
-  $callback = $form->escape($callback);
-
-  # flip direction
-  $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC";
-  $href =~ s/&direction=(\w+)&/&direction=$direction&/;
-
-  if (@{ $form->{OE} }) {
-    $sameitem = $form->{OE}->[0]->{$form->{sort}};
-  }
-
-  $action = "edit";
-  $action = "ship_receive" if ($form->{type} =~ /(ship|receive)_order/);
-
-  $warehouse = $form->escape($form->{warehouse});
-
-  foreach $oe (@{ $form->{OE} }) {
-
-    if ($form->{l_subtotal} eq 'Y') {
-      if ($sameitem ne $oe->{$form->{sort}}) {
-	&subtotal;
-	$sameitem = $oe->{$form->{sort}};
-      }
-    }
-    
-    if ($form->{l_curr}) {
-      map { $oe->{"fx_$_"} = $oe->{$_} } (qw(netamount amount));
-      $oe->{fx_tax} = $oe->{fx_amount} - $oe->{fx_netamount};
-      map { $oe->{$_} *= $oe->{exchangerate} } (qw(netamount amount));
-
-      map { $column_data{"fx_$_"} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{"fx_$_"}, 2, "&nbsp;")."</td>" } qw(netamount amount);
-      $column_data{fx_tax} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{fx_amount} - $oe->{fx_netamount}, 2, "&nbsp;")."</td>"; 
-      
-      $totalfxnetamount += $oe->{fx_netamount}; 
-      $totalfxamount += $oe->{fx_amount};
-
-      $subtotalfxnetamount += $oe->{fx_netamount};
-      $subtotalfxamount += $oe->{fx_amount};
-    }
-    
-    map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{$_}, 2, "&nbsp;")."</td>" } qw(netamount amount);
-    $column_data{tax} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{amount} - $oe->{netamount}, 2, "&nbsp;")."</td>";
-
-    $totalnetamount += $oe->{netamount};
-    $totalamount += $oe->{amount};
-
-    $subtotalnetamount += $oe->{netamount};
-    $subtotalamount += $oe->{amount};
-
-
-    $column_data{id} = "<td>$oe->{id}</td>";
-    $column_data{transdate} = "<td>$oe->{transdate}&nbsp;</td>";
-    $column_data{reqdate} = "<td>$oe->{reqdate}&nbsp;</td>";
-
-    $column_data{$ordnumber} = "<td><a href=oe.pl?path=$form->{path}&action=$action&type=$form->{type}&id=$oe->{id}&warehouse=$warehouse&vc=$form->{vc}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$oe->{$ordnumber}</a></td>";
-
-    $name = $form->escape($oe->{name});
-    $column_data{name} = qq|<td><a href=$href&$form->{vc}=$name--$oe->{"$form->{vc}_id"}&sort=$form->{sort}>$oe->{name}</a></td>|;
-
-    map { $column_data{$_} = "<td>$oe->{$_}&nbsp;</td>" } qw(employee manager shipvia curr);
-
-    if ($oe->{closed}) {
-      $column_data{closed} = "<td align=center>*</td>";
-      $column_data{open} = "<td>&nbsp;</td>";
-    } else {
-      $column_data{closed} = "<td>&nbsp;</td>";
-      $column_data{open} = "<td align=center>*</td>";
-    }
-
-    $i++; $i %= 2;
-    print "
-        <tr class=listrow$i>";
-    
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-	</tr>
-|;
-
-  }
-  
-  if ($form->{l_subtotal} eq 'Y') {
-    &subtotal;
-  }
-  
-  # print totals
-  print qq|
-        <tr class=listtotal>|;
-  
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  
-  $column_data{netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;")."</th>";
-
-  if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) {
-    $column_data{fx_netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxnetamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalfxnetamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount, 2, "&nbsp;")."</th>";
-  }
-
-  map { print "\n$column_data{$_}" } @column_index;
- 
-  print qq|
-        </tr>
-      </td>
-    </table>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=$form->{type}>
-
-<input type=hidden name=$form->{vc} value="$form->{$form->{vc}}">
-<input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
-<input type=hidden name=vc value=$form->{vc}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  if ($form->{type} !~ /(ship|receive)_order/) {
-    foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-      print $item->{code};
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub subtotal {
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-  
-  $column_data{netamount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{tax} = "<td class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, 2, "&nbsp;")."</th>";
-  $column_data{amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount, 2, "&nbsp;")."</th>";
-
-  if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) {
-    $column_data{fx_netamount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxnetamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_tax} = "<td class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount - $subtotalfxnetamount, 2, "&nbsp;")."</th>";
-    $column_data{fx_amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount, 2, "&nbsp;")."</th>";
-  }
-
-  $subtotalnetamount = 0;
-  $subtotalamount = 0;
-  
-  $subtotalfxnetamount = 0;
-  $subtotalfxamount = 0;
-
-  print "
-        <tr class=listsubtotal>
-";
-  
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-}
-
-
-sub save {
-
-  if ($form->{type} =~ /_order$/) {
-    $form->isblank("transdate", $locale->text('Order Date missing!'));
-  } else {
-    $form->isblank("transdate", $locale->text('Quotation Date missing!'));
-  }
-  
-  $msg = ucfirst $form->{vc};
-  $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
-
-# $locale->text('Customer missing!');
-# $locale->text('Vendor missing!');
-  
-  $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency});
-  
-  &validate_items;
-
-  # if the name changed get new values
-  if (&check_name($form->{vc})) {
-    &update;
-    exit;
-  }
-
-
-  # this is for the internal notes section for the [email] Subject
-  if ($form->{type} =~ /_order$/) {
-    if ($form->{type} eq 'sales_order') {
-      $form->{label} = $locale->text('Sales Order');
-
-      $numberfld = "sonumber";
-      $ordnumber = "ordnumber";
-    } else {
-      $form->{label} = $locale->text('Purchase Order');
-      
-      $numberfld = "ponumber";
-      $ordnumber = "ordnumber";
-    }
-
-    $err = $locale->text('Cannot save order!');
-    
-  } else {
-    if ($form->{type} eq 'sales_quotation') {
-      $form->{label} = $locale->text('Quotation');
-      
-      $numberfld = "sqnumber";
-      $ordnumber = "quonumber";
-    } else {
-      $form->{label} = $locale->text('Request for Quotation');
-
-      $numberfld = "rfqnumber";
-      $ordnumber = "quonumber";
-    }
-      
-    $err = $locale->text('Cannot save quotation!');
- 
-  }
-
-  
-  $form->{id} = 0 if $form->{saveasnew};
- 
-  $form->{$ordnumber} = $form->update_defaults(\%myconfig, $numberfld) unless $form->{$ordnumber};
-
-  $form->redirect($locale->text('Order saved!')) if (OE->save(\%myconfig, \%$form)); 
-  $form->error($err);
-
-}
-
-
-sub print_and_save {
-
-  $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;
-  $form->error($locale->text('Select Printer or Queue!')) if $form->{media} eq 'screen';
-
-  $old_form = new Form;
-  $form->{display_form} = "save";
-  map { $old_form->{$_} = $form->{$_} } keys %$form;
-  $old_form->{rowcount}++;
-
-  &print_form($old_form);
-
-}
-
-
-sub delete {
-
-  $form->header;
-
-  if ($form->{type} =~ /_order$/) {
-    $msg = $locale->text('Are you sure you want to delete Order Number');
-    $ordnumber = 'ordnumber';
-  } else {
-    $msg = $locale->text('Are you sure you want to delete Quotation Number');
-    $ordnumber = 'quonumber';
-  }
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-  # delete action variable
-  map { delete $form->{$_} } qw(action header);
-
-  $form->hide_form();
-
-  print qq|
-<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2>
-
-<h4>$msg $form->{$ordnumber}</h4>
-<p>
-<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-
-}
-
-
-
-sub yes {
-
-  if ($form->{type} =~ /_order$/) {
-    $msg = $locale->text('Order deleted!');
-    $err = $locale->text('Cannot delete order!');
-  } else {
-    $msg = $locale->text('Quotation deleted!');
-    $err = $locale->text('Cannot delete quotation!');
-  }
-    
-  $form->redirect($msg) if (OE->delete(\%myconfig, \%$form, $spool));
-  $form->error($err);
-
-}
-
-
-sub vendor_invoice { &invoice };
-sub sales_invoice { &invoice };
-
-sub invoice {
-  
-  if ($form->{type} =~ /_order$/) {
-    $form->isblank("ordnumber", $locale->text('Order Number missing!'));
-    $form->isblank("transdate", $locale->text('Order Date missing!'));
-
-  } else {
-    $form->isblank("quonumber", $locale->text('Quotation Number missing!'));
-    $form->isblank("transdate", $locale->text('Quotation Date missing!'));
-    $form->{ordnumber} = "";
-  }
-
-  # if the name changed get new values
-  if (&check_name($form->{vc})) {
-    &update;
-    exit;
-  }
-
-
-  if ($form->{type} =~ /_order/ && $form->{currency} ne $form->{defaultcurrency}) {
-    # check if we need a new exchangerate
-    $buysell = ($form->{type} eq 'sales_order') ? "buy" : "sell";
-    
-    $orddate = $form->current_date(\%myconfig);
-    $exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $orddate, $buysell);
-
-    if (!$exchangerate) {
-      &backorder_exchangerate($orddate, $buysell);
-      exit;
-    }
-  }
-
-
-  # close orders/quotations
-  $form->{closed} = 1;
-
-  OE->save(\%myconfig, \%$form);
-  
-  $form->{transdate} = $form->current_date(\%myconfig);
-  $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1);
- 
-  $form->{id} = '';
-  $form->{closed} = 0;
-  $form->{rowcount}--;
-  $form->{shipto} = 1;
-
-
-  if ($form->{type} =~ /_order$/) {
-    $form->{exchangerate} = $exchangerate;
-    &create_backorder;
-  }
-
-
-  if ($form->{type} eq 'purchase_order' || $form->{type} eq 'request_quotation') {
-    $form->{title} = $locale->text('Add Vendor Invoice');
-    $form->{script} = 'ir.pl';
-    $script = "ir";
-    $buysell = 'sell';
-  }
-  if ($form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation') {
-    $form->{title} = $locale->text('Add Sales Invoice');
-    $form->{script} = 'is.pl';
-    $script = "is";
-    $buysell = 'buy';
-  }
- 
-  map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);
-  $form->{$form->{vc}} =~ s/--.*//g;
-  $form->{type} = "invoice";
- 
-  # locale messages
-  $locale = new Locale "$myconfig{countrycode}", "$script";
-
-  require "$form->{path}/$form->{script}";
-
-  # customized scripts
-  if (-f "$form->{path}/custom_$form->{script}") {
-    eval { require "$form->{path}/custom_$form->{script}"; };
-  }
-
-  # customized scripts for login
-  if (-f "$form->{path}/$form->{login}_$form->{script}") {
-    eval { require "$form->{path}/$form->{login}_$form->{script}"; };
-  }
-
-  map { $form->{"select$_"} = "" } ($form->{vc}, currency);
-  map { $temp{$_} = $form->{$_} } qw(currency oldcurrency employee department intnotes notes);
-
-  &invoice_links;
-
-  $form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal});
-
-  &prepare_invoice;
-  
-  map { $form->{$_} = $temp{$_} } keys %temp;
-  
-  $form->{exchangerate} = "";
-  $form->{forex} = "";
-  $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell)));
- 
-  for $i (1 .. $form->{rowcount}) {
-    $form->{"deliverydate_$i"} = $form->{"reqdate_$i"};
-    map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty sellprice discount);
-  }
-
-  map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued audittrail);
-
-  &display_form;
-
-}
-
-
-
-sub backorder_exchangerate {
-  my ($orddate, $buysell) = @_;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-  # delete action variable
-  map { delete $form->{$_} } qw(action header exchangerate);
-
-  $form->hide_form();
-
-  $form->{title} = $locale->text('Add Exchange Rate');
-  
-  print qq|
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=exchangeratedate value=$orddate>
-<input type=hidden name=buysell value=$buysell>
-
-<table width=100%>
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-        <tr>
-	  <th align=right>|.$locale->text('Currency').qq|</th>
-	  <td>$form->{currency}</td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Date').qq|</th>
-	  <td>$orddate</td>
-	</tr>
-        <tr>
-	  <th align=right>|.$locale->text('Exchange Rate').qq|</th>
-	  <td><input name=exchangerate size=11></td>
-        </tr>
-      </table>
-    </td>
-  </tr>
-</table>
-
-<hr size=3 noshade>
-
-<br>
-<input type=hidden name=nextsub value=save_exchangerate>
-
-<input name=action class=submit type=submit value="|.$locale->text('Continue').qq|">
-
-</form>
-
-</body>
-</html>
-|;
-
-
-}
-
-
-sub save_exchangerate {
-
-  $form->isblank("exchangerate", $locale->text('Exchange rate missing!'));
-  $form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate});
-  $form->save_exchangerate(\%myconfig, $form->{currency}, $form->{exchangeratedate}, $form->{exchangerate}, $form->{buysell});
-  
-  &invoice;
-
-}
-
-
-sub create_backorder {
-  
-  $form->{shipped} = 1;
- 
-  # figure out if we need to create a backorder
-  # items aren't saved if qty != 0
-
-  $dec1 = $dec2 = 0;
-  for $i (1 .. $form->{rowcount}) {
-    ($dec) = ($form->{"qty_$i"} =~ /\.(\d+)/);
-    $dec = length $dec;
-    $dec1 = ($dec > $dec1) ? $dec : $dec1;
-    
-    ($dec) = ($form->{"ship_$i"} =~ /\.(\d+)/);
-    $dec = length $dec;
-    $dec2 = ($dec > $dec2) ? $dec : $dec2;
-    
-    $totalqty += $qty = $form->{"qty_$i"};
-    $totalship += $ship = $form->{"ship_$i"};
-    
-    $form->{"qty_$i"} = $qty - $ship;
-  }
-
-  $totalqty = $form->round_amount($totalqty, $dec1);
-  $totalship = $form->round_amount($totalship, $dec2);
-
-  if ($totalship == 0) {
-    map { $form->{"ship_$_"} = $form->{"qty_$_"} } (1 .. $form->{rowcount});
-    $form->{ordtotal} = 0;
-    $form->{shipped} = 0;
-    return;
-  }
-
-  if ($totalqty == $totalship) {
-    map { $form->{"qty_$_"} = $form->{"ship_$_"} } (1 .. $form->{rowcount});
-    $form->{ordtotal} = 0;
-    return;
-  }
-
-  @flds = qw(partnumber sku description qty oldqty ship unit sellprice discount id inventory_accno bin income_accno expense_accno listprice assembly taxaccounts partsgroup reqdate pricematrix);
-
-  for $i (1 .. $form->{rowcount}) {
-    map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty sellprice discount);
-    
-    $form->{"oldship_$i"} = $form->{"ship_$i"};
-    $form->{"ship_$i"} = 0;
-  }
-
-  # clear flags
-  map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued audittrail);
-
-  OE->save(\%myconfig, \%$form);
- 
-  # rebuild rows for invoice
-  @a = ();
-  $count = 0;
-
-  for $i (1 .. $form->{rowcount}) {
-    $form->{"qty_$i"} = $form->{"oldship_$i"};
-    $form->{"oldqty_$i"} = $form->{"qty_$i"};
-    
-    $form->{"orderitems_id_$i"} = "";
-
-    if ($form->{"qty_$i"}) {
-      push @a, {};
-      $j = $#a;
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
- 
-  $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
-  $form->{rowcount} = $count;
-
-}
-
-
-
-sub save_as_new {
-
-  $form->{saveasnew} = 1;
-  $form->{closed} = 0;
-  map { delete $form->{$_} } qw(printed emailed queued);
-
-  &save;
-
-}
-
-
-sub ship_receive {
-
-  &order_links;
-  
-  &prepare_order;
-
-  OE->get_warehouses(\%myconfig, \%$form);
-
-  # warehouse
-  if (@{ $form->{all_warehouses} }) {
-    $form->{selectwarehouse} = "<option>\n";
-
-    map { $form->{selectwarehouse} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_warehouses} });
-
-    if ($form->{warehouse}) {
-      $form->{selectwarehouse} = qq|<option value="$form->{warehouse}">|;
-      $form->{warehouse} =~ s/--.*//;
-      $form->{selectwarehouse} .= $form->{warehouse};
-    }
-  }
-
-  $form->{shippingdate} = $form->current_date(\%myconfig);
-  $form->{"$form->{vc}"} =~ s/--.*//;
-  $form->{"old$form->{vc}"} = qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;
-
-  @flds = ();
-  @a = ();
-  $count = 0;
-  foreach $key (keys %$form) {
-    if ($key =~ /_1$/) {
-      $key =~ s/_1//;
-      push @flds, $key;
-    }
-  }
-  
-  for $i (1 .. $form->{rowcount}) {
-    # undo formatting from prepare_order
-    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty ship);
-    $n = ($form->{"qty_$i"} -= $form->{"ship_$i"});
-    if (abs($n) > 0 && ($form->{"inventory_accno_$i"} || $form->{"assembly_$i"})) {
-      $form->{"ship_$i"} = "";
-      $form->{"serialnumber_$i"} = "";
-
-      push @a, {};
-      $j = $#a;
-
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
-  
-  $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
-  $form->{rowcount} = $count;
-  
-  &display_ship_receive;
-  
-}
-
-
-sub display_ship_receive {
-  
-  $vclabel = ucfirst $form->{vc};
-  $vclabel = $locale->text($vclabel);
-
-  $form->{rowcount}++;
-
-  if ($form->{vc} eq 'customer') {
-    $form->{title} = $locale->text('Ship Merchandise');
-    $shipped = $locale->text('Shipping Date');
-  } else {
-    $form->{title} = $locale->text('Receive Merchandise');
-    $shipped = $locale->text('Date Received');
-  }
-  
-  # set option selected
-  foreach $item (warehouse, employee) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"});
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/;
-  }
-
-
-  $warehouse = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Warehouse').qq|</th>
-		<td><select name=warehouse>$form->{selectwarehouse}</select></td>
-		<input type=hidden name=selectwarehouse value="|.
-		$form->escape($form->{selectwarehouse},1).qq|">
-	      </tr>
-| if $form->{selectwarehouse};
-
-  $employee = qq|
- 	      <tr>
-	        <th align=right nowrap>|.$locale->text('Contact').qq|</th>
-		<td><select name=employee>$form->{selectemployee}</select></td>
-		<input type=hidden name=selectemployee value="|.
-		$form->escape($form->{selectemployee},1).qq|">
-	      </tr>
-|;
-
-
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-
-<input type=hidden name=display_form value=display_ship_receive>
-
-<input type=hidden name=type value=$form->{type}>
-<input type=hidden name=media value=$form->{media}>
-<input type=hidden name=format value=$form->{format}>
-
-<input type=hidden name=queued value="$form->{queued}">
-<input type=hidden name=printed value="$form->{printed}">
-<input type=hidden name=emailed value="$form->{emailed}">
-
-<input type=hidden name=vc value=$form->{vc}>
-<input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
-
-<table width=100%>
-  <tr class=listtop>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width="100%">
-        <tr valign=top>
-	  <td>
-	    <table width=100%>
-	      <tr>
-		<th align=right>$vclabel</th>
-		<td colspan=3>$form->{$form->{vc}}</td>
-		<input type=hidden name=$form->{vc} value="$form->{$form->{vc}}">
-		<input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
-	      </tr>
-	      $department
-	      <tr>
-		<th align=right>|.$locale->text('Shipping Point').qq|</th>
-		<td colspan=3>
-		<input name=shippingpoint size=35 value="$form->{shippingpoint}">
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Ship via').qq|</th>
-		<td colspan=3>
-		<input name=shipvia size=35 value="$form->{shipvia}">
-	      </tr>
-	      $warehouse
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      $employee
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
-		<td>$form->{ordnumber}</td>
-		<input type=hidden name=ordnumber value="$form->{ordnumber}">
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Order Date').qq|</th>
-		<td>$form->{transdate}</td>
-		<input type=hidden name=transdate value=$form->{transdate}>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>$shipped</th>
-		<td><input name=shippingdate size=11 value=$form->{shippingdate}></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-
-<!-- shipto are in hidden variables -->
-
-<input type=hidden name=shiptoname value="$form->{shiptoname}">
-<input type=hidden name=shiptoaddress1 value="$form->{shiptoaddress1}">
-<input type=hidden name=shiptoaddress2 value="$form->{shiptoaddress2}">
-<input type=hidden name=shiptocity value="$form->{shiptocity}">
-<input type=hidden name=shiptostate value="$form->{shiptostate}">
-<input type=hidden name=shiptozipcode value="$form->{shiptozipcode}">
-<input type=hidden name=shiptocountry value="$form->{shiptocountry}">
-<input type=hidden name=shiptocontact value="$form->{shiptocontact}">
-<input type=hidden name=shiptophone value="$form->{shiptophone}">
-<input type=hidden name=shiptofax value="$form->{shiptofax}">
-<input type=hidden name=shiptoemail value="$form->{shiptoemail}">
-
-<!-- email variables -->
-<input type=hidden name=message value="$form->{message}"> 
-<input type=hidden name=email value="$form->{email}">
-<input type=hidden name=subject value="$form->{subject}">
-<input type=hidden name=cc value="$form->{cc}">
-<input type=hidden name=bcc value="$form->{bcc}">
-
-|;
-
-  @column_index = qw(partnumber);
-  
-  if ($form->{type} eq "ship_order") {
-    $column_data{ship} = qq|<th class=listheading>|.$locale->text('Ship').qq|</th>|;
-  }
-  if ($form->{type} eq "receive_order") {
-      $column_data{ship} = qq|<th class=listheading>|.$locale->text('Recd').qq|</th>|;
-      $column_data{sku} = qq|<th class=listheading>|.$locale->text('SKU').qq|</th>|;
-      push @column_index, "sku";
-  }
-  push @column_index, qw(description qty ship unit bin serialnumber);
-
-  my $colspan = $#column_index + 1;
- 
-  $column_data{partnumber} = qq|<th class=listheading nowrap>|.$locale->text('Number').qq|</th>|;
-  $column_data{description} = qq|<th class=listheading nowrap>|.$locale->text('Description').qq|</th>|;
-  $column_data{qty} = qq|<th class=listheading nowrap>|.$locale->text('Qty').qq|</th>|;
-  $column_data{unit} = qq|<th class=listheading nowrap>|.$locale->text('Unit').qq|</th>|;
-  $column_data{bin} = qq|<th class=listheading nowrap>|.$locale->text('Bin').qq|</th>|;
-  $column_data{serialnumber} = qq|<th class=listheading nowrap>|.$locale->text('Serial No.').qq|</th>|;
-  
-  print qq|
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-  
-  
-  for $i (1 .. $form->{rowcount} - 1) {
-    
-    # undo formatting
-    $form->{"ship_$i"} = $form->parse_amount(\%myconfig, $form->{"ship_$i"});
-
-    map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit bin serialnumber);
-
-    $description = $form->{"description_$i"};
-    $description =~ s/
/<br>/g;
-    
-    $column_data{partnumber} = qq|<td>$form->{"partnumber_$i"}<input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|;
-    $column_data{sku} = qq|<td>$form->{"sku_$i"}<input type=hidden name="sku_$i" value="$form->{"sku_$i"}"></td>|;
-    $column_data{description} = qq|<td>$description<input type=hidden name="description_$i" value="$form->{"description_$i"}"></td>|;
-    $column_data{qty} = qq|<td align=right>|.$form->format_amount(\%myconfig, $form->{"qty_$i"}).qq|<input type=hidden name="qty_$i" value="$form->{"qty_$i"}"></td>|;
-    $column_data{ship} = qq|<td align=right><input name="ship_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"ship_$i"}).qq|></td>|;
-    $column_data{unit} = qq|<td>$form->{"unit_$i"}<input type=hidden name="unit_$i" value="$form->{"unit_$i"}"></td>|;
-    $column_data{bin} = qq|<td>$form->{"bin_$i"}<input type=hidden name="bin_$i" value="$form->{"bin_$i"}"></td>|;
-    
-    $column_data{serialnumber} = qq|<td><input name="serialnumber_$i" size=15 value="$form->{"serialnumber_$i"}"></td>|;
-    
-    print qq|
-        <tr valign=top>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-  
-    print qq|
-        </tr>
-
-<input type=hidden name="orderitems_id_$i" value=$form->{"orderitems_id_$i"}>
-<input type=hidden name="id_$i" value=$form->{"id_$i"}>
-<input type=hidden name="assembly_$i" value="$form->{"assembly_$i"}">
-<input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">
-
-|;
-
-  }
- 
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-  <tr>
-    <td>
-|;
-
-  $form->{copies} = 1;
-  
-  &print_options;
-
-  print qq|
-    </td>
-  </tr>
-</table>
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-|;
-
-  if ($form->{type} eq 'ship_order') {
-    print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Ship to').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|">
-|;
-  }
-  
-  print qq|
-
-<input class=submit type=submit name=action value="|.$locale->text('Done').qq|">
-|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  
-<input type=hidden name=rowcount value=$form->{rowcount}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-</form>
-
-</body>
-</html>
-|;
-
-
-}
-
-
-sub done {
-
-  if ($form->{type} eq 'ship_order') {
-    $form->isblank("shippingdate", $locale->text('Shipping Date missing!'));
-  } else {
-    $form->isblank("shippingdate", $locale->text('Date received missing!'));
-  }
-  
-  $total = 0;
-  map { $total += $form->{"ship_$_"} = $form->parse_amount(\%myconfig, $form->{"ship_$_"}) } (1 .. $form->{rowcount} - 1);
-  
-  $form->error($locale->text('Nothing entered!')) unless $total;
-  
-  $form->redirect($locale->text('Inventory saved!')) if OE->save_inventory(\%myconfig, \%$form);
-  $form->error($locale->text('Could not save!'));
-
-}
-
-
-sub search_transfer {
-  
-  OE->get_warehouses(\%myconfig, \%$form);
-
-  # warehouse
-  if (@{ $form->{all_warehouses} }) {
-    $form->{selectwarehouse} = "<option>\n";
-    $form->{warehouse} = qq|$form->{warehouse}--$form->{warehouse_id}|;
-
-    map { $form->{selectwarehouse} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_warehouses} });
-  } else {
-    $form->error($locale->text('Nothing to transfer!'));
-  }
-  
-  $form->get_partsgroup(\%myconfig, { all => 0, searchitems => 'part'});
-  if (@{ $form->{all_partsgroup} }) {
-    $form->{selectpartsgroup} = "<option>\n";
-    map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} }; 
-  }
-  
-  $form->{title} = $locale->text('Transfer Inventory');
- 
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-        <tr>
-          <th align=right nowrap>|.$locale->text('Transfer to').qq|</th>
-          <td><select name=warehouse>$form->{selectwarehouse}</select></td>
-        </tr>
-	<tr>
-	  <th align="right" nowrap="true">|.$locale->text('Part Number').qq|</th>
-	  <td><input name=partnumber size=20></td>
-	</tr>
-	<tr>
-	  <th align="right" nowrap="true">|.$locale->text('Description').qq|</th>
-	  <td><input name=description size=40></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Group').qq|</th>
-	  <td><select name=partsgroup><select>$form->{selectpartsgroup}</select></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<input type=hidden name=sort value=partnumber>
-<input type=hidden name=nextsub value=list_transfer>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub list_transfer {
-
-  OE->get_inventory(\%myconfig, \%$form);
-  
-  $partnumber = $form->escape($form->{partnumber});
-  $warehouse = $form->escape($form->{warehouse});
-  $description = $form->escape($form->{description});
-  $partsgroup = $form->escape($form->{partsgroup});
-  
-  # construct href
-  $href = "$form->{script}?path=$form->{path}&action=list_transfer&partnumber=$partnumber&warehouse=$warehouse&description=$description&partsgroup=$partsgroup&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  # construct callback
-  $partnumber = $form->escape($form->{partnumber},1);
-  $warehouse = $form->escape($form->{warehouse},1);
-  $description = $form->escape($form->{description},1);
-  $partsgroup = $form->escape($form->{partsgroup},1);
- 
-  $callback = "$form->{script}?path=$form->{path}&action=list_transfer&partnumber=$partnumber&warehouse=$warehouse&description=$description&partsgroup=$partsgroup&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  @column_index = $form->sort_columns(qw(partnumber description partsgroup make model warehouse qty transfer));
-
-
-  $column_header{partnumber} = qq|<th><a class=listheading href=$href&sort=partnumber>|.$locale->text('Part Number').qq|</a></th>|;
-  $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
-  $column_header{partsgroup} = qq|<th><a class=listheading href=$href&sort=partsgroup>|.$locale->text('Group').qq|</a></th>|;
-  $column_header{warehouse} = qq|<th><a class=listheading href=$href&sort=warehouse>|.$locale->text('From').qq|</a></th>|;
-  $column_header{qty} = qq|<th class=listheading>|.$locale->text('Qty').qq|</a></th>|;
-  $column_header{transfer} = qq|<th class=listheading>|.$locale->text('Transfer').qq|</a></th>|;
-
-  
-  $option = $locale->text('Transfer to');
-  
-  ($warehouse, $warehouse_id) = split /--/, $form->{warehouse};
-  
-  if ($form->{warehouse}) {
-    $option .= " : $warehouse";
-  }
-  if ($form->{partnumber}) {
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Part Number')." : $form->{partnumber}";
-  }
-  if ($form->{description}) {
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Description')." : $form->{description}";
-  }
-  if ($form->{partsgroup}) {
-    ($partsgroup) = split /--/, $form->{partsgroup};
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Group')." : $partsgroup";
-  }
-
-  $form->{title} = $locale->text('Transfer Inventory');
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=warehouse_id value=$warehouse_id>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>|;
-
-map { print "\n$column_header{$_}" } @column_index;
-
-print qq|
-	</tr>
-|;
-
-
-  if (@{ $form->{all_inventory} }) {
-    $sameitem = $form->{all_inventory}->[0]->{$form->{sort}};
-  }
-
-  $i = 0;
-  foreach $ref (@{ $form->{all_inventory} }) {
-
-    $i++;
-
-    $column_data{partnumber} = qq|<td><input type=hidden name="id_$i" value=$ref->{id}>$ref->{partnumber}</td>|;
-    $column_data{description} = "<td>$ref->{description}&nbsp;</td>";
-    $column_data{partsgroup} = "<td>$ref->{partsgroup}&nbsp;</td>";
-    $column_data{warehouse} = qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref->{warehouse}&nbsp;</td>|;
-    $column_data{qty} = qq|<td><input type=hidden name="qty_$i" value=$ref->{qty}>|.$form->format_amount(\%myconfig, $ref->{qty}).qq|</td>|;
-    $column_data{transfer} = qq|<td><input name="transfer_$i" size=4></td>|;
-
-    $j++; $j %= 2;
-    print "
-        <tr class=listrow$j>";
-    
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-	</tr>
-|;
-
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-
-<input name=callback type=hidden value="$callback">
-
-<input type=hidden name=rowcount value=$i>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input class=submit type=submit name=action value="|.$locale->text('Transfer').qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-
-}
-
-
-sub transfer {
-
-  $form->redirect($locale->text('Inventory transferred!')) if OE->transfer(\%myconfig, \%$form);
-  $form->error($locale->text('Could not transfer Inventory!'));
-
-}
-
-
-sub rfq_ { &add };
-sub quotation_ { &add };
-
-
-sub redirect {
-   
-  $form->redirect; 
-  $form->error($locale->text('Order processed!'));
-        
-}
-
diff --git a/sql-ledger/bin/mozilla/pe.pl b/sql-ledger/bin/mozilla/pe.pl
deleted file mode 100644
index 841c3fef2..000000000
--- a/sql-ledger/bin/mozilla/pe.pl
+++ /dev/null
@@ -1,1236 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2002
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# project administration
-# partsgroup administration
-# translation maintainance
-#
-#======================================================================
-
-
-use SL::PE;
-
-1;
-# end of main
-
-
-
-sub add {
-  
-  $form->{title} = "Add";
-
-  # construct callback
-  $form->{callback} = "$form->{script}?action=add&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-
-  &{ "$form->{type}_header" };
-  &{ "$form->{type}_footer" };
-  
-}
-
-
-sub edit {
-  
-  $form->{title} = "Edit";
-
-  &{ "PE::get_$form->{type}" }("", \%myconfig, \%$form);
-  &{ "$form->{type}_header" };
-  &{ "$form->{type}_footer" };
-  
-}
-
-
-sub search {
-
-  if ($form->{type} eq 'project') {
-    $report = "project_report";
-    $sort = 'projectnumber';
-    $form->{title} = $locale->text('Projects');
-
-    $number = qq|
-	<tr>
-	  <th align=right width=1%>|.$locale->text('Number').qq|</th>
-	  <td><input name=projectnumber size=20></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Description').qq|</th>
-	  <td><input name=description size=60></td>
-	</tr>
-|;
-
-  }
-  if ($form->{type} eq 'partsgroup') {
-    $report = "partsgroup_report";
-    $sort = 'partsgroup';
-    $form->{title} = $locale->text('Groups');
-    
-    $number = qq|
-	<tr>
-	  <th align=right width=1%>|.$locale->text('Group').qq|</th>
-	  <td><input name=partsgroup size=20></td>
-	</tr>
-|;
-
-  }
-  if ($form->{type} eq 'pricegroup') {
-    $report = "pricegroup_report";
-    $sort = 'pricegroup';
-    $form->{title} = $locale->text('Pricegroups');
-    
-    $number = qq|
-	<tr>
-	  <th align=right width=1%>|.$locale->text('Pricegroup').qq|</th>
-	  <td><input name=pricegroup size=20></td>
-	</tr>
-|;
-
-  }
-
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=sort value=$sort>
-<input type=hidden name=type value=$form->{type}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        $number
-	<tr>
-	  <td></td>
-	  <td><input name=status class=radio type=radio value=all checked>&nbsp;|.$locale->text('All').qq|
-	  <input name=status class=radio type=radio value=orphaned>&nbsp;|.$locale->text('Orphaned').qq|</td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=$report>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub project_report {
-
-  map { $form->{$_} = $form->unescape($form->{$_}) } (projectnumber, description);
-  PE->projects(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=project_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-
-  $form->sort_order();
-  
-  $callback = "$form->{script}?action=project_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-  
-  if ($form->{status} eq 'all') {
-    $option = $locale->text('All');
-  }
-  if ($form->{status} eq 'orphaned') {
-    $option .= $locale->text('Orphaned');
-  }
-  if ($form->{projectnumber}) {
-    $href .= "&projectnumber=".$form->escape($form->{projectnumber});
-    $callback .= "&projectnumber=$form->{projectnumber}";
-    $option .= "\n<br>".$locale->text('Project')." : $form->{projectnumber}";
-  }
-  if ($form->{description}) {
-    $href .= "&description=".$form->escape($form->{description});
-    $callback .= "&description=$form->{description}";
-    $option .= "\n<br>".$locale->text('Description')." : $form->{description}";
-  }
-    
-
-  @column_index = $form->sort_columns(qw(projectnumber description));
-
-  $column_header{projectnumber} = qq|<th><a class=listheading href=$href&sort=projectnumber>|.$locale->text('Number').qq|</a></th>|;
-  $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
-
-  $form->{title} = $locale->text('Projects');
-
-  $form->header;
- 
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-        </tr>
-|;
-
-  # escape callback
-  $form->{callback} = $callback .= "&sort=$form->{sort}";
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-  
-  foreach $ref (@{ $form->{project_list} }) {
-    
-    $i++; $i %= 2;
-    
-    print qq|
-        <tr valign=top class=listrow$i>
-|;
-    
-    $column_data{projectnumber} = qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{projectnumber}</td>|;
-    $column_data{description} = qq|<td>$ref->{description}&nbsp;</td>|;
-    
-    map { print "$column_data{$_}\n" } @column_index;
-    
-    print "
-        </tr>
-";
-  }
-  
-  $i = 1;
-  if ($myconfig{acs} !~ /Projects--Projects/) {
-    $button{'Projects--Add Project'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Project').qq|"> |;
-    $button{'Projects--Add Project'}{order} = $i++;
-
-    foreach $item (split /;/, $myconfig{acs}) {
-      delete $button{$item};
-    }
-  }
- 
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=$form->{type}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-  
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-  
-</body>
-</html>
-|;
-
-}
-
-
-sub project_header {
-
-  $form->{title} = $locale->text("$form->{title} Project");
-  
-# $locale->text('Add Project')
-# $locale->text('Edit Project')
-
-  $form->{description} = $form->quote($form->{description});
-
-  if (($rows = $form->numtextrows($form->{description}, 60)) > 1) {
-    $description = qq|<textarea name="description" rows=$rows cols=60 style="width: 100%" wrap=soft>$form->{description}</textarea>|;
-  } else {
-    $description = qq|<input name=description size=60 value="$form->{description}">|;
-  }
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=project>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Number').qq|</th>
-	  <td><input name=projectnumber size=20 value="$form->{projectnumber}"></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Description').qq|</th>
-	  <td>$description</td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub project_footer {
-
-  print qq|
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-<br>
-|;
-
-  if ($myconfig{acs} !~ /Projects--Add Project/) {
-    print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
-|;
-
-    if ($form->{id} && $form->{orphaned}) {
-      print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|;
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub save {
-
-  if ($form->{type} eq 'project') {
-    $form->isblank("projectnumber", $locale->text('Project Number missing!'));
-    PE->save_project(\%myconfig, \%$form);
-    $form->redirect($locale->text('Project saved!'));
-  }
-  if ($form->{type} eq 'partsgroup') {
-    $form->isblank("partsgroup", $locale->text('Group missing!'));
-    PE->save_partsgroup(\%myconfig, \%$form);
-    $form->redirect($locale->text('Group saved!'));
-  }
-  if ($form->{type} eq 'pricegroup') {
-    $form->isblank("pricegroup", $locale->text('Pricegroup missing!'));
-    PE->save_pricegroup(\%myconfig, \%$form);
-    $form->redirect($locale->text('Pricegroup saved!'));
-  }
-  if ($form->{translation}) {
-    PE->save_translation(\%myconfig, \%$form);
-    $form->redirect($locale->text('Translations saved!'));
-  }
-
-}
-
-
-sub delete {
-
-  if ($form->{translation}) {
-    PE->delete_translation(\%myconfig, \%$form);
-    $form->redirect($locale->text('Translation deleted!'));
-
-  } else {
-  
-    PE->delete_tuple(\%myconfig, \%$form);
-    
-    if ($form->{type} eq 'project') { 
-      $form->redirect($locale->text('Project deleted!'));
-    }
-    if ($form->{type} eq 'partsgroup') {
-      $form->redirect($locale->text('Group deleted!'));
-    }
-    if ($form->{type} eq 'pricegroup') {
-      $form->redirect($locale->text('Pricegroup deleted!'));
-    }
-  }
-
-}
-
-
-sub continue { &{ $form->{nextsub} } };
-
-
-sub partsgroup_report {
-
-  map { $form->{$_} = $form->unescape($form->{$_}) } (partsgroup);
-  PE->partsgroups(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=partsgroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-  
-  $form->sort_order();
-
-  $callback = "$form->{script}?action=partsgroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-  
-  if ($form->{status} eq 'all') {
-    $option = $locale->text('All');
-  }
-  if ($form->{status} eq 'orphaned') {
-    $option .= $locale->text('Orphaned');
-  }
-  if ($form->{partsgroup}) {
-    $callback .= "&partsgroup=$form->{partsgroup}";
-    $option .= "\n<br>".$locale->text('Group')." : $form->{partsgroup}";
-  }
-   
-
-  @column_index = $form->sort_columns(qw(partsgroup));
-
-  $column_header{partsgroup} = qq|<th><a class=listheading href=$href&sort=partsgroup width=90%>|.$locale->text('Group').qq|</a></th>|;
-
-  $form->{title} = $locale->text('Groups');
-
-  $form->header;
- 
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-        </tr>
-|;
-
-  # escape callback
-  $form->{callback} = $callback;
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-  
-  foreach $ref (@{ $form->{item_list} }) {
-    
-    $i++; $i %= 2;
-    
-    print qq|
-        <tr valign=top class=listrow$i>
-|;
-    
-    $column_data{partsgroup} = qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partsgroup}</td>|;
-    map { print "$column_data{$_}\n" } @column_index;
-    
-    print "
-        </tr>
-";
-  }
-
-  $i = 1;
-  if ($myconfig{acs} !~ /Goods \& Services--Goods \& Services/) {
-    $button{'Goods & Services--Add Group'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Group').qq|"> |;
-    $button{'Goods & Services--Add Group'}{order} = $i++;
-
-    foreach $item (split /;/, $myconfig{acs}) {
-      delete $button{$item};
-    }
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=$form->{type}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub partsgroup_header {
-
-  $form->{title} = $locale->text("$form->{title} Group");
-  
-# $locale->text('Edit Group')
-
-  $form->{partsgroup} = $form->quote($form->{partsgroup});
-
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=$form->{type}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th align=right>|.$locale->text('Group').qq|</th>
-
-          <td><input name=partsgroup size=30 value="$form->{partsgroup}"></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub partsgroup_footer {
-
-  print qq|
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-<br>
-|;
-
-  if ($myconfig{acs} !~ /Goods \& Services--Add Group/) {
-    print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
-|;
-
-    if ($form->{id} && $form->{orphaned}) {
-      print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|;
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub pricegroup_report {
-
-  map { $form->{$_} = $form->unescape($form->{$_}) } (pricegroup);
-  PE->pricegroups(\%myconfig, \%$form);
-
-  $href = "$form->{script}?action=pricegroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-  
-  $form->sort_order();
-
-  $callback = "$form->{script}?action=pricegroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
-  
-  if ($form->{status} eq 'all') {
-    $option = $locale->text('All');
-  }
-  if ($form->{status} eq 'orphaned') {
-    $option .= $locale->text('Orphaned');
-  }
-  if ($form->{pricegroup}) {
-    $callback .= "&pricegroup=$form->{pricegroup}";
-    $option .= "\n<br>".$locale->text('Pricegroup')." : $form->{pricegroup}";
-  }
-   
-
-  @column_index = $form->sort_columns(qw(pricegroup));
-
-  $column_header{pricegroup} = qq|<th><a class=listheading href=$href&sort=pricegroup width=90%>|.$locale->text('Pricegroup').qq|</th>|;
-
-  $form->{title} = $locale->text('Pricegroups');
-
-  $form->header;
- 
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-        </tr>
-|;
-
-  # escape callback
-  $form->{callback} = $callback;
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-  
-  foreach $ref (@{ $form->{item_list} }) {
-    
-    $i++; $i %= 2;
-    
-    print qq|
-        <tr valign=top class=listrow$i>
-|;
-    
-    $column_data{pricegroup} = qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{pricegroup}</td>|;
-    map { print "$column_data{$_}\n" } @column_index;
-    
-    print "
-        </tr>
-";
-  }
-
-  $i = 1;
-  if ($myconfig{acs} !~ /Goods \& Services--Goods \& Services/) {
-    $button{'Goods & Services--Add Pricegroup'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Pricegroup').qq|"> |;
-    $button{'Goods & Services--Add Pricegroup'}{order} = $i++;
-
-    foreach $item (split /;/, $myconfig{acs}) {
-      delete $button{$item};
-    }
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=$form->{type}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub pricegroup_header {
-
-  $form->{title} = $locale->text("$form->{title} Pricegroup");
-  
-# $locale->text('Edit Pricegroup')
-
-  $form->{pricegroup} = $form->quote($form->{pricegroup});
-
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=$form->{type}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th align=right>|.$locale->text('Pricegroup').qq|</th>
-
-          <td><input name=pricegroup size=30 value="$form->{pricegroup}"></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub pricegroup_footer {
-
-  print qq|
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-<br>
-|;
-
-  if ($myconfig{acs} !~ /Goods \& Services--Add Pricegroup/) {
-    print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
-|;
-
-    if ($form->{id} && $form->{orphaned}) {
-      print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|;
-    }
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub translation {
-
-  if ($form->{translation} eq 'description') {
-    $form->{title} = $locale->text('Description Translations');
-    $sort = qq|<input type=hidden name=sort value=partnumber>|;
-    $form->{number} = "partnumber";
-    $number = qq|
-        <tr>
-          <th align=right nowrap>|.$locale->text('Number').qq|</th>
-          <td><input name=partnumber size=20></td>
-        </tr>
-|;
-  }
-
-  if ($form->{translation} eq 'partsgroup') {
-    $form->{title} = $locale->text('Group Translations');
-    $sort = qq|<input type=hidden name=sort value=partsgroup>|;
-  }
-  
-  if ($form->{translation} eq 'project') {
-    $form->{title} = $locale->text('Project Description Translations');
-    $form->{number} = "projectnumber";
-    $sort = qq|<input type=hidden name=sort value=projectnumber>|;
-    $number = qq|
-        <tr>
-          <th align=right nowrap>|.$locale->text('Project Number').qq|</th>
-          <td><input name=projectnumber size=20></td>
-        </tr>
-|;
-  }
-
-
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=translation value=$form->{translation}>
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=number value=$form->{number}>
-
-<table width="100%">
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table>
-        $number
-        <tr>
-          <th align=right nowrap>|.$locale->text('Description').qq|</th>
-          <td colspan=3><input name=description size=40></td>
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr><td><hr size=3 noshade></td></tr>
-</table>
-
-<input type=hidden name=nextsub value=list_translations>
-$sort
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub list_translations {
-
-  $title = $form->escape($form->{title},1);
-  
-  $callback = "$form->{script}?action=list_translations&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&translation=$form->{translation}&number=$form->{number}&title=$title";
-
-  if ($form->{"$form->{number}"}) {
-    $callback .= qq|&$form->{number}=$form->{"$form->{number}"}|;
-    $option .= $locale->text('Number').qq| : $form->{"$form->{number}"}<br>|;
-  }
-  if ($form->{description}) {
-    $callback .= "&description=$form->{description}";
-    $description = $form->{description};
-    $description =~ s/
/<br>/g;
-    $option .= $locale->text('Description').qq| : $form->{description}<br>|;
-  }
-
-  if ($form->{translation} eq 'partsgroup') {
-    @column_index = qw(description language translation);
-    $form->{sort} = "";
-  } else {
-    @column_index = $form->sort_columns("$form->{number}", "description", "language", "translation");
-  }
-
-  &{ "PE::$form->{translation}_translations" }("", \%myconfig, \%$form);
-
-  $callback .= "&direction=$form->{direction}&oldsort=$form->{oldsort}";
-  
-  $href = $callback;
-  
-  $form->sort_order();
-  
-  $callback =~ s/(direction=).*\&{1}/$1$form->{direction}\&/;
-
-  $column_header{"$form->{number}"} = qq|<th nowrap><a class=listheading href=$href&sort=$form->{number}>|.$locale->text('Number').qq|</a></th>|;
-  $column_header{description} = qq|<th nowrap width=40%><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
-  $column_header{language} = qq|<th nowrap class=listheading>|.$locale->text('Language').qq|</a></th>|;
-  $column_header{translation} = qq|<th nowrap width=40% class=listheading>|.$locale->text('Translation').qq|</a></th>|;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-
-  <tr><td>$option</td></tr>
-
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-  
-  print qq|
-        </tr>
-  |;
-
-
-  # add order to callback
-  $form->{callback} = $callback .= "&sort=$form->{sort}";
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-
-  if (@{ $form->{translations} }) {
-    $sameitem = $form->{translations}->[0]->{$form->{sort}};
-  }
-
-  foreach $ref (@{ $form->{translations} }) {
-  
-    $ref->{description} =~ s/
/<br>/g;
-    
-    map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" } @column_index;
-    
-    $column_data{description} = "<td><a href=$form->{script}?action=edit_translation&translation=$form->{translation}&number=$form->{number}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}&nbsp;</a></td>";
-    
-    $i++; $i %= 2;
-    print "<tr class=listrow$i>";
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-    </tr>
-|;
-
-  }
-  
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr><td><hr size=3 noshade></td></tr>
-</table>
-
-|;
- 
-  print qq|
-
-<br>
-
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub edit_translation {
-
-  &{ "PE::$form->{translation}_translations" }("", \%myconfig, \%$form);
-
-  $form->error($locale->text('Languages not defined!')) unless $form->{all_language};
-
-  $form->{selectlanguage} = qq|<option>\n|;
-  map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_language} };
-
-  $form->{"$form->{number}"} = $form->{translations}->[0]->{"$form->{number}"};
-  $form->{description} = $form->{translations}->[0]->{description};
-  $form->{description} =~ s/
/<br>/g;
-
-  shift @{ $form->{translations} };
-
-  $i = 1;
-  foreach $row (@{ $form->{translations} }) {
-    $form->{"language_code_$i"} = $row->{code};
-    $form->{"translation_$i"} = $row->{translation};
-    $i++;
-  }
-  $form->{translation_rows} = $i - 1;
-    
-  $form->{title} = $locale->text('Edit Description Translations');
-  
-  &translation_header;
-  &translation_footer;
-
-}
-
-
-sub translation_header {
-
-  $form->{translation_rows}++;
-
-  $form->{selectlanguage} = $form->unescape($form->{selectlanguage});
-  for ($i = 1; $i <= $form->{translation_rows}; $i++) {
-    $form->{"selectlanguage_$i"} = $form->{selectlanguage};
-    if ($form->{"language_code_$i"}) {
-      $form->{"selectlanguage_$i"} =~ s/(<option value="\Q$form->{"language_code_$i"}\E")/$1 selected/;
-    }
-  }
-  
-  $form->{selectlanguage} = $form->escape($form->{selectlanguage},1);
-
-  $form->header;
- 
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input name=id type=hidden value=$form->{id}>
-<input name=trans_id type=hidden value=$form->{trans_id}>
-
-<input type=hidden name=selectlanguage value="$form->{selectlanguage}">
-<input type=hidden name=translation_rows value=$form->{translation_rows}>
-
-<input type=hidden name=number value=$form->{number}>
-<input type=hidden name=$form->{number} value="|.$form->quote($form->{"$form->{number}"}).qq|">
-<input type=hidden name=description value="|.$form->quote($form->{description}).qq|">
-
-<input type=hidden name=translation value=$form->{translation}>
-<input type=hidden name=title value="$form->{title}">
-
-<table width="100%">
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table width=100%>
-        <tr>
-          <td align=left>$form->{"$form->{number}"}</th>
-	  <td align=left>$form->{description}</th>
-        </tr>
-        <tr>
-	<tr>
-	  <th class=listheading>|.$locale->text('Language').qq|</th>
-	  <th class=listheading>|.$locale->text('Translation').qq|</th>
-	</tr>
-|;
-
-  for ($i = 1; $i <= $form->{translation_rows}; $i++) {
-    
-    if (($rows = $form->numtextrows($form->{"translation_$i"}, 40)) > 1) {
-      $translation = qq|<textarea name="translation_$i" rows=$rows cols=40 wrap=soft>$form->{"translation_$i"}</textarea>|;
-    } else {
-      $translation = qq|<input name="translation_$i" size=40 value="$form->{"translation_$i"}">|;
-    }
-   
-    print qq|
-	<tr valign=top>
-	  <td><select name="language_code_$i">$form->{"selectlanguage_$i"}</select></td>
-	  <td>$translation</td>
-	</tr>
-|;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-}
-
-
-sub translation_footer {
-
-  print qq|
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=hidden name=callback value="$form->{callback}">
-
-<br>
-
-<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Save').qq|">
-|;
-
-  if ($form->{trans_id}) {
-    print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">
-|;
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub update {
-
-  @flds = qw(language translation);
-  $count = 0;
-  @a = ();
-  for $i (1 .. $form->{translation_rows}) {
-    if ($form->{"language_code_$i"} ne "") {
-      push @a, {};
-      $j = $#a;
-
-      map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
-      $count++;
-    }
-  }
-  $form->redo_rows(\@flds, \@a, $count, $form->{translation_rows});
-  $form->{translation_rows} = $count;
-
-  &translation_header;
-  &translation_footer;
-
-}
-
-    
-sub add_group { &add };
-sub add_project { &add };
-sub add_pricegroup { &add };
-
diff --git a/sql-ledger/bin/mozilla/pos.pl b/sql-ledger/bin/mozilla/pos.pl
deleted file mode 100644
index e9416f63b..000000000
--- a/sql-ledger/bin/mozilla/pos.pl
+++ /dev/null
@@ -1,878 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2003
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-# Contributors: Steve Doerr <sdoerr907@everestkc.net>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#=====================================================================
-#
-# POS
-#
-#=====================================================================
-
-
-1;
-# end
-
-
-sub add {
-
-  $form->{title} = $locale->text('Add POS Invoice');
-
-  $form->{callback} = "$form->{script}?action=$form->{nextsub}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-  
-  &invoice_links;
-
-  $form->{type} =  "pos_invoice";
-  $form->{format} = "txt";
-  $form->{media} = ($myconfig{printer}) ? $myconfig{printer} : "screen";
-  $form->{rowcount} = 0;
-
-  $form->{readonly} = ($myconfig{acs} =~ /POS--Sale/) ? 1 : 0;
-
-  $ENV{REMOTE_ADDR} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
-  $form->{till} = $4;
-
-  map { $form->{partsgroup} .= "$_->{partsgroup}--$_->{translation}\n" } @{ $form->{all_partsgroup} };
-
-  &display_form;
-
-}
-
-
-sub openinvoices {
-
-  $ENV{REMOTE_ADDR} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
-  $form->{till} = $4;
-  
-  $form->{sort} = 'transdate';
-
-  map { $form->{$_} = 'Y' } qw(open l_invnumber l_transdate l_name l_amount l_curr l_till l_subtotal);
-
-  if ($myconfig{role} ne 'user') {
-    $form->{l_employee} = 'Y';
-  }
-
-  $form->{title} = $locale->text('Open');
-  &ar_transactions;
-  
-}
-
-
-sub edit {
-
-  $form->{title} = $locale->text('Edit POS Invoice');
-
-  $form->{callback} = "$form->{script}?action=$form->{nextsub}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
-  
-  &invoice_links;
-  &prepare_invoice;
-
-  $form->{type} =  "pos_invoice";
-  $form->{format} = "txt";
-  $form->{media} = ($myconfig{printer}) ? $myconfig{printer} : "screen";
-
-  $form->{readonly} = ($myconfig{acs} =~ /POS--Sale/) ? 1 : 0;
-
-  map { $form->{partsgroup} .= "$_->{partsgroup}--$_->{translation}\n" } @{ $form->{all_partsgroup} };
-  
-  &display_form;
-
-}
-
-
-sub form_header {
-
-  # set option selected
-  foreach $item (qw(AR currency)) {
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
-  }
-
-  foreach $item (qw(customer department employee)) {
-    $form->{"select$item"} = $form->unescape($form->{"select$item"});
-    $form->{"select$item"} =~ s/ selected//;
-    $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/;
-  }
-    
-  $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
-
-  if ($form->{oldtotalpaid} > $form->{oldinvtotal}) {
-    $adj = $form->{oldtotalpaid} - $form->{oldinvtotal};
-  }
-  $form->{creditremaining} = $form->{creditremaining} - $adj + $form->{oldchange};
-  
-  $exchangerate = "";
-  if ($form->{currency} ne $form->{defaultcurrency}) {
-    if ($form->{forex}) {
-      $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>|;
-    } else {
-      $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|;
-    }
-  }
-  $exchangerate .= qq|
-<input type=hidden name=forex value=$form->{forex}>
-|;
-
-  if ($form->{selectcustomer}) {
-    $customer = qq|<select name=customer>$form->{selectcustomer}</select>
-                   <input type=hidden name="selectcustomer" value="|.
-		   $form->escape($form->{selectcustomer},1).qq|">|;
-  } else {
-    $customer = qq|<input name=customer value="$form->{customer}" size=35>|;
-  }
-  
-  $department = qq|
-              <tr>
-	        <th align="right" nowrap>|.$locale->text('Department').qq|</th>
-		<td colspan=3><select name=department>$form->{selectdepartment}</select>
-		<input type=hidden name=selectdepartment value="|.
-		$form->escape($form->{selectdepartment},1).qq|">
-		</td>
-	      </tr>
-| if $form->{selectdepartment};
-	
-  $n = ($form->{creditremaining} < 0) ? "0" : "1";
-
-  if ($form->{selectlanguage}) {
-    if ($form->{language_code} ne $form->{oldlanguage_code}) {
-      # rebuild partsgroup
-      $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} });
-      $form->{partsgroup} = "";
-      map { $form->{partsgroup} .= "$_->{partsgroup}--$_->{translation}\n" } @{ $form->{all_partsgroup} };
-      $form->{oldlanguage_code} = $form->{language_code};
-    }
-
-      
-    $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"});
-    $form->{"selectlanguage"} =~ s/ selected//;
-    $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/; 
-    $lang = qq|
-	      <tr>
-                <th align=right>|.$locale->text('Language').qq|</th>
-		<td colspan=3><select name=language_code>$form->{selectlanguage}</select></td>
-	      </tr>
-    <input type=hidden name=oldlanguage_code value=$form->{oldlanguage_code}>
-    <input type=hidden name=selectlanguage value="|.
-    $form->escape($form->{selectlanguage},1).qq|">|;
-  }
- 
-
-  $form->header;
-
- 
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-
-<input type=hidden name=till value=$form->{till}>
-
-<input type=hidden name=type value=$form->{type}>
-<input type=hidden name=media value=$form->{media}>
-<input type=hidden name=format value=$form->{format}>
-
-<input type=hidden name=printed value="$form->{printed}">
-
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=vc value="customer">
-
-<input type=hidden name=discount value=$form->{discount}>
-<input type=hidden name=creditlimit value=$form->{creditlimit}>
-<input type=hidden name=creditremaining value=$form->{creditremaining}>
-
-<input type=hidden name=closedto value=$form->{closedto}>
-<input type=hidden name=locked value=$form->{locked}>
-
-
-<table width=100%>
-  <tr class=listtop>
-    <th class=listtop>$form->{title}</font></th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Customer').qq|</th>
-		<td>$customer</td>
-		<input type=hidden name=customer_id value=$form->{customer_id}>
-		<input type=hidden name=oldcustomer value="$form->{oldcustomer}"> 
-	      </tr>
-	      <tr>
-	        <td></td>
-		<td colspan=3>
-		  <table>
-		    <tr>
-		      <th nowrap>|.$locale->text('Credit Limit').qq|</th>
-		      <td>$form->{creditlimit}</td>
-		      <th nowrap>|.$locale->text('Remaining').qq|</th>
-		      <td class="plus$n">|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</font></td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-	      $discount
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Record in').qq|</th>
-		<td><select name=AR>$form->{selectAR}</select></td>
-		<input type=hidden name=selectAR value="$form->{selectAR}">
-	      </tr>
-	      $department
-	    </table>
-	  </td>
-	  <td>
-	    <table>
-	      <tr>
-	        <th align=right nowrap>|.$locale->text('Salesperson').qq|</th>
-		<td colspan=3><select name=employee>$form->{selectemployee}</select></td>
-		<input type=hidden name=selectemployee value="|.
-		$form->escape($form->{selectemployee},1).qq|">
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Currency').qq|</th>
-		<td><select name=currency>$form->{selectcurrency}</select></td>
-		<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-		<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
-		<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
-		<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
-		$exchangerate
-	      </tr>
-	      $lang
-	    </table>
-	  </td>
-	<input type=hidden name=invnumber value=$form->{invnumber}>
-	<input type=hidden name=transdate value=$form->{transdate}>
-	<input type=hidden name=duedate value=$form->{duedate}>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-    </td>
-  </tr>
-
-
-<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
-|;
-
-  foreach $item (split / /, $form->{taxaccounts}) {
-    print qq|
-<input type=hidden name="${item}_rate" value="$form->{"${item}_rate"}">
-<input type=hidden name="${item}_description" value="$form->{"${item}_description"}">
-<input type=hidden name="${item}_taxnumber" value="$form->{"${item}_taxnumber"}">
-|;
-  }
-
-}
-
-
-
-sub form_footer {
-
-  $form->{invtotal} = $form->{invsubtotal};
-  
-  foreach $item (split / /, $form->{taxaccounts}) {
-    if ($form->{"${item}_base"}) {
-      $form->{"${item}_total"} = $form->round_amount($form->{"${item}_base"} * $form->{"${item}_rate"}, 2);
-      $form->{invtotal} += $form->{"${item}_total"};
-      $form->{"${item}_total"} = $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2, 0);
-      
-      $tax .= qq|
-	    <tr>
-	      <th align=right>$form->{"${item}_description"}</th>
-	      <td align=right>$form->{"${item}_total"}</td>
-	    </tr>
-|;
-    }
-  }
-
-
-
-  $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0);
-
-  $subtotal = qq|
-	      <tr>
-		<th align=right>|.$locale->text('Subtotal').qq|</th>
-		<td align=right>$form->{invsubtotal}</td>
-	      </tr>
-|;
-
-
-  $totalpaid = 0;
-  
-  $form->{paidaccounts} = 1;
-  $i = 1;
-  
-  $form->{"selectAR_paid_$i"} = $form->{selectAR_paid};
-  $form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/;
-  
-  # format amounts
-  $totalpaid += $form->{"paid_$i"};
-  $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
-  $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
-  
-  $form->{change} = 0;
-  if ($totalpaid > $form->{invtotal}) {
-    $form->{change} = $totalpaid - $form->{invtotal};
-  }
-  $form->{oldchange} = $form->{change};
-  $form->{change} = $form->format_amount(\%myconfig, $form->{change}, 2, 0);
-  $form->{totalpaid} = $form->format_amount(\%myconfig, $totalpaid, 2);
-
- 
-  $form->{oldinvtotal} = $form->{invtotal};
-  $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0);
-  
- 
-  print qq|
-
-<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate"}>
-<input type=hidden name="forex_$i" value=$form->{"forex_$i"}>
-
-  <tr>
-    <td>
-      <table width=100%>
-	<tr valign=bottom>
-	  <td>
-	    <table>
-	      <tr>
-	        <td></td>
-                <th>|.$locale->text('Paid').qq|</th>
-		<th>|.$locale->text('Source').qq|</th>
-		<th>|.$locale->text('Memo').qq|</th>
-		<th>|.$locale->text('Account').qq|</th>
-	      </tr>
-	      <tr>
-	        <td></td>
-		<td><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>
-		<td><input name="source_$i" size=10 value="$form->{"source_$i"}"></td>
-		<td><input name="memo_$i" size=10 value="$form->{"memo_$i"}"></td>
-	        <td><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>
-	      </tr>
-	      <tr>
-		<th align=right>|.$locale->text('Change').qq|</th>
-		<th>$form->{change}</th>
-	      </tr>
-	    </table>
-	  </td>
-	  <td align=right>
-	    <table>
-	      $subtotal
-	      $tax
-	      <tr>
-		<th align=right>|.$locale->text('Total').qq|</th>
-		<td align=right>$form->{invtotal}</td>
-	      </tr>
-	      $taxincluded
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
- 
-<input type=hidden name=paidaccounts value=$form->{paidaccounts}>
-<input type=hidden name=selectAR_paid value="$form->{selectAR_paid}">
-<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
-<input type=hidden name=oldtotalpaid value=$totalpaid>
-
-<input type=hidden name=change value=$form->{change}>
-<input type=hidden name=oldchange value=$form->{oldchange}>
-
-<input type=hidden name=datepaid value=$form->{transdate}>
-<input type=hidden name=invtotal value=$form->{invtotal}>
-
-<tr>
-  <td>
-|;
-
-  &print_options;
-
-  print qq|
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-  $transdate = $form->datetonum($form->{transdate}, \%myconfig);
-  $closedto = $form->datetonum($form->{closedto}, \%myconfig);
- 
-  if (! $form->{readonly}) {
-    if ($transdate > $closedto) {
-      print qq|
-      <input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
-      <input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-      <input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|;
-
-      if ($form->{id}) {
-	print qq|
-      <input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">|;
-      }
-    
-
-      print "<p>\n";
-    
-      if ($form->{partsgroup}) {
-	print qq|
-<input type=hidden name=nextsub value=lookup_partsgroup>
-<input type=hidden name=partsgroup value="$form->{partsgroup}">|;
-
-	foreach $item (split /\n/, $form->{partsgroup}) {
-	  $item =~ s/
//;
-	  ($partsgroup, $translation) = split /--/, $item;
-	  $item = ($translation) ? $translation : $partsgroup;
-	  print qq| <input class=submit type=submit name=action value=".$item">\n|;
-	}
-      }
-    }
-  }
-  
-  print qq|
-
-<input type=hidden name=rowcount value=$form->{rowcount}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub post {
-
-  $form->isblank("customer", $locale->text('Customer missing!'));
-
-  # if oldcustomer ne customer redo form
-  $customer = $form->{customer};
-  $customer =~ s/--.*//g;
-  $customer .= "--$form->{customer_id}";
-  if ($customer ne $form->{oldcustomer}) {
-    &update;
-    exit;
-  }
-  
-  &validate_items;
-
-  $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency});
-  
-  $paid = $form->parse_amount(\%myconfig, $form->{"paid_1"});
-  $total = $form->parse_amount(\%myconfig, $form->{invtotal});
-  
-  $form->{"paid_1"} = $form->{invtotal} if $paid > $total;
-  
-  ($form->{AR}) = split /--/, $form->{AR};
-
-  $form->{invnumber} = $form->update_defaults(\%myconfig, "sinumber") unless $form->{invnumber};
-  
-  $form->redirect($locale->text('Posted!')) if (IS->post_invoice(\%myconfig, \%$form));
-  $form->error($locale->text('Cannot post transaction!'));
-  
-}
-
-
-sub display_row {
-  my $numrows = shift;
-
-  @column_index = qw(partnumber description partsgroup qty unit sellprice discount linetotal);
-    
-  $form->{invsubtotal} = 0;
-
-  map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts});
-  
-  $column_data{partnumber} = qq|<th class=listheading nowrap>|.$locale->text('Number').qq|</th>|;
-  $column_data{description} = qq|<th class=listheading nowrap>|.$locale->text('Description').qq|</th>|;
-  $column_data{qty} = qq|<th class=listheading nowrap>|.$locale->text('Qty').qq|</th>|;
-  $column_data{unit} = qq|<th class=listheading nowrap>|.$locale->text('Unit').qq|</th>|;
-  $column_data{sellprice} = qq|<th class=listheading nowrap>|.$locale->text('Price').qq|</th>|;
-  $column_data{linetotal} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|;
-  $column_data{discount} = qq|<th class=listheading nowrap>%</th>|;
-  
-  print qq|
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  $exchangerate = $form->parse_amount(\%myconfig, $form->{exchangerate});
-  $exchangerate = ($exchangerate) ? $exchangerate : 1;
-  
-  for $i (1 .. $numrows) {
-    # undo formatting
-    map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty discount sellprice);
-
-    ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
-    $dec = length $dec;
-    $decimalplaces = ($dec > 2) ? $dec : 2;
-
-    if (($form->{"qty_$i"} != $form->{"oldqty_$i"}) || ($form->{currency} ne $form->{oldcurrency})) {
-# check for a pricematrix
-      foreach $item (split / /, $form->{"pricematrix_$i"}) {
-	($q, $p) = split /:/, $item;
-	if ($p && $form->{"qty_$i"} > $q) {
-	  $form->{"sellprice_$i"} = $form->round_amount($p / $exchangerate, $decimalplaces);
-	}
-      }
-    }
-    
-    if ($i < $numrows) {
-      if ($form->{"discount_$i"} != $form->{discount} * 100) {
-	$form->{"discount_$i"} = $form->{discount} * 100;
-      }
-    }
-    
-    $discount = $form->round_amount($form->{"sellprice_$i"} * $form->{"discount_$i"}/100, $decimalplaces);
-    $linetotal = $form->round_amount($form->{"sellprice_$i"} - $discount, $decimalplaces);
-    $linetotal = $form->round_amount($linetotal * $form->{"qty_$i"}, 2);
-
-    map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description partsgroup unit);
-    
-    $column_data{partnumber} = qq|<td><input name="partnumber_$i" size=20 value="$form->{"partnumber_$i"}"></td>|;
-
-    if (($rows = $form->numtextrows($form->{"description_$i"}, 25, 6)) > 1) {
-      $column_data{description} = qq|<td><textarea name="description_$i" rows=$rows cols=25 wrap=soft>$form->{"description_$i"}</textarea></td>|;
-    } else {
-      $column_data{description} = qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}"></td>|;
-    }
-
-    $column_data{partsgroup} = qq|<input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">|;
-
-    $column_data{qty} = qq|<td align=right><input name="qty_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"qty_$i"}).qq|></td>|;
-    $column_data{unit} = qq|<td><input type=hidden name="unit_$i" value="$form->{"unit_$i"}">$form->{"unit_$i"}</td>|;
-    $column_data{sellprice} = qq|<td align=right><input name="sellprice_$i" size=9 value=|.$form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces).qq|></td>|;
-    $column_data{linetotal} = qq|<td align=right>|.$form->format_amount(\%myconfig, $linetotal, 2).qq|</td>|;
-    
-
-    $discount = $form->format_amount(\%myconfig, $form->{"discount_$i"});
-    $column_data{discount} = qq|<td align=right>$discount</td>
-    <input type=hidden name="discount_$i" value=$discount>|;
-    
-    print qq|
-        <tr valign=top>|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-  
-    print qq|
-        </tr>
-
-<input type=hidden name="id_$i" value=$form->{"id_$i"}>
-<input type=hidden name="inventory_accno_$i" value=$form->{"inventory_accno_$i"}>
-<input type=hidden name="income_accno_$i" value=$form->{"income_accno_$i"}>
-<input type=hidden name="expense_accno_$i" value=$form->{"expense_accno_$i"}>
-<input type=hidden name="listprice_$i" value="$form->{"listprice_$i"}">
-<input type=hidden name="assembly_$i" value="$form->{"assembly_$i"}">
-<input type=hidden name="taxaccounts_$i" value="$form->{"taxaccounts_$i"}">
-<input type=hidden name="pricematrix_$i" value="$form->{"pricematrix_$i"}">
-<input type=hidden name="oldqty_$i" value="$form->{"qty_$i"}">
-<input type=hidden name="sku_$i" value="$form->{"sku_$i"}">
-
-|;
-
-    map { $form->{"${_}_base"} += $linetotal } (split / /, $form->{"taxaccounts_$i"});
-  
-    $form->{invsubtotal} += $linetotal;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-
-<input type=hidden name=oldcurrency value=$form->{currency}>
-
-|;
-
-}
-
-
-sub print {
-  
-  $paid = $form->parse_amount(\%myconfig, $form->{"paid_1"});
-  $total = $form->parse_amount(\%myconfig, $form->{invtotal});
-
-  $form->{change} = 0;
-  if ($paid > $total) {
-    $form->{paid} = $total - $paid;
-    $form->{"paid_1"} = $form->format_amount(\%myconfig, $paid, 2, 0);
-    $form->{change} = $form->format_amount(\%myconfig, $paid - $total, 2, 0);
-  }
-
-  $old_form = new Form;
-  map { $old_form->{$_} = $form->{$_} } keys %$form;
-  
-  map { $form->{$_} =~ s/--.*//g } qw(employee department);
-  $form->{invdate} = $form->{transdate};
-  $form->{invtime} = scalar localtime;
-
-  &print_form($old_form);
-
-}
-
-
-sub print_form {
-  my $old_form = shift;
-  
-  # if oldcustomer ne customer redo form
-  $customer = $form->{customer};
-  $customer =~ s/--.*//g;
-  $customer .= "--$form->{customer_id}";
-  if ($customer ne $form->{oldcustomer}) {
-    &update;
-    exit;
-  }
- 
- 
-  &validate_items;
-
-  &{ "$form->{vc}_details" };
-
-  @a = ();
-  map { push @a, ("partnumber_$_", "description_$_") } (1 .. $form->{rowcount});
-  map { push @a, "${_}_description" } split / /, $form->{taxaccounts};
-  $form->format_string(@a);
-
-  # format payment dates
-  map { $form->{"datepaid_$_"} = $locale->date(\%myconfig, $form->{"datepaid_$_"}) } (1 .. $form->{paidaccounts});
-  
-  IS->invoice_details(\%myconfig, \%$form);
-
-  map { $form->{$_} = $myconfig{$_} } (qw(company address tel fax businessnumber));
-  $form->{username} = $myconfig{name};
-  map { $form->{$_} =~ s/\\n/ /g } qw(company address);
-
-  $form->{templates} = "$myconfig{templates}";
-  $form->{IN} = "$form->{type}.$form->{format}";
-
-  if ($form->{media} !~ /screen/) {
-    $form->{OUT} = "| $printer{$form->{media}}";
-  }
-
-  $form->{discount} = $form->format_amount(\%myconfig, $form->{discount} * 100);
-  
-  $form->{rowcount}--;
-  $form->{pre} = "<body bgcolor=#ffffff>\n<pre>";
-  delete $form->{stylesheet};
-  
-  $form->parse_template(\%myconfig, $userspath);
-
-  if ($form->{printed} !~ /$form->{formname}/) {
-    $form->{printed} .= " $form->{formname}";
-    $form->{printed} =~ s/^ //;
-    
-    $form->update_status(\%myconfig);
-  }
-  $old_form->{printed} = $form->{printed};
-  
-  # if we got back here restore the previous form
-  if ($form->{media} !~ /screen/) {
-    # restore and display form
-    map { $form->{$_} = $old_form->{$_} } keys %$old_form;
-    map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate);
-
-    $form->{rowcount}--;
-    for $i (1 .. $form->{paidaccounts}) {
-      map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
-    }
-
-    delete $form->{pre};
-
-    &display_form;
-    exit;
-  }
-
-}
-
-
-sub lookup_partsgroup {
-
-  $form->{action} =~ s/
//;
-  $form->{action} = substr($form->{action}, 1);
-
-  if ($form->{language_code}) {
-    # get english
-    foreach $item (split /\n/, $form->{partsgroup}) {
-      if ($item =~ /$form->{action}/) {
-	($partsgroup, $translation) = split /--/, $item;
-	$form->{action} = $partsgroup;
-	last;
-      }
-    }
-  }
-  
-  $form->{"partsgroup_$form->{rowcount}"} = $form->{action};
- 
-  &update;
-
-}
-
-
-
-sub print_options {
-
-  $form->{PD}{$form->{type}} = "checked";
-  
-  print qq|
-<input type=hidden name=format value=$form->{format}>
-<input type=hidden name=formname value=$form->{type}>
-
-<table width=100%>
-  <tr>
-|;
-
- 
-  $media = qq|
-    <td><input class=radio type=radio name=media value="screen"></td>
-    <td>|.$locale->text('Screen').qq|</td>|;
-
-  if (%printer) {
-    map { $media .= qq|
-    <td><input class=radio type=radio name=media value="$_"></td>
-    <td nowrap>$_</td>
-| } keys %printer;
-  }
-
-  $media =~ s/(value="\Q$form->{media}\E")/$1 checked/;
-
-  print qq|
-  $media
-  
-  <td width=99%>&nbsp;</td>|;
-  
-  if ($form->{printed} =~ /$form->{type}/) {
-    print qq|
-    <th>\||.$locale->text('Printed').qq|\|</th>|;
-  }
-  
-  print qq|
-  </tr>
-</table>
-|;
-
-}
-
-
-sub receipts {
-
-  $form->{title} = $locale->text('Receipts');
-
-  $form->{db} = 'ar';
-  RP->paymentaccounts(\%myconfig, \%$form);
-  
-  map { $paymentaccounts .= "$_->{accno} " } @{ $form->{PR} };
-
-  # accounting years
-  $form->{selectaccountingyear} = "<option>\n";
-  map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} };
-  $form->{selectaccountingmonth} = "<option>\n";
-  map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} };
-
-  $selectfrom = qq|
-        <tr>
-	<th align=right>|.$locale->text('Period').qq|</th>
-	<td colspan=3>
-	<select name=month>$form->{selectaccountingmonth}</select>
-	<select name=year>$form->{selectaccountingyear}</select>
-	<input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	<input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	<input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	<input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	</td>
-      </tr>
-|;
-
-  $form->header;
-  
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=paymentaccounts value="$paymentaccounts">
-
-<input type=hidden name=till value=1>
-<input type=hidden name=subtotal value=1>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-      
-        <input type=hidden name=nextsub value=list_payments>
-	
-        <tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-	  <input type=hidden name=sort value=transdate>
-	  <input type=hidden name=db value=$form->{db}>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/ps.pl b/sql-ledger/bin/mozilla/ps.pl
deleted file mode 100644
index 81ffaa465..000000000
--- a/sql-ledger/bin/mozilla/ps.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-# point of sale script
-
-use SL::AR;
-use SL::IS;
-use SL::RP;
-
-require "$form->{path}/ar.pl";
-require "$form->{path}/is.pl";
-require "$form->{path}/rp.pl";
-require "$form->{path}/pos.pl";
-
-# customizations
-if (-f "$form->{path}/custom_ar.pl") {
-  eval { require "$form->{path}/custom_ar.pl"; };
-}
-if (-f "$form->{path}/$form->{login}_ar.pl") {
-  eval { require "$form->{path}/$form->{login}_ar.pl"; };
-}
-
-if (-f "$form->{path}/custom_is.pl") {
-  eval { require "$form->{path}/custom_is.pl"; };
-}
-if (-f "$form->{path}/$form->{login}_is.pl") {
-  eval { require "$form->{path}/$form->{login}_is.pl"; };
-}
-
-if (-f "$form->{path}/custom_rp.pl") {
-  eval { require "$form->{path}/custom_rp.pl"; };
-}
-if (-f "$form->{path}/$form->{login}_rp.pl") {
-  eval { require "$form->{path}/$form->{login}_rp.pl"; };
-}
-
-if (-f "$form->{path}/custom_pos.pl") {
-  eval { require "$form->{path}/custom_pos.pl"; };
-}
-if (-f "$form->{path}/$form->{login}_pos.pl") {
-  eval { require "$form->{path}/$form->{login}_pos.pl"; };
-}
-
-1;
-# end
diff --git a/sql-ledger/bin/mozilla/pw.pl b/sql-ledger/bin/mozilla/pw.pl
deleted file mode 100644
index 6f7319004..000000000
--- a/sql-ledger/bin/mozilla/pw.pl
+++ /dev/null
@@ -1,73 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2004
-#
-#  Author: Dieter Simader
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-
-
-1;
-# end of main
-
-
-sub getpassword {
-  my ($s) = @_;
-
-  $form->{endsession} = 1;
-  $form->header;
-
-  $sessionexpired = qq|<b><font color=red><blink>|.$locale->text('Session expired!').qq|</blink></font></b><p>| if $s;
-  
-  print qq|
-<script language="JavaScript" type="text/javascript">
-<!--
-function sf(){
-    document.pw.password.focus();
-}
-// End -->
-</script>
-
-<body onload="sf()">
-
-  $sessionexpired
-
-<form method=post action=$form->{script} name=pw>
-
-<table>
-  <tr>
-    <th align=right>|.$locale->text('Password').qq|</th>
-    <td><input type=password name=password size=30></td>
-    <td><input type=submit value="|.$locale->text('Continue').qq|"></td>
-  </tr>
-</table>
-
-|;
-
-  map { delete $form->{$_} } qw(header script endsession password);
-  $form->hide_form;
-  
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
diff --git a/sql-ledger/bin/mozilla/rc.pl b/sql-ledger/bin/mozilla/rc.pl
deleted file mode 100644
index ee6d86781..000000000
--- a/sql-ledger/bin/mozilla/rc.pl
+++ /dev/null
@@ -1,509 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2003
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# Account reconciliation module
-#
-#======================================================================
-
-use SL::RC;
-
-1;
-# end of main
-
-# this is for our long dates
-# $locale->text('January')
-# $locale->text('February')
-# $locale->text('March')
-# $locale->text('April')
-# $locale->text('May ')
-# $locale->text('June')
-# $locale->text('July')
-# $locale->text('August')
-# $locale->text('September')
-# $locale->text('October')
-# $locale->text('November')
-# $locale->text('December')
-
-# this is for our short month
-# $locale->text('Jan')
-# $locale->text('Feb')
-# $locale->text('Mar')
-# $locale->text('Apr')
-# $locale->text('May')
-# $locale->text('Jun')
-# $locale->text('Jul')
-# $locale->text('Aug')
-# $locale->text('Sep')
-# $locale->text('Oct')
-# $locale->text('Nov')
-# $locale->text('Dec')
-
-
-sub reconciliation {
-  
-  RC->paymentaccounts(\%myconfig, \%$form);
-
-  $selection = "";
-  map { $selection .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{PR} };
-
-  $form->{title} = $locale->text('Reconciliation');
-
-  if ($form->{report}) {
-    $form->{title} = $locale->text('Reconciliation Report');
-    $cleared = qq|
-        <input type=hidden name=report value=1>
-        <tr>
-	  <td align=right><input type=checkbox style=checkbox name=outstanding value=1 checked></td>
-	  <td>|.$locale->text('Outstanding').qq|</td>
-	  <td align=right><input type=checkbox style=checkbox name=cleared value=1></td>
-	  <td>|.$locale->text('Cleared').qq|</td>
-	</tr>
-|;
-
-  }
-
-
-  # accounting years
-  $form->{selectaccountingyear} = "<option>\n";
-  map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} };
-  $form->{selectaccountingmonth} = "<option>\n";
-  map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} };
-
-  $selectfrom = qq|
-        <tr>
-	<th align=right>|.$locale->text('Period').qq|</th>
-	<td colspan=3>
-	<select name=month>$form->{selectaccountingmonth}</select>
-	<select name=year>$form->{selectaccountingyear}</select>
-	<input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	<input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	<input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	<input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	</td>
-      </tr>
-|;
-
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Account').qq|</th>
-	  <td colspan=3><select name=accno>$selection</select>
-	  </td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-	$cleared
-        <tr>
-	  <td align=right><input type=radio style=radio name=summary value=1 checked></td>
-	  <td>|.$locale->text('Summary').qq|</td>
-	  <td align=right><input type=radio style=radio name=summary value=0></td>
-	  <td>|.$locale->text('Detail').qq|</td>
-	</tr>
-	<tr>
-	  <td align=right><input type=checkbox style=checkbox name=fx_transaction value=1 checked></td>
-	  <td colspan=3>|.$locale->text('Include Exchange Rate Difference').qq|</td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<input type=hidden name=nextsub value=get_payments>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub continue { &{ $form->{nextsub} } };
-
-
-sub get_payments {
-
-  ($form->{accno}, $form->{account}) = split /--/, $form->{accno};
-
-  RC->payment_transactions(\%myconfig, \%$form);
-  
-  $ml = ($form->{category} eq 'A') ? -1 : 1;
-  $form->{statementbalance} = $form->{endingbalance} * $ml;
-  if (! $form->{fx_transaction}) {
-    $form->{statementbalance} = ($form->{endingbalance} - $form->{fx_endingbalance}) * $ml;
-  }
-  
-  $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0);
-  
-  &display_form;
-
-}
-
-
-sub display_form {
-  
-  if ($form->{report}) {
-    @column_index = qw(transdate source name cleared credit debit);
-  } else {
-    @column_index = qw(transdate source name cleared credit debit balance);
-  }
-  
-  $column_header{cleared} = qq|<th>|.$locale->text('R').qq|</th>|;
-  $column_header{source} = "<th class=listheading>".$locale->text('Source')."</a></th>";
-  $column_header{name} = "<th class=listheading>".$locale->text('Description')."</a></th>";
-  $column_header{transdate} = "<th class=listheading>".$locale->text('Date')."</a></th>";
-
-  if ($form->{category} eq 'A') {
-    $column_header{debit} = "<th class=listheading>".$locale->text('Deposit')."</a></th>";
-    $column_header{credit} = "<th class=listheading>".$locale->text('Payment')."</a></th>";
-  } else {
-    $column_header{debit} = "<th class=listheading>".$locale->text('Decrease')."</a></th>";
-    $column_header{credit} = "<th class=listheading>".$locale->text('Increase')."</a></th>";
-  }
-
-  $column_header{balance} = "<th class=listheading>".$locale->text('Balance')."</a></th>";
-
-  if ($form->{fromdate}) {
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{fromdate}, 1);
-  }
-  if ($form->{todate}) {
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{todate}, 1);
-  }
-
-  $form->{title} = "$form->{accno}--$form->{account}";
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  $ml = ($form->{category} eq 'A') ? -1 : 1;
-  $form->{beginningbalance} *= $ml;
-  $form->{fx_balance} *= $ml;
-  
-  if (! $form->{fx_transaction}) {
-    $form->{beginningbalance} -= $form->{fx_balance};
-  }
-  $balance = $form->{beginningbalance};
-  
-  $i = 0;
-  $j = 0;
-  
-  map { $column_data{$_} = "<td>&nbsp;</td>" } qw(cleared transdate source debit credit);
-
-  if (! $form->{report}) {
-  $column_data{name} = qq|<td>|.$locale->text('Beginning Balance').qq|</td>|;
-  $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>";
-  print qq|
-	<tr class=listrow$j>
-|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-	</tr>
-|;
-  }
-
-
-  foreach $ref (@{ $form->{PR} }) {
-
-    $i++;
-
-    if (! $form->{fx_transaction}) {
-      next if $ref->{fx_transaction};
-    }
-
-    $checked = ($ref->{cleared}) ? "checked" : "";
-    
-    $column_data{name} = "<td>";
-    map { $column_data{name} .= "$_<br>" } @{ $ref->{name} };
-    $column_data{name} .= "</td>";
-    $column_data{source} = qq|<td>$ref->{source}&nbsp;</td>
-    <input type=hidden name="id_$i" value=$ref->{id}>|;
-    
-    $column_data{debit} = "<td>&nbsp;</td>";
-    $column_data{credit} = "<td>&nbsp;</td>";
-    
-    $balance += $ref->{amount} * $ml;
-
-    if ($ref->{amount} < 0) {
-      
-      $totaldebits += $ref->{amount} * -1;
-
-      $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} * -1, 2, "&nbsp;")."</td>";
-      
-    } else {
-      
-      $totalcredits += $ref->{amount};
-
-      $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, "&nbsp;")."</td>";
-      
-    }
-    
-    $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>";
-
-    if ($ref->{fx_transaction}) {
-
-      $column_data{cleared} = ($clearfx) ? qq|<td align=center>*</td>| : qq|<td>&nbsp;</td>|;
-      $cleared += $ref->{amount} * $ml if $clearfx;
-      
-    } else {
-      
-      if ($form->{report}) {
-	
-	if ($ref->{cleared}) {
-	  $column_data{cleared} = qq|<td align=center>*</td>|;
-	  $clearfx = 1;
-	} else {
-	  $column_data{cleared} = qq|<td>&nbsp;</td>|;
-	  $clearfx = 0;
-	}
-	
-      } else {
-
-	if ($ref->{oldcleared}) {
-	  $cleared += $ref->{amount} * $ml;
-	  $clearfx = 1;
-	  $column_data{cleared} = qq|<td align=center>*</td>
-	  <input type=hidden name="cleared_$i" value=$ref->{cleared}>
-	  <input type=hidden name="oldcleared_$i" value=$ref->{oldcleared}>
-	  <input type=hidden name="source_$i" value="$ref->{source}">|;
-	} else {
-	  $cleared += $ref->{amount} * $ml if $checked;
-	  $clearfx = ($checked) ? 1 : 0;
-	  $column_data{cleared} = qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=1 $checked>
-	  <input type=hidden name="source_$i" value="$ref->{source}"></td>|;
-	}
-	
-      }
-    }
-    
-    $column_data{transdate} = qq|<td>$ref->{transdate}&nbsp;</td>
-    <input type=hidden name="transdate_$i" value=$ref->{transdate}>|;
-
-    $j++; $j %= 2;
-    print qq|
-	<tr class=listrow$j>
-|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-	</tr>
-|;
-
-  }
-
-  $form->{rowcount} = $i;
-  
-  # print totals
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-  $column_data{debit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totaldebits, 2, "&nbsp;")."</th>";
-  $column_data{credit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalcredits, 2, "&nbsp;")."</th>";
-   
-  print qq|
-	<tr class=listtotal>
-|;
-
-  map { print "\n$column_data{$_}" } @column_index;
- 
-  $form->{statementbalance} = $form->parse_amount(\%myconfig, $form->{statementbalance});
-  $difference = $form->format_amount(\%myconfig, $form->{beginningbalance} + $cleared - $form->{statementbalance}, 2, 0);
-  $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0);
-
-  print qq|
-	</tr>
-      </table>
-    </td>
-  </tr>
-|;
-
-  
-  if ($form->{report}) {
-
-    print qq|
-    </tr>
-  </table>
-|;
-
-  } else {
-    
-    print qq|
-   
-  <tr>
-    <td>
-      <table width=100%>
-        <tr>
-	  <td align=right>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Statement Balance').qq|</th>
-		<td width=10%></td>
-		<td align=right><input name=statementbalance size=11 value=$form->{statementbalance}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Difference').qq|</th>
-		<td width=10%></td>
-		<td align=right><input name=null size=11 value=$difference></td>
-		<input type=hidden name=difference value=$difference>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=fx_transaction value=$form->{fx_transaction}>
-<input type=hidden name=summary value=$form->{summary}>
-
-<input type=hidden name=rowcount value=$form->{rowcount}>
-<input type=hidden name=accno value="$form->{accno}">
-<input type=hidden name=account value="$form->{account}">
-
-<input type=hidden name=fromdate value=$form->{fromdate}>
-<input type=hidden name=todate value=$form->{todate}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<br>
-<input type=submit class=submit name=action value="|.$locale->text('Update').qq|">
-<input type=submit class=submit name=action value="|.$locale->text('Select all').qq|">
-<input type=submit class=submit name=action value="|.$locale->text('Done').qq|">|;
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub update {
-  
-  RC->payment_transactions(\%myconfig, \%$form);
-
-  $i = 0;
-  foreach $ref (@{ $form->{PR} }) {
-    $i++;
-    $ref->{cleared} = ($form->{"cleared_$i"}) ? 1 : 0;
-  }
-
-  &display_form;
-  
-}
-
-
-sub select_all {
-  
-  RC->payment_transactions(\%myconfig, \%$form);
-
-  map { $_->{cleared} = 1 } @{ $form->{PR} };
-
-  &display_form;
-  
-}
-
-
-sub done {
-
-  $form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&sessionid=$form->{sessionid}";
-
-  $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1);
-
-  RC->reconcile(\%myconfig, \%$form);
-  $form->redirect;
-  
-}
-
-
diff --git a/sql-ledger/bin/mozilla/rp.pl b/sql-ledger/bin/mozilla/rp.pl
deleted file mode 100644
index 795ed3711..000000000
--- a/sql-ledger/bin/mozilla/rp.pl
+++ /dev/null
@@ -1,2167 +0,0 @@
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2001
-#
-#  Author: Dieter Simader
-#   Email: dsimader@sql-ledger.org
-#     Web: http://www.sql-ledger.org
-#
-#  Contributors: Antonio Gallardo <agssa@ibw.com.ni>
-#                Benjamin Lee <benjaminlee@consultant.com>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-#
-# module for preparing Income Statement and Balance Sheet
-# 
-#======================================================================
-
-require "$form->{path}/arap.pl";
-
-use SL::PE;
-use SL::RP;
-
-1;
-# end of main
-
-# this is for our long dates
-# $locale->text('January')
-# $locale->text('February')
-# $locale->text('March')
-# $locale->text('April')
-# $locale->text('May ')
-# $locale->text('June')
-# $locale->text('July')
-# $locale->text('August')
-# $locale->text('September')
-# $locale->text('October')
-# $locale->text('November')
-# $locale->text('December')
-
-# this is for our short month
-# $locale->text('Jan')
-# $locale->text('Feb')
-# $locale->text('Mar')
-# $locale->text('Apr')
-# $locale->text('May')
-# $locale->text('Jun')
-# $locale->text('Jul')
-# $locale->text('Aug')
-# $locale->text('Sep')
-# $locale->text('Oct')
-# $locale->text('Nov')
-# $locale->text('Dec')
-
-# $locale->text('Balance Sheet')
-# $locale->text('Income Statement')
-# $locale->text('Trial Balance')
-# $locale->text('AR Aging')
-# $locale->text('AP Aging')
-# $locale->text('Tax collected')
-# $locale->text('Tax paid')
-# $locale->text('Receipts')
-# $locale->text('Payments')
-# $locale->text('Project Transactions')
-# $locale->text('Non-taxable Sales')
-# $locale->text('Non-taxable Purchases')
-
-
-sub report {
-
-  %title = ( balance_sheet	=> 'Balance Sheet',
-             income_statement	=> 'Income Statement',
-             trial_balance	=> 'Trial Balance',
-	     ar_aging		=> 'AR Aging',
-	     ap_aging		=> 'AP Aging',
-	     tax_collected	=> 'Tax collected',
-	     tax_paid		=> 'Tax paid',
-	     nontaxable_sales	=> 'Non-taxable Sales',
-	     nontaxable_purchases => 'Non-taxable Purchases',
-	     receipts		=> 'Receipts',
-	     payments		=> 'Payments',
-	     projects		=> 'Project Transactions',
-	   );
-  
-  $form->{title} = $locale->text($title{$form->{report}});
-
-  $gifi = qq|
-<tr>
-  <th align=right>|.$locale->text('Accounts').qq|</th>
-  <td><input name=accounttype class=radio type=radio value=standard checked> |.$locale->text('Standard').qq|
-   
-      <input name=accounttype class=radio type=radio value=gifi> |.$locale->text('GIFI').qq|
-  </td>
-</tr>
-|;
-  
-  # get departments
-  $form->all_departments(\%myconfig);
-  if (@{ $form->{all_departments} }) {
-    $form->{selectdepartment} = "<option>\n";
-
-    map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} });
-  }
- 
-  $department = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Department').qq|</th>
-	  <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
-	</tr>
-| if $form->{selectdepartment};
-
-  # accounting years
-  $form->{selectaccountingyear} = "<option>\n";
-  map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} };
-
-  $form->{selectaccountingmonth} = "<option>\n";
-  map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} };
-
-  $selectfrom = qq|
-        <tr>
-	  <th align=right>|.$locale->text('Period').qq|</th>
-	  <td colspan=3>
-	  <select name=month>$form->{selectaccountingmonth}</select>
-	  <select name=year>$form->{selectaccountingyear}</select>
-	  <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	  <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	  <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	  <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	  </td>
-	</tr>
-|;
-
-  $selectto = qq|
-        <tr>
-	  <th align=right></th>
-	  <td>
-	  <select name=month>$form->{selectaccountingmonth}</select>
-	  <select name=year>$form->{selectaccountingyear}</select>
-	  </td>
-	</tr>
-|;
-
-
-  $summary = qq|
-	<tr>
-	  <th></th>
-	  <td><input name=summary type=radio class=radio value=1 checked> |.$locale->text('Summary').qq|
-	  <input name=summary type=radio class=radio value=0> |.$locale->text('Detail').qq|
-	  </td>
-	</tr>
-|;
-
-  # get projects
-  $form->all_projects(\%myconfig);
-  if (@{ $form->{all_projects} }) {
-    $form->{selectproject} = "<option>\n";
-    map { $form->{selectproject} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} };
-
-    $project = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Project').qq|</th>
-	  <td colspan=3><select name=projectnumber>$form->{selectproject}</select></td>
-	</tr>|;
-
-  }
- 
-  $form->header;
- 
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=title value="$form->{title}">
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-      $department
-|;
-
-  if ($form->{report} eq "projects") {
-    print qq|
-        $project
-        <input type=hidden name=nextsub value=generate_projects>
-        <tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|
-	  <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|</td>
-	</tr>
-|;
-  }
-
-  if ($form->{report} eq "income_statement") {
-    print qq|
-	$project
-        <input type=hidden name=nextsub value=generate_income_statement>
-	<tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-        <tr>
-	  <th align=right>|.$locale->text('Period').qq|</th>
-	  <td colspan=3>
-	  <select name=frommonth>$form->{selectaccountingmonth}</select>
-	  <select name=fromyear>$form->{selectaccountingyear}</select>
-	  <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
-	  <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
-	  <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
-	  <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
-	  </td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Compare to').qq|</th>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=comparefromdate size=11 title="$myconfig{dateformat}"></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=comparetodate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-        <tr>
-	  <th align=right>|.$locale->text('Period').qq|</th>
-	  <td>
-	  <select name=comparemonth>$form->{selectaccountingmonth}</select>
-	  <select name=compareyear>$form->{selectaccountingyear}</select>
-	  </td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Decimalplaces').qq|</th>
-	  <td><input name=decimalplaces size=3 value=2></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Method').qq|</th>
-	  <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|
-	  &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>
-	</tr>
-
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td colspan=3><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|
-	  <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|
-	  <input name=l_accno class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Account Number').qq|</td>
-	</tr>
-|;
-  }
-
-
-  if ($form->{report} eq "balance_sheet") {
-    print qq|
-        <input type=hidden name=nextsub value=generate_balance_sheet>
-	<tr>
-	  <th align=right>|.$locale->text('as at').qq|</th>
-	  <td><input name=asofdate size=11 title="$myconfig{dateformat}" value=$form->{asofdate}></td>
-	  <td>
-	  <select name=asofmonth>$form->{selectaccountingmonth}</select>
-	  <select name=asofyear>$form->{selectaccountingyear}</select>
-	  </td>
-	</tr>
-
-	  <th align=right nowrap>|.$locale->text('Compare to').qq|</th>
-	  <td><input name=compareasofdate size=11 title="$myconfig{dateformat}"></td>
-	  <td>
-	  <select name=compareasofmonth>$form->{selectaccountingmonth}</select>
-	  <select name=compareasofyear>$form->{selectaccountingyear}</select>
-	  </td>
-
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('Decimalplaces').qq|</th>
-	  <td><input name=decimalplaces size=3 value=2></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right>|.$locale->text('Method').qq|</th>
-	  <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|
-	  &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>
-	</tr>
-
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|
-	  <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|
-	  <input name=l_accno class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Account Number').qq|</td>
-	</tr>
-|;
-  }
-
-
-  if ($form->{report} eq "trial_balance") {
-    print qq|
-        <input type=hidden name=nextsub value=generate_trial_balance>
-        <tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|
-	  <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|
-	  <input name=all_accounts class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('All Accounts').qq|</td>
-	</tr>
-|;
-  }
-
-  
-  if ($form->{report} =~ /^tax_/) {
-    $gifi = "";
-
-    $form->{db} = ($form->{report} =~ /_collected/) ? "ar" : "ap";
-    
-    RP->get_taxaccounts(\%myconfig, \%$form);
-
-    print qq|
-        <input type=hidden name=nextsub value=generate_tax_report>
-	<tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-	$summary
-	<tr>
-	  <th align=right>|.$locale->text('Report for').qq|</th>
-	  <td colspan=3>
-|;
-
-  $checked = "checked";
-  foreach $ref (@{ $form->{taxaccounts} }) {
-    
-    print qq|<input name=accno class=radio type=radio value=$ref->{accno} $checked>&nbsp;$ref->{description}
-
-    <input name="$ref->{accno}_description" type=hidden value="$ref->{description}">
-    <input name="$ref->{accno}_rate" type=hidden value="$ref->{rate}">|;
-
-    $checked = "";
-
-  }
-
-  print qq|
-  <input type=hidden name=db value=$form->{db}>
-  <input type=hidden name=sort value=transdate>
-
-	  </td>
-	</tr>
-|;
-
-
-  if (@{ $form->{gifi_taxaccounts} }) {
-    print qq|
-        <tr>
-	  <th align=right>|.$locale->text('GIFI').qq|</th>
-	  <td colspan=3>
-|;
-
-    foreach $ref (@{ $form->{gifi_taxaccounts} }) {
-      
-      print qq|<input name=accno class=radio type=radio value="gifi_$ref->{accno}">&nbsp;$ref->{description}
-
-      <input name="gifi_$ref->{accno}_description" type=hidden value="$ref->{description}">
-      <input name="gifi_$ref->{accno}_rate" type=hidden value="$ref->{rate}">|;
-
-    }
-
-    print qq|
-	  </td>
-	</tr>
-|;
-  }
-
-
-print qq|
-	<tr>
-	  <th align=right>|.$locale->text('Method').qq|</th>
-	  <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|
-	  &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table>
-        <tr>
-	  <th align=right>|.$locale->text('Include in Report').qq|</th>
-	  <td>
-	    <table>
-	      <tr>
-		<td><input name="l_id" class=checkbox type=checkbox value=Y></td>
-		<td>|.$locale->text('ID').qq|</td>
-		<td><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Invoice').qq|</td>
-		<td><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Date').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_name" class=checkbox type=checkbox value=Y checked></td>
-|;
-		
-  if ($form->{db} eq 'ar') {
-    print qq|<td>|.$locale->text('Customer').qq|</td>|;
-  }
-  if ($form->{db} eq 'ap') {
-    print qq|<td>|.$locale->text('Vendor').qq|</td>|;
-  }
-  
-  print qq|
-  	        <td><input name="l_description" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Description').qq|</td>
-		<td><input name="l_netamount" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Amount').qq|</td>
-		
-		<td><input name="l_tax" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Tax').qq|</td>
-		
-                <td><input name="l_total" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Total').qq|</td>
-	      </tr>
-	      <tr>
-	      </tr>
-	      <tr>
-	        <td><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
-		<td>|.$locale->text('Subtotal').qq|</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-
-  }
-
-  
-  if ($form->{report} =~ /^nontaxable_/) {
-    $gifi = "";
-
-    $form->{db} = ($form->{report} =~ /_sales/) ? "ar" : "ap";
-    
-    print qq|
-        <input type=hidden name=nextsub value=generate_tax_report>
-
-        <input type=hidden name=db value=$form->{db}>
-        <input type=hidden name=sort value=transdate>
-        <input type=hidden name=report value=$form->{report}>
-
-	<tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-	$summary
-	<tr>
-	  <th align=right>|.$locale->text('Method').qq|</th>
-	  <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|
-	  &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>
-	</tr>
-        <tr>
-	  <th align=right>|.$locale->text('Include in Report').qq|</th>
-	  <td colspan=3>
-	    <table>
-	      <tr>
-		<td><input name="l_id" class=checkbox type=checkbox value=Y></td>
-		<td>|.$locale->text('ID').qq|</td>
-		<td><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Invoice').qq|</td>
-		<td><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Date').qq|</td>
-	      </tr>
-	      <tr>
-		<td><input name="l_name" class=checkbox type=checkbox value=Y checked></td>
-|;
-		
-  if ($form->{db} eq 'ar') {
-    print qq|<td>|.$locale->text('Customer').qq|</td>|;
-  }
-  if ($form->{db} eq 'ap') {
-    print qq|<td>|.$locale->text('Vendor').qq|</td>|;
-  }
-  
-  print qq|
-	        <td><input name="l_description" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Description').qq|</td>
-                <td><input name="l_netamount" class=checkbox type=checkbox value=Y checked></td>
-		<td>|.$locale->text('Amount').qq|</td>
-	      </tr>
-	      <tr>
-	        <td><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
-		<td>|.$locale->text('Subtotal').qq|</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-
-  }
-
-
-  if (($form->{report} eq "ar_aging") || ($form->{report} eq "ap_aging")) {
-    $gifi = "";
-
-    if ($form->{report} eq 'ar_aging') {
-      $label = $locale->text('Customer');
-      $form->{vc} = 'customer';
-    } else {
-      $label = $locale->text('Vendor');
-      $form->{vc} = 'vendor';
-    }
-      
-    $nextsub = "generate_$form->{report}";
-    
-    # setup vc selection
-    $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");
-
-    map { $vc .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} };
-    
-    $vc = ($vc) ? qq|<select name=$form->{vc}><option>\n$vc</select>| : qq|<input name=$form->{vc} size=35>|;
-    
-    $postscript = "postscript" if $myconfig{printer};
-
-    print qq|
-	<tr>
-	  <th align=right>|.$locale->text($label).qq|</th>
-	  <td>$vc</td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectto
-        <input type=hidden name=type value=statement>
-        <input type=hidden name=format value=$postscript>
-	<input type=hidden name=media value="$myconfig{printer}">
-
-	<input type=hidden name=nextsub value=$nextsub>
-	<input type=hidden name=action value=$nextsub>
-	$summary
-|;
-  }
-
-# above action can be removed if there is more than one input field
-
-
-  if ($form->{report} =~ /(receipts|payments)$/) {
-    $gifi = "";
-
-    $form->{db} = ($form->{report} =~ /payments$/) ? "ap" : "ar";
-
-    RP->paymentaccounts(\%myconfig, \%$form);
-
-    $selection = "<option>\n";
-    foreach $ref (@{ $form->{PR} }) {
-      $paymentaccounts .= "$ref->{accno} ";
-      $selection .= "<option>$ref->{accno}--$ref->{description}\n";
-    }
-    
-    chop $paymentaccounts;
-
-    print qq|
-        <input type=hidden name=nextsub value=list_payments>
-        <tr>
-	  <th align=right nowrap>|.$locale->text('Account').qq|</th>
-          <td colspan=3><select name=account>$selection</select>
-	    <input type=hidden name=paymentaccounts value="$paymentaccounts">
-	  </td>
-	</tr>
-        <tr>
-	  <th align=right nowrap>|.$locale->text('Description').qq|</th>
-          <td colspan=3><input name=description size=35></td>
-	</tr>
-        <tr>
-	  <th align=right nowrap>|.$locale->text('Source').qq|</th>
-          <td colspan=3><input name=source></td>
-	</tr>
-        <tr>
-	  <th align=right nowrap>|.$locale->text('Memo').qq|</th>
-          <td colspan=3><input name=memo size=30></td>
-	</tr>
-	<tr>
-	  <th align=right>|.$locale->text('From').qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
-	  <th align=right>|.$locale->text('To').qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-        <tr>
-	  <td align=right><input type=checkbox style=checkbox name=fx_transaction value=1 checked></td>
-	  <td colspan=3>|.$locale->text('Include Exchange Rate Difference').qq|</td>
-	</tr>
-        <tr>
-	  <td align=right><input name=l_subtotal class=checkbox type=checkbox value=Y></td>
-	  <td align=left colspan=3>|.$locale->text('Subtotal').qq|</th>
-	</tr>
-	  
-	  <input type=hidden name=db value=$form->{db}>
-	  <input type=hidden name=sort value=transdate>
-|;
-
-  }
-
-
-  print qq|
-
-$gifi
-
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub continue { &{$form->{nextsub}} };
-
-
-sub generate_income_statement {
-
-  $form->{padding} = "&nbsp;&nbsp;";
-  $form->{bold} = "<b>";
-  $form->{endbold} = "</b>";
-  $form->{br} = "<br>";
-  
-  RP->income_statement(\%myconfig, \%$form);
-
-  ($form->{department}) = split /--/, $form->{department};
-  ($form->{projectnumber}) = split /--/, $form->{projectnumber};
-  
-  $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
-  $form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};
-
-  # if there are any dates construct a where
-  if ($form->{fromdate} || $form->{todate}) {
-    
-    unless ($form->{todate}) {
-      $form->{todate} = $form->current_date(\%myconfig);
-    }
-
-    $longtodate = $locale->date(\%myconfig, $form->{todate}, 1);
-    $shorttodate = $locale->date(\%myconfig, $form->{todate}, 0);
-    
-    $longfromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
-    $shortfromdate = $locale->date(\%myconfig, $form->{fromdate}, 0);
-    
-    $form->{this_period} = "$shortfromdate<br>\n$shorttodate";
-    $form->{period} = $locale->text('for Period').qq|<br>\n$longfromdate |.$locale->text('To').qq| $longtodate|;
-  }
-
-  if ($form->{comparefromdate} || $form->{comparetodate}) {
-    $longcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 1);
-    $shortcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 0);
-    
-    $longcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 1);
-    $shortcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 0);
-    
-    $form->{last_period} = "$shortcomparefromdate<br>\n$shortcomparetodate";
-    $form->{period} .= "<br>\n$longcomparefromdate ".$locale->text('To').qq| $longcomparetodate|;
-  }
-
-  # setup variables for the form
-  @a = qw(company address businessnumber);
-  map { $form->{$_} = $myconfig{$_} } @a;
-  $form->{address} =~ s/\\n/<br>/g;
-
-  $form->{templates} = $myconfig{templates};
-
-  $form->{IN} = "income_statement.html";
-  
-  $form->parse_template;
-
-}
-
-
-sub generate_balance_sheet {
-
-  $form->{padding} = "&nbsp;&nbsp;";
-  $form->{bold} = "<b>";
-  $form->{endbold} = "</b>";
-  $form->{br} = "<br>";
-  
-  RP->balance_sheet(\%myconfig, \%$form);
-
-  $form->{asofdate} = $form->current_date(\%myconfig) unless $form->{asofdate};
-  $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
-  
-  ($form->{department}) = split /--/, $form->{department};
-  
-  # define Current Earnings account
-  $padding = ($form->{l_heading}) ? $form->{padding} : "";
-  push(@{$form->{equity_account}}, $padding.$locale->text('Current Earnings'));
-
-  $form->{this_period} = $locale->date(\%myconfig, $form->{asofdate}, 0);
-  $form->{last_period} = $locale->date(\%myconfig, $form->{compareasofdate}, 0);
-
-  $form->{IN} = "balance_sheet.html";
-
-  # setup company variables for the form
-  map { $form->{$_} = $myconfig{$_} } (qw(company address businessnumber nativecurr));
-  $form->{address} =~ s/\\n/<br>/g;
-
-  $form->{templates} = $myconfig{templates};
-	  
-  $form->parse_template;
-
-}
-
-
-sub generate_projects {
-
-  $form->{nextsub} = "generate_projects";
-  $form->{title} = $locale->text('Project Transactions');
-  RP->trial_balance(\%myconfig, \%$form);
-  
-  &list_accounts;
-
-}
-
-
-# Antonio Gallardo
-#
-# D.S. Feb 16, 2001
-# included links to display transactions for period entered
-# added headers and subtotals
-#
-sub generate_trial_balance {
-  
-  # get for each account initial balance, debits and credits
-  RP->trial_balance(\%myconfig, \%$form);
-
-  $form->{nextsub} = "generate_trial_balance";
-  $form->{title} = $locale->text('Trial Balance');
-  &list_accounts;
-
-}
-
-
-sub list_accounts {
-
-  $title = $form->escape($form->{title});
-  
-  if ($form->{department}) {
-    ($department) = split /--/, $form->{department};
-    $options = $locale->text('Department')." : $department<br>";
-    $department = $form->escape($form->{department});
-  }
-  if ($form->{projectnumber}) {
-    ($projectnumber) = split /--/, $form->{projectnumber};
-    $options .= $locale->text('Project Number')." : $projectnumber<br>";
-    $projectnumber = $form->escape($form->{projectnumber});
-  }
-
-  # if there are any dates
-  if ($form->{fromdate} || $form->{todate}) {
-    if ($form->{fromdate}) {
-      $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
-    }
-    if ($form->{todate}) {
-      $todate = $locale->date(\%myconfig, $form->{todate}, 1);
-    }
-    
-    $form->{period} = "$fromdate - $todate";
-  } else {
-    $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
-
-  }
-  $options .= $form->{period};
-
-  @column_index = qw(accno description begbalance debit credit endbalance);
-
-  $column_header{accno} = qq|<th class=listheading>|.$locale->text('Account').qq|</th>|;
-  $column_header{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</th>|;
-  $column_header{debit} = qq|<th class=listheading>|.$locale->text('Debit').qq|</th>|;
-  $column_header{credit} = qq|<th class=listheading>|.$locale->text('Credit').qq|</th>|;
-  $column_header{begbalance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|;
-  $column_header{endbalance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|;
-
-
-  if ($form->{accounttype} eq 'gifi') {
-    $column_header{accno} = qq|<th class=listheading>|.$locale->text('GIFI').qq|</th>|;
-  }
-  
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$options</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-
-  
-  # sort the whole thing by account numbers and display
-  foreach $ref (sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} }) {
-
-    $description = $form->escape($ref->{description});
-    
-    $href = qq|ca.pl?path=$form->{path}&action=list_transactions&accounttype=$form->{accounttype}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&sort=transdate&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title&nextsub=$form->{nextsub}|;
-    
-    if ($form->{accounttype} eq 'gifi') {
-      $href .= "&gifi_accno=$ref->{accno}&gifi_description=$description";
-      $na = $locale->text('N/A');
-      map { $ref->{$_} = $na } qw(accno description) unless $ref->{accno};
-    } else {
-      $href .= "&accno=$ref->{accno}&description=$description";
-    }
-
-    $ml = ($ref->{category} =~ /(A|E)/) ? -1 : 1;
-    
-    $debit = $form->format_amount(\%myconfig, $ref->{debit}, 2, "&nbsp;");
-    $credit = $form->format_amount(\%myconfig, $ref->{credit}, 2, "&nbsp;");
-    $begbalance = $form->format_amount(\%myconfig, $ref->{balance} * $ml, 2, "&nbsp;");
-    $endbalance = $form->format_amount(\%myconfig, ($ref->{balance} + $ref->{amount}) * $ml, 2, "&nbsp;");
-
- 
-    if ($ref->{charttype} eq "H" && $subtotal && $form->{l_subtotal}) {
-
-      if ($subtotal) {
-
-	map { $column_data{$_} = "<th>&nbsp;</th>" } qw(accno begbalance endbalance);
-
-	$subtotalbegbalance = $form->format_amount(\%myconfig, $subtotalbegbalance, 2, "&nbsp;");
-	$subtotalendbalance = $form->format_amount(\%myconfig, $subtotalendbalance, 2, "&nbsp;");
-	$subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;");
-	$subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;");
-	
-	$column_data{description} = "<th class=listsubtotal>$subtotaldescription</th>";
-	$column_data{begbalance} = "<th align=right class=listsubtotal>$subtotalbegbalance</th>";
-	$column_data{endbalance} = "<th align=right class=listsubtotal>$subtotalendbalance</th>";
-	$column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</th>";
-	$column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</th>";
-	
-	print qq|
-	  <tr class=listsubtotal>
-|;
-	map { print "$column_data{$_}\n" } @column_index;
-	
-	print qq|
-	  </tr>
-|;
-      }
-    }
- 
-    if ($ref->{charttype} eq "H") {
-      $subtotal = 1;
-      $subtotaldescription = $ref->{description};
-      $subtotaldebit = $ref->{debit};
-      $subtotalcredit = $ref->{credit};
-      $subtotalbegbalance = 0;
-      $subtotalendbalance = 0;
-
-      if ($form->{l_heading}) {
-	if (! $form->{all_accounts}) {
-	  if (($subtotaldebit + $subtotalcredit) == 0) {
-	    $subtotal = 0;
-	    next;
-	  }
-	}
-      } else {
-	$subtotal = 0;
-	if ($form->{all_accounts} || ($form->{l_subtotal} && (($subtotaldebit + $subtotalcredit) != 0))) {
-	  $subtotal = 1;
-	}
-	next;
-      }
-      
-      map { $column_data{$_} = "<th>&nbsp;</th>" } qw(accno debit credit begbalance endbalance);
-      $column_data{description} = "<th class=listheading>$ref->{description}</th>";
-    }
-
-    if ($ref->{charttype} eq "A") {
-      $column_data{accno} = "<td><a href=$href>$ref->{accno}</a></td>";
-      $column_data{description} = "<td>$ref->{description}</td>";
-      $column_data{debit} = "<td align=right>$debit</td>";
-      $column_data{credit} = "<td align=right>$credit</td>";
-      $column_data{begbalance} = "<td align=right>$begbalance</td>";
-      $column_data{endbalance} = "<td align=right>$endbalance</td>";
-    
-      $totaldebit += $ref->{debit};
-      $totalcredit += $ref->{credit};
-
-      $cml = ($ref->{category} eq 'C') ? -1 : 1;
-      $subtotalbegbalance += $ref->{balance} * $ml * $cml;
-      $subtotalendbalance += ($ref->{balance} + $ref->{amount}) * $ml * $cml;
-
-    }
- 
-   
-    if ($ref->{charttype} eq "H") {
-      print qq|
-      <tr class=listheading>
-|;
-    }
-    if ($ref->{charttype} eq "A") {
-      $i++; $i %= 2;
-      print qq|
-      <tr class=listrow$i>
-|;
-    }
-    
-    map { print "$column_data{$_}\n" } @column_index;
-    
-    print qq|
-      </tr>
-|;
-  }
-
-
-  # print last subtotal
-  if ($subtotal && $form->{l_subtotal}) {
-    map { $column_data{$_} = "<th>&nbsp;</th>" } qw(accno begbalance endbalance);
-    $subtotalbegbalance = $form->format_amount(\%myconfig, $subtotalbegbalance, 2, "&nbsp;");
-    $subtotalendbalance = $form->format_amount(\%myconfig, $subtotalendbalance, 2, "&nbsp;");
-    $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;");
-    $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;");
-    $column_data{description} = "<th class=listsubtotal>$subtotaldescription</th>";
-    $column_data{begbalance} = "<th align=right class=listsubtotal>$subtotalbegbalance</th>";
-    $column_data{endbalance} = "<th align=right class=listsubtotal>$subtotalendbalance</th>";
-    $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</th>";
-    $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</th>";
-    
-    print qq|
-    <tr class=listsubtotal>
-|;
-    map { print "$column_data{$_}\n" } @column_index;
-    
-    print qq|
-    </tr>
-|;
-  }
-  
-  $totaldebit = $form->format_amount(\%myconfig, $totaldebit, 2, "&nbsp;");
-  $totalcredit = $form->format_amount(\%myconfig, $totalcredit, 2, "&nbsp;");
-
-  map { $column_data{$_} = "<th>&nbsp;</th>" } qw(accno description begbalance endbalance);
- 
-  $column_data{debit} = qq|<th align=right class=listtotal>$totaldebit</th>|;
-  $column_data{credit} = qq|<th align=right class=listtotal>$totalcredit</th>|;
-  
-  print qq|
-        <tr class=listtotal>
-|;
-
-  map { print "$column_data{$_}\n" } @column_index;
-
-  print qq|
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub generate_ar_aging {
-
-  # split customer
-  ($form->{customer}) = split(/--/, $form->{customer});
-  $customer = $form->escape($form->{customer},1);
-  $title = $form->escape($form->{title},1);
-  $media = $form->escape($form->{media},1);
-
-  $form->{ct} = "customer";
-  $form->{arap} = "ar";
-
-  RP->aging(\%myconfig, \%$form);
-
-  $form->{callback} = qq|$form->{script}?path=$form->{path}&action=generate_ar_aging&login=$form->{login}&sessionid=$form->{sessionid}&todate=$form->{todate}&customer=$customer&title=$title&type=$form->{type}&format=$form->{format}&media=$media&summary=$form->{summary}|;
-  
-  &aging;
-  
-}
-
-
-sub generate_ap_aging {
-  
-  # split vendor
-  ($form->{vendor}) = split(/--/, $form->{vendor});
-  $vendor = $form->escape($form->{vendor},1);
-  $title = $form->escape($form->{title},1);
-  $media = $form->escape($form->{media},1);
-
-  $form->{ct} = "vendor";
-  $form->{arap} = "ap";
-  
-  RP->aging(\%myconfig, \%$form);
-
-  $form->{callback} = qq|$form->{script}?path=$form->{path}&action=generate_ap_aging&login=$form->{login}&sessionid=$form->{sessionid}&todate=$form->{todate}&vendor=$vendor&title=$title&type=$form->{type}&format=$form->{format}&media=$media&summary=$form->{summary}|;
-
-  &aging;
-  
-}
-
-
-sub aging {
-
-  $form->header;
-  
-  $column_header{statement} = qq|<th class=listheading width=1%>&nbsp;</th>|;
-  $column_header{ct} = qq|<th class=listheading width=60%>|.$locale->text(ucfirst $form->{ct}).qq|</th>|;
-  $column_header{language} = qq|<th class=listheading>|.$locale->text('Language').qq|</th>|;
-  $column_header{invnumber} = qq|<th class=listheading>|.$locale->text('Invoice').qq|</th>|;
-  $column_header{ordnumber} = qq|<th class=listheading>|.$locale->text('Order').qq|</th>|;
-  $column_header{transdate} = qq|<th class=listheading nowrap>|.$locale->text('Date').qq|</th>|;
-  $column_header{duedate} = qq|<th class=listheading nowrap>|.$locale->text('Due Date').qq|</th>|;
-  $column_header{c0} = qq|<th class=listheading width=10%>|.$locale->text('Current').qq|</th>|;
-  $column_header{c30} = qq|<th class=listheading width=10%>30</th>|;
-  $column_header{c60} = qq|<th class=listheading width=10%>60</th>|;
-  $column_header{c90} = qq|<th class=listheading width=10%>90</th>|;
-  
-  @column_index = qw(statement ct);
-
-  if (@{ $form->{all_language} } && $form->{arap} eq 'ar') {
-    push @column_index, "language";
-    $form->{selectlanguage} = qq|<option>\n|;
-
-    map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_language} };
-  }
-  
-  if ($form->{summary}) {
-    push @column_index, qw(c0 c30 c60 c90);
-  } else {
-    push @column_index, qw(invnumber ordnumber transdate duedate c0 c30 c60 c90);
-  }
-
-  if ($form->{department}) {
-      $option .= "\n<br>" if $option;
-      ($department) = split /--/, $form->{department};
-      $option .= $locale->text('Department')." : $department";
-      $department = $form->escape($form->{department},1);
-      $form->{callback} .= "&department=$department";
-  }
-    
-  if ($form->{arap} eq 'ar') {
-    if ($form->{customer}) {
-      $option .= "\n<br>" if $option;
-      $option .= $form->{customer};
-    }
-  }
-  if ($form->{arap} eq 'ap') {
-    shift @column_index;
-    if ($form->{vendor}) {
-      $option .= "\n<br>" if $option;
-      $option .= $form->{vendor};
-    }
-  }
-
-  $todate = $locale->date(\%myconfig, $form->{todate}, 1);
-  $option .= "\n<br>" if $option;
-  $option .= $locale->text('for Period')." ".$locale->text('To')." $todate";
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-	</tr>
-|;
-
-
-  $ctid = 0;
-  $i = 0;
-  $k = 0;
-  $l = $#{ $form->{AG} };
-
-  foreach $ref (@{ $form->{AG} }) {
-
-    $k++;
-    
-    if ($ctid != $ref->{ctid}) {
-
-      $i++;
-
-      $column_data{ct} = qq|<td>$ref->{name}</td>|;
-      
-      if ($form->{selectlanguage}) {
-	$form->{"selectlanguage_$i"} = $form->{selectlanguage};
-	$form->{"selectlanguage_$i"} =~ s/(<option value="\Q$ref->{language_code}\E")/$1 selected/;
-	$column_data{language} = qq|<td><select name="language_code_$i">$form->{"selectlanguage_$i"}</select></td>|;
-      }
-      
-      $column_data{statement} = qq|<td><input name="statement_$i" type=checkbox class=checkbox value=1 $ref->{checked}>
-      <input type=hidden name="$form->{ct}_id_$i" value=$ref->{ctid}>
-      </td>|;
-
-    }
-	    
-    $ctid = $ref->{ctid};
-
-    $c0subtotal += $ref->{c0};
-    $c30subtotal += $ref->{c30};
-    $c60subtotal += $ref->{c60};
-    $c90subtotal += $ref->{c90};
-
-    $c0total += $ref->{c0};
-    $c30total += $ref->{c30};
-    $c60total += $ref->{c60};
-    $c90total += $ref->{c90};
-
-    $ref->{c0} = $form->format_amount(\%myconfig, $ref->{c0}, 2, "&nbsp;");
-    $ref->{c30} = $form->format_amount(\%myconfig, $ref->{c30}, 2, "&nbsp;");
-    $ref->{c60} = $form->format_amount(\%myconfig, $ref->{c60}, 2, "&nbsp;");
-    $ref->{c90} = $form->format_amount(\%myconfig, $ref->{c90}, 2, "&nbsp;");
-
-    $href = qq|$ref->{module}.pl?path=$form->{path}&action=edit&id=$ref->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=|.$form->escape($form->{callback});
-    
-    $column_data{invnumber} = qq|<td><a href=$href>$ref->{invnumber}</a></td>|;
-    map { $column_data{$_} = qq|<td>$ref->{$_}</td>| } qw(ordnumber transdate duedate);
-    map { $column_data{$_} = qq|<td align=right>$ref->{$_}</td>| } qw(c0 c30 c60 c90);
-    
-    if (!$form->{summary}) {
-
-      $j++; $j %= 2;
-      print qq|
-        <tr class=listrow$j>
-|;
-
-      map { print "$column_data{$_}\n" } @column_index;
-
-      print qq|
-        </tr>
-|;
-
-      map { $column_data{$_} = qq|<td>&nbsp;</td>| } qw(ct statement language);
-      
-    }
-   
-    # print subtotal
-    $nextid = ($k <= $l) ? $form->{AG}->[$k]->{ctid} : 0;
-    if ($ctid != $nextid) {
-
-      $c0subtotal = $form->format_amount(\%myconfig, $c0subtotal, 2, "&nbsp");
-      $c30subtotal = $form->format_amount(\%myconfig, $c30subtotal, 2, "&nbsp");
-      $c60subtotal = $form->format_amount(\%myconfig, $c60subtotal, 2, "&nbsp");
-      $c90subtotal = $form->format_amount(\%myconfig, $c90subtotal, 2, "&nbsp");
-      
-      if ($form->{summary}) {
-	$column_data{c0} = qq|<td align=right>$c0subtotal</th>|;
-	$column_data{c30} = qq|<td align=right>$c30subtotal</th>|;
-	$column_data{c60} = qq|<td align=right>$c60subtotal</th>|;
-	$column_data{c90} = qq|<td align=right>$c90subtotal</th>|;
-
-	$j++; $j %= 2;
-	print qq|
-	<tr class=listrow$j>
-|;
-
-        map { print "$column_data{$_}\n" } @column_index;
-
-	print qq|
-	</tr>
-|;
-
-      } else {
-
-	map { $column_data{$_} = qq|<th>&nbsp;</th>| } @column_index;
-
-	$column_data{c0} = qq|<th class=listsubtotal align=right>$c0subtotal</th>|;
-	$column_data{c30} = qq|<th class=listsubtotal align=right>$c30subtotal</th>|;
-	$column_data{c60} = qq|<th class=listsubtotal align=right>$c60subtotal</th>|;
-	$column_data{c90} = qq|<th class=listsubtotal align=right>$c90subtotal</th>|;
-
-        # print subtotals
-        print qq|
-	<tr class=listsubtotal>
-|;
-        map { print "$column_data{$_}\n" } @column_index;
-
-	print qq|
-	</tr>
-|;
-
-      }
-      
-      $c0subtotal = 0;
-      $c30subtotal = 0;
-      $c60subtotal = 0;
-      $c90subtotal = 0;
-      
-    }
-  }
-  
-  print qq|
-        </tr>
-        <tr class=listtotal>
-|;
-
-  map { $column_data{$_} = qq|<th>&nbsp;</th>| } @column_index;
-
-  $c0total = $form->format_amount(\%myconfig, $c0total, 2, "&nbsp;");
-  $c30total = $form->format_amount(\%myconfig, $c30total, 2, "&nbsp;");
-  $c60total = $form->format_amount(\%myconfig, $c60total, 2, "&nbsp;");
-  $c90total = $form->format_amount(\%myconfig, $c90total, 2, "&nbsp;");
-  
-  $column_data{c0} = qq|<th align=right class=listtotal>$c0total</th>|;
-  $column_data{c30} = qq|<th align=right class=listtotal>$c30total</th>|;
-  $column_data{c60} = qq|<th align=right class=listtotal>$c60total</th>|;
-  $column_data{c90} = qq|<th align=right class=listtotal>$c90total</th>|;
-
-  map { print "$column_data{$_}\n" } @column_index;
-  
-  print qq|
-          <input type=hidden name=rowcount value=$i>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-|;
-
-  &print_options if ($form->{arap} eq 'ar');
-
-  print qq|
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-  if ($form->{arap} eq 'ar') {
-    print qq|
-<input type=hidden name=todate value=$form->{todate}>
-
-<input type=hidden name=title value="$form->{title}">
-<input type=hidden name=summary value=$form->{summary}>
-
-<input type=hidden name=callback value=$form->{callback}>
-
-<input type=hidden name=arap value=$form->{arap}>
-<input type=hidden name=ct value=$form->{ct}>
-<input type=hidden name=$form->{ct} value="$form->{$form->{ct}}">
-
-<input type=hidden name=department value="$form->{department}">
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
-  
-<br>
-<input class=submit type=submit name=action value="|.$locale->text('Select all').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">
-<input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|">
-|;
-  }
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub select_all {
-
-  RP->aging(\%myconfig, \%$form);
-
-  map { $_->{checked} = "checked" } @{ $form->{AG} };
-
-  &aging;
-
-}
-
-
-sub print_options {
-
-  $form->{sendmode} = "attachment";
-  $form->{copies} = 1 unless $form->{copies};
-  
-  $form->{PD}{$form->{type}} = "selected";
-  $form->{DF}{$form->{format}} = "selected";
-  $form->{SM}{$form->{sendmode}} = "selected";
-  
-  $format = qq|
-            <option value=html $form->{PD}{format}>html|;
-	    
-  $type = qq|
-	    <option value=statement $form->{PD}{statement}>|.$locale->text('Statement');
-
-  
-  if ($form->{media} eq 'email') {
-    $media = qq|
-            <td><select name=sendmode>
-	    <option value=attachment $form->{SM}{attachment}>|.$locale->text('Attachment').qq|
-	    <option value=inline $form->{SM}{inline}>|.$locale->text('In-line');
-  } else {
-    $media = qq|
-            <td><select name=media>
-	    <option value=screen>|.$locale->text('Screen');
-    if (%printer && $latex) {
-      map { $media .= qq|
-            <option value="$_">$_| } keys %printer;
-    }
-  }
-
-  $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;
-  $media .= qq|</select></td>|;
-
-  if ($latex) {
-    $format .= qq|
-            <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq|
-	    <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF');
-  }
-
-  print qq|
-<table>
-  <tr>
-    <td><select name=type>$type</select></td>
-    <td><select name=format>$format</select></td>
-    $media
-|;
-
-  if (%printer && $latex && $form->{media} ne 'email') {
-    print qq|
-      <td>|.$locale->text('Copies').qq|
-      <input name=copies size=2 value=$form->{copies}></td>
-|;
-  }
-  
-  print qq|
-  </tr>
-</table>
-|;
-
-}
-
-
-sub e_mail {
-
-  # get name and email addresses
-  for $i (1 .. $form->{rowcount}) {
-    if ($form->{"statement_$i"}) {
-      $form->{"$form->{ct}_id"} = $form->{"$form->{ct}_id_$i"};
-      RP->get_customer(\%myconfig, \%$form);
-      $selected = 1;
-      last;
-    }
-  }
-
-  $form->error($locale->text('Nothing selected!')) unless $selected;
-
-  if ($myconfig{role} =~ /(admin|manager)/) {
-    $bcc = qq|
-          <th align=right nowrap=true>|.$locale->text('Bcc').qq|</th>
-	  <td><input name=bcc size=30 value="$form->{bcc}"></td>
-|;
-  }
-
-  $title = $locale->text('E-mail Statement to')." $form->{$form->{ct}}";
-
-  $form->{media} = "email";
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr class=listtop>
-    <th>$title</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr>
-	  <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
-	  <td><input name=email size=30 value="$form->{email}"></td>
-	  <th align=right nowrap>|.$locale->text('Cc').qq|</th>
-	  <td><input name=cc size=30 value="$form->{cc}"></td>
-	</tr>
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Subject').qq|</th>
-	  <td><input name=subject size=30 value="$form->{subject}"></td>
-	  $bcc
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr>
-	  <th align=left nowrap>|.$locale->text('Message').qq|</th>
-	</tr>
-	<tr>
-	  <td><textarea name=message rows=15 cols=60 wrap=soft>$form->{message}</textarea></td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-|;
-
-  &print_options;
-
-  map { delete $form->{$_} } qw(action email cc bcc subject message type sendmode format header);
-
-  $form->hide_form();
-
-  print qq|
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=send_email>
-
-<br>
-<input name=action class=submit type=submit value="|.$locale->text('Continue').qq|">
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub send_email {
-
-  $form->{OUT} = "$sendmail";
-
-  $form->{subject} = $locale->text('Statement').qq| - $form->{todate}| unless $form->{subject};
-  $form->isblank("email", $locale->text('E-mail address missing!'));
-  
-  RP->aging(\%myconfig, \%$form);
-  
-  $form->{"statement_1"} = 1;
-
-  &print_form;
-  
-  $form->redirect($locale->text('Statement sent to')." $form->{$form->{ct}}");
-
-}
-
-
-
-sub print {
-
-  if ($form->{media} !~ /(screen|email)/) {
-    $form->error($locale->text('Select postscript or PDF!')) if ($form->{format} !~ /(postscript|pdf)/);
-  }
-  
-  for $i (1 .. $form->{rowcount}) {
-    if ($form->{"statement_$i"}) {
-      $form->{"$form->{ct}_id"} = $form->{"$form->{ct}_id_$i"};
-      $language_code = $form->{"language_code_$i"};
-      $selected = 1;
-      last;
-    }
-  }
-
-  $form->error($locale->text('Nothing selected!')) unless $selected;
-     
- 
-  if ($form->{media} !~ /(screen|email)/) {
-    $form->{OUT} = "| $printer{$form->{media}}";
-    $form->{"$form->{ct}_id"} = "";
-    $SIG{INT} = 'IGNORE';
-  } else {
-    $form->{"statement_1"} = 1;
-    $form->{"language_code_1"} = $language_code;
-  }
-
-  RP->aging(\%myconfig, \%$form);
- 
-  &print_form;
-
-  $form->redirect($locale->text('Statements sent to printer!')) if ($form->{media} !~ /(screen|email)/);
-
-}
-
-
-sub print_form {
-  
-  $form->{statementdate} = $locale->date(\%myconfig, $form->{todate}, 1);
-
-  $form->{templates} = "$myconfig{templates}";
-
-  # setup variables for the form
-  @a = qw(company address businessnumber tel fax);
-  map { $form->{$_} = $myconfig{$_} } @a;
-  $form->format_string(@a);
-  
-  $form->{IN} = "$form->{type}.html";
-
-  if ($form->{format} eq 'postscript') {
-    $form->{IN} =~ s/html$/tex/;
-  }
-  if ($form->{format} eq 'pdf') {
-    $form->{IN} =~ s/html$/tex/;
-  }
-
-  @a = qw(name address1 address2 city state zipcode country contact);
-  push @a, "$form->{ct}phone", "$form->{ct}fax";
-  push @a, 'email' if ! $form->{media} eq 'email';
-
-  $i = 0;
-  while (@{ $form->{AG} }) {
-
-    $ref = shift @{ $form->{AG} };
-    
-    if ($ctid != $ref->{ctid}) {
-      
-      $ctid = $ref->{ctid};
-      $i++;
-
-      if ($form->{"statement_$i"}) {
-	
-	map { $form->{$_} = $ref->{$_} } @a;
-	$form->format_string(@a);
-
-	$form->{$form->{ct}} = $form->{name};
-	$form->{"$form->{ct}_id"} = $ref->{ctid};
-	$form->{language_code} = $form->{"language_code_$i"};
-	
-	map { $form->{$_} = () } qw(invnumber ordnumber notes invdate duedate);
-	$form->{total} = 0;
-	foreach $item (qw(c0 c30 c60 c90)) {
-	  $form->{$item} = ();
-	  $form->{"${item}total"} = 0;
-	}
-
-	&statement_details($ref);
-
-        while ($ref) {
-
-	  if (scalar (@{ $form->{AG} }) > 0) {
-	    # one or more left to go
-	    if ($ctid == $form->{AG}->[0]->{ctid}) {
-	      $ref = shift @{ $form->{AG} };
-	      &statement_details($ref);
-	      # any more?
-	      $ref = scalar (@{ $form->{AG} });
-	    } else {
-	      $ref = 0;
-	    }
-	  } else {
-	    # set initial ref to 0
-	    $ref = 0;
-	  }
-
-	}
-	
-	map { $form->{"${_}total"} = $form->format_amount(\%myconfig, $form->{"${_}total"}, 2) } (c0, c30, c60, c90, "");
-
-	$form->parse_template(\%myconfig, $userspath);
-	
-      }
-    }
-  }
-
-}
-
-
-sub statement_details {
-  my ($ref) = @_;
-
-  $ref->{invdate} = $ref->{transdate};
-  my @a = qw(invnumber ordnumber notes invdate duedate);
-  map { $form->{"${_}_1"} = $ref->{$_} } @a;
-  $form->format_string(qw(invnumber_1 ordnumber_1 notes_1));
-  map { push @{ $form->{$_} }, $form->{"${_}_1"} } @a;
-  
-  foreach $item (qw(c0 c30 c60 c90)) {
-    eval { $ref->{$item} = $form->round_amount($ref->{$item} / $ref->{exchangerate}, 2) };
-    $form->{"${item}total"} += $ref->{$item};
-    $form->{total} += $ref->{$item};
-    push @{ $form->{$item} }, $form->format_amount(\%myconfig, $ref->{$item}, 2);
-  }
-
-}
- 
-
-sub generate_tax_report {
-
-  RP->tax_report(\%myconfig, \%$form);
-
-  $descvar = "$form->{accno}_description";
-  $description = $form->escape($form->{$descvar});
-  $ratevar = "$form->{accno}_rate";
-  $taxrate = $form->{"$form->{accno}_rate"};
-  
-  if ($form->{accno} =~ /^gifi_/) {
-    $descvar = "gifi_$form->{accno}_description";
-    $description = $form->escape($form->{$descvar});
-    $ratevar = "gifi_$form->{accno}_rate";
-    $taxrate = $form->{"gifi_$form->{accno}_rate"};
-  }
-  
-  $department = $form->escape($form->{department});
-  
-  # construct href
-  $href = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=generate_tax_report&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&summary=$form->{summary}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}";
-
-  # construct callback
-  $description = $form->escape($form->{$descvar},1);
-  $department = $form->escape($form->{department},1);
-
-  $form->sort_order();
-
-  $callback = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=generate_tax_report&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&summary=$form->{summary}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}";
-
-  $form->{title} = $locale->text('GIFI')." - " if ($form->{accno} =~ /^gifi_/);
-
-  $title = $form->escape($form->{title});
-  $href .= "&title=$title";
-  $title = $form->escape($form->{title},1);
-  $callback .= "&title=$title";
-  
-  $form->{title} = qq|$form->{title} $form->{"$form->{accno}_description"} |;
-
-  @columns = $form->sort_columns(qw(id transdate invnumber name description netamount tax total));
-
-  $form->{"l_description"} = "" if $form->{summary};
-  
-  foreach $item (@columns) {
-    if ($form->{"l_$item"} eq "Y") {
-      push @column_index, $item;
-
-      # add column to href and callback
-      $callback .= "&l_$item=Y";
-      $href .= "&l_$item=Y";
-    }
-  }
-
-
-  if ($form->{l_subtotal} eq 'Y') {
-    $callback .= "&l_subtotal=Y";
-    $href .= "&l_subtotal=Y";
-  }
-  
-  
-  if ($form->{department}) {
-    ($department) = split /--/, $form->{department};
-    $option = $locale->text('Department')." : $department";
-  }
-  
-  # if there are any dates
-  if ($form->{fromdate} || $form->{todate}) {
-    if ($form->{fromdate}) {
-      $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
-    }
-    if ($form->{todate}) {
-      $todate = $locale->date(\%myconfig, $form->{todate}, 1);
-    }
-    
-    $form->{period} = "$fromdate - $todate";
-  } else {
-    $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
-  }
-
-
-  if ($form->{db} eq 'ar') {
-    $name = $locale->text('Customer');
-    $invoice = 'is.pl';
-    $arap = 'ar.pl';
-  }
-  if ($form->{db} eq 'ap') {
-    $name = $locale->text('Vendor');
-    $invoice = 'ir.pl';
-    $arap = 'ap.pl';
-  }
-
-  $option .= "<br>" if $option;
-  $option .= "$form->{period}";
-  
- 
-  $column_header{id} = qq|<th><a class=listheading href=$href&sort=id>|.$locale->text('ID').qq|</th>|;
-  $column_header{invnumber} = qq|<th><a class=listheading href=$href&sort=invnumber>|.$locale->text('Invoice').qq|</th>|;
-  $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</th>|;
-  $column_header{netamount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|;
-  $column_header{tax} = qq|<th class=listheading>|.$locale->text('Tax').qq|</th>|;
-  $column_header{total} = qq|<th class=listheading>|.$locale->text('Total').qq|</th>|;
-  
-  $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>$name</th>|;
-  
-  $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</th>|;
-
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop colspan=$colspan>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-  
-  print qq|
-	</tr>
-|;
-
-  # add sort and escape callback
-  $callback = $form->escape($callback . "&sort=$form->{sort}");
-    
-  if (@{ $form->{TR} }) {
-    $sameitem = $form->{TR}->[0]->{$form->{sort}};
-  }
-
-  foreach $ref (@{ $form->{TR} }) {
-
-    $module = ($ref->{invoice}) ? $invoice : $arap;
-    $module = 'ps.pl' if $ref->{till};
-    
-    if ($form->{l_subtotal} eq 'Y') {
-      if ($sameitem ne $ref->{$form->{sort}}) {
-	&tax_subtotal;
-	$sameitem = $ref->{$form->{sort}};
-      }
-    }
-
-    $totalnetamount += $ref->{netamount};
-    $totaltax += $ref->{tax};
-    $ref->{total} = $ref->{netamount} + $ref->{tax};
-
-    $subtotalnetamount += $ref->{netamount};
-    $subtotaltax += $ref->{tax};
-    
-    map { $ref->{$_} = $form->format_amount(\%myconfig, $ref->{$_}, 2, "&nbsp;"); } qw(netamount tax total);
-    
-    $column_data{id} = qq|<td>$ref->{id}</td>|;
-    $column_data{invnumber} = qq|<td><a href=$module?path=$form->{path}&action=edit&id=$ref->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{invnumber}</a></td>|;
-
-    map { $column_data{$_} = qq|<td>$ref->{$_}</td>| } qw(id transdate name partnumber description);
-    
-    map { $column_data{$_} = qq|<td align=right>$ref->{$_}</td>| } qw(netamount tax total);
-
-    $i++; $i %= 2;
-    print qq|
-	<tr class=listrow$i>
-|;
-
-    map { print "$column_data{$_}\n" } @column_index;
-
-    print qq|
-	</tr>
-|;
- 
-  }
- 
-  if ($form->{l_subtotal} eq 'Y') {
-    &tax_subtotal;
-  }
-
-  
-  map { $column_data{$_} = qq|<th>&nbsp;</th>| } @column_index;
-  
-  print qq|
-        </tr>
-	<tr class=listtotal>
-|;
-
-  $total = $form->format_amount(\%myconfig, $totalnetamount + $totaltax, 2, "&nbsp;");
-  $totalnetamount = $form->format_amount(\%myconfig, $totalnetamount, 2, "&nbsp;");
-  $totaltax = $form->format_amount(\%myconfig, $totaltax, 2, "&nbsp;");
-  
-  $column_data{netamount} = qq|<th class=listtotal align=right>$totalnetamount</th>|;
-  $column_data{tax} = qq|<th class=listtotal align=right>$totaltax</th>|;
-  $column_data{total} = qq|<th class=listtotal align=right>$total</th>|;
- 
-  map { print "$column_data{$_}\n" } @column_index;
- 
-    
-  print qq|
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub tax_subtotal {
-
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-  $subtotal = $form->format_amount(\%myconfig, $subtotalnetamount + $subtotaltax, 2, "&nbsp;");
-  $subtotalnetamount = $form->format_amount(\%myconfig, $subtotalnetamount, 2, "&nbsp;");
-  $subtotaltax = $form->format_amount(\%myconfig, $subtotaltax, 2, "&nbsp;");
-  
-  $column_data{netamount} = "<th class=listsubtotal align=right>$subtotalnetamount</th>";
-  $column_data{tax} = "<th class=listsubtotal align=right>$subtotaltax</th>";
-  $column_data{total} = "<th class=listsubtotal align=right>$subtotal</th>";
-
-  $subtotalnetamount = 0;
-  $subtotaltax = 0;
-  
-  print qq|
-	<tr class=listsubtotal>
-|;
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-  
-}
-
-
-
-sub list_payments {
-
-
-  if ($form->{account}) {
-    ($form->{paymentaccounts}) = split /--/, $form->{account};
-  }
-  if ($form->{department}) {
-    ($department, $form->{department_id}) = split /--/, $form->{department};
-    $option = $locale->text('Department')." : $department";
-  }
-
-  RP->payments(\%myconfig, \%$form);
-  
-  @columns = $form->sort_columns(qw(transdate name paid source memo));
-
-  if ($form->{till}) {
-    @columns = $form->sort_columns(qw(transdate name paid curr source till));
-    if ($myconfig{role} ne 'user') {
-      @columns = $form->sort_columns(qw(transdate name paid curr source till employee));
-    }
-  }
-  
-  # construct href
-  $account = $form->escape($form->{account});
-  $title = $form->escape($form->{title});
-  $department = $form->escape($form->{department});
-  $form->{paymentaccounts} =~ s/ /%20/g;
-  $source = $form->escape($form->{source});
-  $memo = $form->escape($form->{memo});
-  
-  $href = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=list_payments&till=$form->{till}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&fx_transaction=$form->{fx_transaction}&db=$form->{db}&l_subtotal=$form->{l_cubtotal}&prepayment=$form->{prepayment}&title=$title&account=$account&department=$department&paymentaccounts=$form->{paymentaccounts}&source=$source&memo=$memo";
-
-  # construct callback
-  $account = $form->escape($form->{account},1);
-  $title = $form->escape($form->{title},1);
-  $department = $form->escape($form->{department},1);
-  $source = $form->escape($form->{source},1);
-  $memo = $form->escape($form->{memo},1);
-  
-  $form->sort_order();
-
-  $form->{callback} = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=list_payments&till=$form->{till}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&fx_transaction=$form->{fx_transaction}&db=$form->{db}&l_subtotal=$form->{l_subtotal}&prepayment=$form->{prepayment}&title=$title&account=$account&department=$department&paymentaccounts=$form->{paymentaccounts}&source=$source&memo=$memo&sort=$form->{sort}";
-  $callback = $form->escape($form->{callback});
-
-  
-  $column_header{name} = "<th><a class=listheading href=$href&sort=name>".$locale->text('Description')."</a></th>";
-  $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>";
-  $column_header{paid} = "<th class=listheading>".$locale->text('Amount')."</a></th>";
-  $column_header{curr} = "<th class=listheading>".$locale->text('Curr')."</a></th>";
-  $column_header{source} = "<th><a class=listheading href=$href&sort=source>".$locale->text('Source')."</a></th>";
-  $column_header{memo} = "<th><a class=listheading href=$href&sort=memo>".$locale->text('Memo')."</a></th>";
-
-  $column_header{employee} = "<th><a class=listheading href=$href&sort=employee>".$locale->text('Salesperson')."</a></th>";
-  $column_header{till} = "<th><a class=listheading href=$href&sort=till>".$locale->text('Till')."</a></th>";
-  
-
-  if ($form->{fromdate}) {
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{fromdate}, 1);
-  }
-  if ($form->{todate}) {
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{todate}, 1);
-  }
-
-  @column_index = @columns;
-  $colspan = $#column_index + 1;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  
-  foreach $ref (sort { $a->{accno} cmp $b->{accno} } @{ $form->{PR} }) {
-
-    next unless @{ $form->{$ref->{id}} };
-
-    print qq|
-        <tr>
-	  <th colspan=$colspan align=left>$ref->{accno}--$ref->{description}</th>
-	</tr>
-|;
-
-    if (@{ $form->{$ref->{id}} }) {
-      $sameitem = $form->{$ref->{id}}[0]->{$form->{sort}};
-    }
-    
-    foreach $payment (@{ $form->{$ref->{id}} }) {
-
-      if ($form->{l_subtotal}) {
-	if ($payment->{$form->{sort}} ne $sameitem) {
-	  # print subtotal
-	  &payment_subtotal;
-	}
-      }
-      
-      next if ($form->{till} && ! $payment->{till});
-      
-      $column_data{name} = "<td>$payment->{name}&nbsp;</td>";
-      $column_data{transdate} = "<td>$payment->{transdate}&nbsp;</td>";
-      $column_data{paid} = "<td align=right>".$form->format_amount(\%myconfig, $payment->{paid}, 2, "&nbsp;")."</td>";
-      $column_data{curr} = "<td>$payment->{curr}</td>";
-      $column_data{source} = "<td>$payment->{source}&nbsp;</td>";
-      $column_data{memo} = "<td>$payment->{memo}&nbsp;</td>";
-      $column_data{employee} = "<td>$payment->{employee}&nbsp;</td>";
-      $column_data{till} = "<td>$payment->{till}&nbsp;</td>";
-
-      $subtotalpaid += $payment->{paid};
-      $accounttotalpaid += $payment->{paid};
-      $totalpaid += $payment->{paid};
-       
-      $i++; $i %= 2;
-      print qq|
-	<tr class=listrow$i>
-|;
-
-      map { print "\n$column_data{$_}" } @column_index;
-
-      print qq|
-        </tr>
-|;
-
-      $sameitem = $payment->{$form->{sort}};
-      
-    }
-
-    &payment_subtotal if $form->{l_subtotal};
-    
-    # print account totals
-    map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-    $column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $accounttotalpaid, 2, "&nbsp;")."</th>";
-     
-    print qq|
-	<tr class=listtotal>
-|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-        </tr>
-|;
-
-    $accounttotalpaid = 0;
-     
-  }
-
-
-  # print total
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-  $column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalpaid, 2, "&nbsp;")."</th>";
-     
-  print qq|
-        <tr class=listtotal>
-|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-        </tr>
-
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub payment_subtotal {
-
-  if ($subtotalpaid != 0) {
-    map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-    $column_data{paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalpaid, 2, "&nbsp;")."</th>";
-
-    print qq|
-  <tr class=listsubtotal>
-|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-  </tr>
-|;
-  }
-
-  $subtotalpaid = 0;
-
-}
-
-
-- 
cgit v1.2.1