From 987a1477f532e40f07bee7ac01d06bfb99403424 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sun, 10 Sep 2006 20:04:26 +0000
Subject: Updated copyright notices on remaining bin/mozilla files. Centralized
 Lynx support to merely include most of the files in the bin/mozilla directory

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@59 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/lynx/ct.pl | 2497 +-------------------------------------------------------
 1 file changed, 2 insertions(+), 2495 deletions(-)

(limited to 'bin/lynx/ct.pl')

diff --git a/bin/lynx/ct.pl b/bin/lynx/ct.pl
index 5bccf6d1..e2063d80 100755
--- a/bin/lynx/ct.pl
+++ b/bin/lynx/ct.pl
@@ -1,2496 +1,3 @@
-#=====================================================================
-# LedgerSMB Small Medium Business Accounting
-
-# Copyright (C) 2006
-# This work contains copyrighted information from a number of sources all used
-# with permission.
-#
-# This file contains source code included with or based on SQL-Ledger which
-# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed 
-# under the GNU General Public License version 2 or, at your option, any later 
-# version.  For a full list including contact information of contributors, 
-# maintainers, and copyright holders, see the CONTRIBUTORS file.
-#
-# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
-# Copyright (c) 2001
-#
-#  Author: DWS Systems Inc.
-#     Web: http://www.sql-ledger.org
-#
-#  Contributors: Reed White <alta@alta-research.com>
-#
-#
-#  Author: DWS Systems Inc.
-#     Web: http://sourceforge.net/projects/ledger-smb/
-#
-#  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;
-  
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</body>
-</html>
-|;
-
-}
-
-
-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};
-
-  @a = ();
-  
-  push @a, qq|<input name="l_ndx" type=checkbox class=checkbox value=Y> |.$locale->text('No.');
-  push @a, qq|<input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID');
-  push @a, qq|<input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |.$locale->text($label . ' Number');
-  push @a, qq|<input name="l_name" type=checkbox class=checkbox value=Y $form->{l_name}> |.$locale->text('Company Name');
-  push @a, qq|<input name="l_contact" type=checkbox class=checkbox value=Y $form->{l_contact}> |.$locale->text('Contact');
-  push @a, qq|<input name="l_email" type=checkbox class=checkbox value=Y $form->{l_email}> |.$locale->text('E-mail');
-  push @a, qq|<input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address');
-  push @a, qq|<input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City');
-  push @a, qq|<input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province');
-  push @a, qq|<input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code');
-  push @a, qq|<input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country');
-  push @a, qq|<input name="l_phone" type=checkbox class=checkbox value=Y $form->{l_phone}> |.$locale->text('Phone');
-  push @a, qq|<input name="l_fax" type=checkbox class=checkbox value=Y> |.$locale->text('Fax');
-  push @a, qq|<input name="l_cc" type=checkbox class=checkbox value=Y> |.$locale->text('Cc');
-  
-  if ($myconfig{role} =~ /(admin|manager)/) {
-    push @a, qq|<input name="l_bcc" type=checkbox class=checkbox value=Y> |.$locale->text('Bcc');
-  }
-
-  push @a, qq|<input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes');
-  push @a, qq|<input name="l_discount" type=checkbox class=checkbox value=Y> |.$locale->text('Discount');
-  push @a, qq|<input name="l_taxaccount" type=checkbox class=checkbox value=Y> |.$locale->text('Tax Account');
-  push @a, qq|<input name="l_taxnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Tax Number');
-  
-  if ($form->{db} eq 'customer') {
-    push @a, qq|<input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Salesperson');
-    push @a, qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager');
-    push @a, qq|<input name="l_pricegroup" type=checkbox class=checkbox value=Y> |.$locale->text('Pricegroup');
-
-  } else {
-    push @a, qq|<input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Employee');
-    push @a, qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager');
-    push @a, qq|<input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |.$locale->text('GIFI');
-
-  }
-
-  push @a, qq|<input name="l_sic_code" type=checkbox class=checkbox value=Y> |.$locale->text('SIC');
-  push @a, qq|<input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN');
-  push @a, qq|<input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC');
-  push @a, qq|<input name="l_business" type=checkbox class=checkbox value=Y> |.$locale->text('Type of Business');
-  push @a, qq|<input name="l_terms" type=checkbox class=checkbox value=Y> |.$locale->text('Terms');
-  push @a, qq|<input name="l_language" type=checkbox class=checkbox value=Y> |.$locale->text('Language');
-  push @a, qq|<input name="l_startdate" type=checkbox class=checkbox value=Y> |.$locale->text('Startdate');
-  push @a, qq|<input name="l_enddate" type=checkbox class=checkbox value=Y> |.$locale->text('Enddate');
-
-   
-  $include = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td>
-	    <table>
-|;
-
-  while (@a) {
-    $include .= qq|<tr>\n|;
-    for (1 .. 5) {
-      $include .= qq|<td nowrap>|. shift @a;
-      $include .= qq|</td>\n|;
-    }
-    $include .= qq|</tr>\n|;
-  }
-
-  $include .= qq|
-	    </table>
-	  </td>
-	</tr>
-|;
-
-}
-
-
-sub search {
-
-# $locale->text('Customers')
-# $locale->text('Vendors')
-
-  $form->{title} = $locale->text('Search') unless $form->{title};
-  
-  for (qw(name contact phone email)) { $form->{"l_$_"} = 'checked' }
-
-  $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=active>&nbsp;|.$locale->text('Active').qq|
-	  <input name=status class=radio type=radio value=inactive>&nbsp;|.$locale->text('Inactive').qq|
-	  <input name=status class=radio type=radio value=orphaned>&nbsp;|.$locale->text('Orphaned').qq|</td>
-	</tr>
-|;
-
-
-  &transactions;
-  &include_in_report;
-  &search_name;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-	      
-</body>
-</html>
-|;
-
-}
-
-
-sub search_name {
-
-  $label = ucfirst $form->{db};
-
-  if ($form->{db} eq 'customer') {
-    $employee = qq|
- 	  <th align=right nowrap>|.$locale->text('Salesperson').qq|</th>
-	  <td><input name=employee size=32></td>
-|;
-  }
-  if ($form->{db} eq 'vendor') {
-    $employee = qq|
- 	  <th align=right nowrap>|.$locale->text('Employee').qq|</th>
-	  <td><input name=employee size=32></td>
-|;
-  }
- 
- 
-  $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 valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Company Name').qq|</th>
-		<td><input name=name size=32></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Contact').qq|</th>
-		<td><input name=contact size=32></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('Phone').qq|</th>
-		<td><input name=phone size=20></td>
-	      </tr>
-	      <tr>
-		$employee
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Notes').qq|</th>
-		<td colspan=3><textarea name=notes rows=3 cols=32></textarea></td>
-	      </tr>
-	    </table>
-	  </td>
-
-	  <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('Address').qq|</th>
-		<td><input name=address size=32></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('Startdate').qq|</th>
-		<td>|.$locale->text('From').qq| <input name=startdatefrom size=11 title="$myconfig{dateformat}"> |.$locale->text('To').qq| <input name=startdateto size=11 title="$myconfig{dateformat}"></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-
-  <tr>
-    <td>
-      <table>
-
-	$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>
-|;
-
-}
-
-
-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, terms,
-				 taxaccount, taxnumber, gifi_accno, sic_code, business,
-				 pricegroup, language, iban, bic,
-				 startdate, enddate,
-				 invnumber, invamount, invtax, invtotal,
-				 ordnumber, ordamount, ordtax, ordtotal,
-				 quonumber, quoamount, quotax, quototal);
-  unshift @columns, "ndx";
-  
-  $form->{l_invnumber} = "Y" if $form->{l_transnumber};
-  foreach $item (qw(inv ord quo)) {
-    if ($form->{"l_${item}number"}) {
-      for (qw(amount tax total)) { $form->{"l_$item$_"} = $form->{"l_$_"} }
-      $removeemployee = 1;
-      $openclosed = 1;
-    }
-  }
-  $form->{open} = $form->{closed} = "" if !$openclosed;
-
-
-  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->{status} eq 'active') {
-    $option = $locale->text('Active');
-  }
-  if ($form->{status} eq 'inactive') {
-    $option = $locale->text('Inactive');
-  }
-
-  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->{employee}) {
-    $callback .= "&employee=".$form->escape($form->{employee},1);
-    $href .= "&employee=".$form->escape($form->{employee});
-    $option .= "\n<br>";
-    if ($form->{db} eq 'customer') {
-      $option .= $locale->text('Salesperson');
-    }
-    if ($form->{db} eq 'vendor') {
-      $option .= $locale->text('Employee');
-    }
-    $option .= " : $form->{employee}";
-  }
-
-  $fromdate = "";
-  $todate = "";
-  if ($form->{startdatefrom}) {
-    $callback .= "&startdatefrom=$form->{startdatefrom}";
-    $href .= "&startdatefrom=$form->{startdatefrom}";
-    $fromdate = $locale->date(\%myconfig, $form->{startdatefrom}, 1);
-  }
-  if ($form->{startdateto}) {
-    $callback .= "&startdateto=$form->{startdateto}";
-    $href .= "&startdateto=$form->{startdateto}";
-    $todate = $locale->date(\%myconfig, $form->{startdateto}, 1);
-  }
-  if ($fromdate || $todate) {
-    $option .= "\n<br>".$locale->text('Startdate')." $fromdate - $todate";
-  }
-  
-  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->{phone}) {
-    $callback .= "&phone=".$form->escape($form->{phone},1);
-    $href .= "&phone=".$form->escape($form->{phone});
-    $option .= "\n<br>".$locale->text('Phone')." : $form->{phone}";
-  }
-  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{ndx} = qq|<th class=listheading>&nbsp;</th>|;
-  $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{terms} = qq|<th class=listheading>|.$locale->text('Terms').qq|</th>|;
-  
-  $column_header{taxnumber} = qq|<th><a class=listheading href=$href&sort=taxnumber>|.$locale->text('Tax Number').qq|</a></th>|;
-  $column_header{taxaccount} = qq|<th class=listheading>|.$locale->text('Tax Account').qq|</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>
-|;
-
-  for (@column_index) { print "$column_header{$_}\n" }
-
-  print qq|
-        </tr>
-|;
-
-  $ordertype = ($form->{db} eq 'customer') ? 'sales_order' : 'purchase_order';
-  $quotationtype = ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation';
-  $subtotal = 0;
-
-  $i = 0;
-  foreach $ref (@{ $form->{CT} }) {
-
-    if ($ref->{$form->{sort}} ne $sameitem && $form->{l_subtotal}) {
-      # print subtotal
-      if ($subtotal) {
-	for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-	&list_subtotal;
-      }
-    }
-
-    if ($ref->{id} eq $sameid) {
-      for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-    } else {
-    
-      $i++;
-      
-      $ref->{notes} =~ s/\r?\n/<br>/g;
-      for (@column_index) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
-
-      $column_data{ndx} = "<td align=right>$i</td>";
-      
-      if ($ref->{$form->{sort}} eq $sameitem) {
-	$column_data{$form->{sort}} = "<td>&nbsp;</td>";
-      }
-	
-      $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}} 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};
-      $subtotal = 1;
-    }
-     
-    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};
-      $subtotal = 1;
-    }
-
-    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};
-      $subtotal = 1;
-    }
-    
-    if ($sameid ne "$ref->{id}") {
-      if ($form->{l_discount}) {
-	$column_data{discount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{discount} * 100, "", "&nbsp;")."</td>";
-      }
-      if ($form->{l_terms}) {
-	$column_data{terms} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{terms}, "", "&nbsp;")."</td>";
-      }
-    }
-   
-    $j++; $j %= 2;
-    print "
-        <tr class=listrow$j>
-";
-
-    for (@column_index) { print "$column_data{$_}\n" }
-
-    print qq|
-        </tr>
-|;
-    
-    $sameitem = "$ref->{$form->{sort}}";
-    $sameid = $ref->{id};
-
-  }
-
-  if ($form->{l_subtotal} && $subtotal) {
-    for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-    &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}>
-|;
-
-  $form->hide_form(qw(callback db path login 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>
-";
-	for (@column_index) { print "$column_data{$_}\n" }
-
-	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>
-|;
-
-  for (@column_index) { print "$column_header{$_}\n" }
-
-  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';
-    }
-  }
-    
-  $ml = ($form->{db} eq 'vendor') ? -1 : 1;
-  
-  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>
-|;
-    }
-
-    for (@column_index) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
-
-    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} * $ml)."</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>
-|;
-
-    for (@column_index) { print "$column_data{$_}\n" }
-
-    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);
-
-  for (keys %$form) { $form->{$_} = $form->quote($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);
-  $form->{discount} = $form->format_amount(\%myconfig, $form->{discount}, "");
-  $form->{terms} = $form->format_amount(\%myconfig, $form->{terms}, "");
-  
-  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>
-|;
-  }
-  
-  if ($form->{currencies}) {
-    # currencies
-    for (split /:/, $form->{currencies}) { $form->{selectcurrency} .= "<option>$_\n" }
-    $form->{selectcurrency} =~ s/option>($form->{curr})/option selected>$1/;
-    $currency = qq|
-	  <th>|.$locale->text('Currency').qq|</th>
-	  <td><select name=curr>$form->{selectcurrency}</select></td>
-|;
-  }
- 
-  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|;
-    for (@{ $form->{all_business} }) { $form->{selectbusiness} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }
-
-    $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|;
-    for (@{ $form->{all_pricegroup} }) { $form->{selectpricegroup} .= qq|<option value="$_->{pricegroup}--$_->{id}">$_->{pricegroup}\n| }
-    
-    $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|;
-    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{description}--$_->{code}">$_->{description}\n| }
-    
-    $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|;
-  for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }
-  
-  $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_code size=6 maxlength=6 value="$form->{sic_code}"></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
-	  $currency
-	</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 {
-
-# type=submit $locale->text('Save')
-# type=submit $locale->text('Save as new')
-# type=submit $locale->text('AR Transaction')
-# type=submit $locale->text('Sales Invoice')
-# type=submit $locale->text('Sales Order')
-# type=submit $locale->text('Quotation')
-# type=submit $locale->text('AP Transaction')
-# type=submit $locale->text('Vendor Invoice')
-# type=submit $locale->text('Purchase Order')
-# type=submit $locale->text('RFQ')
-# type=submit $locale->text('Pricelist')
-# type=submit $locale->text('Delete')
-# type=submit $locale->text('POS')
-
-  %button = ('Save' => { ndx => 1, key => 'S', value => $locale->text('Save') },
-             'Save as new' => { ndx => 2, key => 'N', value => $locale->text('Save as new') },
-	     'AR Transaction' => { ndx => 7, key => 'A', value => $locale->text('AR Transaction') },
-	     'AP Transaction' => { ndx => 8, key => 'A', value => $locale->text('AP Transaction') },
-	     'Sales Invoice' => { ndx => 9, key => 'I', value => $locale->text('Sales Invoice') },
-	     'POS' => { ndx => 10, key => 'C', value => $locale->text('POS') },
-	     'Sales Order' => { ndx => 11, key => 'O', value => $locale->text('Sales Order') },
-	     'Quotation' => { ndx => 12, key => 'Q', value => $locale->text('Quotation') },
-	     'Vendor Invoice' => { ndx => 13, key => 'I', value => $locale->text('Vendor Invoice') },
-	     'Purchase Order' => { ndx => 14, key => 'O', value => $locale->text('Purchase Order') },
-	     'RFQ' => { ndx => 15, key => 'Q', value => $locale->text('RFQ') },
-	     'Pricelist' => { ndx => 16, key => 'P', value => $locale->text('Pricelist') },
-	     'Delete' => { ndx => 17, key => 'D', value => $locale->text('Delete') },
-	    );
-  
-  
-  %a = ();
-  
-  if ($form->{db} eq 'customer') {
-    if ($myconfig{acs} !~ /AR--Customers--Add Customer/) {
-      $a{'Save'} = 1;
-
-      if ($form->{id}) {
-	$a{'Save as new'} = 1;
-	if ($form->{status} eq 'orphaned') {
-	  $a{'Delete'} = 1;
-	}
-      }
-    }
-    
-    if ($myconfig{acs} !~ /AR--AR/) {
-      if ($myconfig{acs} !~ /AR--Add Transaction/) {
-	$a{'AR Transaction'} = 1;
-      }
-      if ($myconfig{acs} !~ /AR--Sales Invoice/) {
-	$a{'Sales Invoice'} = 1;
-      }
-    }
-    if ($myconfig{acs} !~ /POS--POS/) {
-      if ($myconfig{acs} !~ /POS--Sale/) {
-	$a{'POS'} = 1;
-      }
-    }
-    if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-      if ($myconfig{acs} !~ /Order Entry--Sales Order/) {
-	$a{'Sales Order'} = 1;
-      }
-    }
-    if ($myconfig{acs} !~ /Quotations--Quotations/) {
-      if ($myconfig{acs} !~ /Quotations--Quotation/) {
-	$a{'Quotation'} = 1;
-      }
-    }
-  }
-  
-  if ($form->{db} eq 'vendor') {
-    if ($myconfig{acs} !~ /AP--Vendors--Add Vendor/) {
-      $a{'Save'} = 1;
-
-      if ($form->{id}) {
-	$a{'Save as new'} = 1;
-	if ($form->{status} eq 'orphaned') {
-	  $a{'Delete'} = 1;
-	}
-      }
-    }
- 
-    if ($myconfig{acs} !~ /AP--AP/) {
-      if ($myconfig{acs} !~ /AP--Add Transaction/) {
-	$a{'AP Transaction'} = 1;
-      }
-      if ($myconfig{acs} !~ /AP--Vendor Invoice/) {
-	$a{'Vendor Invoice'} = 1;
-      }
-    }
-    if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-      if ($myconfig{acs} !~ /Order Entry--Purchase Order/) {
-	$a{'Purchase Order'} = 1;
-      }
-    }
-    if ($myconfig{acs} !~ /Quotations--Quotations/) {
-      if ($myconfig{acs} !~ /Quotations--RFQ/) {
-	$a{'RFQ'} = 1;
-      }
-    }
-  }
-  
-  if ($myconfig{acs} !~ /Goods & Services--Goods & Services/) {
-    $myconfig{acs} =~ s/(Goods & Services--)Add (Service|Assembly).*;/$1--Add Part/g;
-    if ($myconfig{acs} !~ /Goods & Services--Add Part/) {
-      $a{'Pricelist'} = 1;
-    }
-  }
-
-  $form->hide_form(qw(id taxaccounts path login sessionid callback db));
-  
-  for (keys %button) { delete $button{$_} if ! $a{$_} }
-  for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
-  
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
- 
-  </form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub pricelist {
-
-  $form->isblank("name", $locale->text('Name missing!'));
-
-  $form->{display_form} ||= "display_pricelist";
-
-  CT->pricelist(\%myconfig, \%$form);
-
-  foreach $ref (@{ $form->{"all_partspricelist"} }) {
-    $i++;
-    for (keys %$ref) { $form->{"${_}_$i"} = $ref->{$_} }
-  }
-  $form->{rowcount} = $i;
-
-  # currencies
-  @curr = split /:/, $form->{currencies};
-  for (@curr) { $form->{selectcurrency} .= "<option>$_\n" }
-  
-  if (@ { $form->{all_partsgroup} }) {
-    $form->{selectpartsgroup} = "";
-    foreach $ref (@ { $form->{all_partsgroup} }) {
-      $form->{selectpartsgroup} .= qq|$ref->{partsgroup}--$ref->{id}\n|;
-    }
-  }
-
-  for (qw(currencies all_partsgroup all_partspricelist)) { delete $form->{$_} }
-
-  foreach $i (1 .. $form->{rowcount}) {
-    
-    if ($form->{db} eq 'customer') {
-      
-      $form->{"pricebreak_$i"} = $form->format_amount(\%myconfig, $form->{"pricebreak_$i"});
-
-      $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, 2);
-      
-    }
-    
-    if ($form->{db} eq 'vendor') {
-      
-      $form->{"leadtime_$i"} = $form->format_amount(\%myconfig, $form->{"leadtime_$i"});
-      
-      $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, 2);
-      
-    }
-  }
-
-  $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}) {
-
-      for (qw(pricebreak sellprice)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }
-      
-      ($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;
-    for (sort keys %ndx) { $form->{"runningnumber_$ndx{$_}"} = $i++ }
-      
-    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;
-
-	for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
-	$count++;
-      }
-      $sameid = $form->{"id_$i"};
-    }
-   
-    $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
-    $form->{rowcount} = $count;
-
-  }
-
-  $form->{rowcount}++;
-
-  if ($form->{display_form}) {
-    &{ "$form->{display_form}" };
-  }
-
-}
-
-
-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}) {
-
-      for (qw(leadtime lastcost)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }
-      $var = ($form->{"partnumber_$i"}) ? $form->{"sku_$i"} : qq|_$form->{"sku_$i"}|;
-      $ndx{$var} = $i;
-      
-    }
-
-    $i = 1;
-    for (sort keys %ndx) { $form->{"runningnumber_$ndx{$_}"} = $i++ }
-
-    foreach $i (1 .. $form->{rowcount}) {
-      if ($form->{"sku_$i"}) {
-	push @a, {};
-	$j = $#a;
-
-	for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
-	$count++;
-      }
-    }
-   
-    $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
-    $form->{rowcount} = $count;
-
-  }
-
-  $form->{rowcount}++;
-
-  if ($form->{display_form}) {
-    &{ "$form->{display_form}" };
-  }
-
-}
-
-
-sub display_pricelist {
-  
-  &pricelist_header;
-  delete $form->{action};
-  $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>
-|;
-
-  for (@column_index) { print "\n$column_header{$_}" }
-  
-  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->quote($form->{"partsgroup_$i"}).qq|">|;
-      }
-    }
-
-
-    if ($i < $form->{rowcount}) {
-      
-      if ($form->{"id_$i"} eq $sameid) {
-	for (qw(partnumber description partsgroup)) { $column_data{$_} = qq|<td>&nbsp;</td>
-	<input type=hidden name="${_}_$i" value="|.$form->quote($form->{"${_}_$i"}).qq|">| }
-      } 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}) {
-	$selectpartsgroup = "<option>";
-	foreach $line (split /\n/, $form->{selectpartsgroup}) {
-	  $selectpartsgroup .= qq|\n<option value="|.$form->quote($line).qq|">| .(split /--/, $line)[0];
-	}
-	$column_data{partsgroup} = qq|<td><select name="partsgroup_$i">$selectpartsgroup</select></td>|;
-      }
-      
-    }
-
-
-    if ($form->{db} eq 'customer') {
-      
-      $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"}, 2).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') {
-      $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"}, 2).qq|></td>|;
-    }
-      
-
-    $column_data{curr} = qq|<td><select name="curr_$i">$selectcurrency</select></td>|;
-
-    
-    print qq|<tr valign=top>|;
-    
-    for (@column_index) { print "\n$column_data{$_}" }
-
-    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}) {
-    for (@column_index, "id") { delete $form->{"${_}_$i"} }
-  }
-  for (qw(title titlebar script none)) { delete $form->{$_} }
-
-}
-
-
-sub pricelist_footer {
-
-# type=submit $locale->text('Update')
-# type=submit $locale->text('Save Pricelist')
-
-  %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
-             'Save Pricelist' => { ndx => 3, key => 'S', value => $locale->text('Save Pricelist') },
-	    ); 
-	     
-  for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
-  
-  print qq|
-</form>
-
-</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"};
-	
-	for (qw(partnumber description)) { $form->{item_list}[0]{$_} = $form->quote($form->{item_list}[0]{$_}) }
-	for (keys %{ $form->{item_list}[0] }) { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
-
-        if ($form->{db} eq 'customer') {
-	  
-	  if ($sellprice) {
-	    $form->{"sellprice_$i"} = $sellprice;
-	  }
-	  
-	  $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, 2);
-	  
-	  $form->{"pricebreak_$i"} = $pricebreak;
-	  
-	} else {
-
-          foreach $j (1 .. $form->{rowcount} - 1) {
-	    if ($form->{"sku_$j"} eq $form->{"partnumber_$i"}) {
-	      $form->error($locale->text('Item already on pricelist!'));
-	    }
-	  }
-
-	  if ($lastcost) {
-	    $form->{"lastcost_$i"} = $lastcost;
-	  }
-	   
-	  $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, 2);
-
-	  $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 items');
-  
-  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>|;
-
-  for (@column_index) { print "\n$column_data{$_}" }
-
-  print qq|
-        </tr>
-|;
-
-  my $i = 0;
-  foreach $ref (@{ $form->{item_list} }) {
-    $i++;
-
-    for (qw(partnumber description unit)) { $ref->{$_} = $form->quote($ref->{$_}) }
-    
-    $column_data{ndx} = qq|<td><input name="ndx_$i" class=checkbox type=checkbox value=$i></td>|;
-
-    for (qw(partnumber description partsgroup unit)) { $column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>| }
-
-    $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>|;
-
-    for (@column_index) { print "\n$column_data{$_}" }
-
-    print qq|
-        </tr>
-|;
-
-    for (qw(partnumber description partsgroup partsgroup_id sellprice lastcost unit id)) {
-      print qq|<input type=hidden name="new_${_}_$i" value="$ref->{$_}">\n|;
-    }
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input name=lastndx type=hidden value=$i>
-
-|;
-
-  # delete action variable
-  for (qw(nextsub item_list)) { delete $form->{$_} }
-  
-  $form->{action} = "item_selected";
-
-  $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 {
-
-  # add rows
-  $i = $form->{rowcount};
-
-  %id = ();
-  for $i (1 .. $form->{rowcount} - 1) {
-    $id{$form->{"id_$i"}} = 1;
-  }
- 
-  for $j (1 .. $form->{lastndx}) {
-
-    if ($form->{"ndx_$j"}) {
-
-      if ($id{$form->{"new_id_$j"}}) {
-	next if $form->{db} eq 'vendor';
-      }
-      
-      for (qw(id partnumber description unit sellprice lastcost)) {
-	$form->{"${_}_$i"} = $form->{"new_${_}_$j"};
-      }
-      
-      $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|;
-      $form->{"sku_$i"} = $form->{"new_partnumber_$j"};
- 
-      $i++;
-     
-    }
-  }
-
-  $form->{rowcount} = $i;
- 
-  # delete all the new_ variables
-  for $i (1 .. $form->{lastndx}) {
-    for (qw(id partnumber description unit sellprice lastcost partsgroup partsgroup_id)) { delete $form->{"new_${_}_$i"} }
-    delete $form->{"ndx_$i"};
-  }
-  
-  for (qw(ndx lastndx nextsub)) { delete $form->{$_} }
-
-  &{ "$form->{db}_pricelist" };
-
-}
-
-
-
-    
-sub save_pricelist {
- 
-  &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form);
-
-  $callback = $form->{callback};
-  $form->{callback} = "$form->{script}?action=edit";
-  for (qw(db id login path sessionid)) { $form->{callback} .= "&$_=$form->{$_}" }
-  $form->{callback} .= "&callback=".$form->escape($callback,1);
-  
-  if (CT->save_pricelist(\%myconfig, \%$form)) {
-    $form->redirect;
-  } else {
-    $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 pos {
-  
-  $form->{script} = "ps.pl";
-  $form->{type} = "pos_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_as_new {
-  
-  delete $form->{id};
-  &save;
-  
-}
-
-
-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));
-  
-}
-
-
-sub continue { &{ $form->{nextsub} } };
-
-sub add_customer { &add };
-sub add_vendor { &add };
+#!/usr/bin/perl
 
+require "bin/mozilla/ct.pl"
-- 
cgit v1.2.3