Revised copyright notices so that these are not as ambiguous.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@53 4979c152-3d1c-0410-bac9-87ea11338e46
author: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> 2006-09-10 01:41:56 +0000
committer: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> 2006-09-10 01:41:56 +0000
commit: 301545e572f38b78c90b27219f4c8715837f54fd (patch)
tree: af78b25af2cb16dc022323ffc167d1cff811db4b /bin
parent: 64b808ddbc840c881257c42c94cc1c801a716099 (diff)
29 files changed, 838 insertions, 445 deletions
diff --git a/bin/lynx/aa.pl b/bin/lynx/aa.pl
index 5fbb9c93..50c143ef 100755
--- a/bin/lynx/aa.pl
+++ b/bin/lynx/aa.pl
@@ -1,8 +1,26 @@
 #=====================================================================
 # 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) 2005
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#  Contributors:
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #  Contributors:
diff --git a/bin/lynx/admin.pl b/bin/lynx/admin.pl
index 3bf69501..73c1729e 100755
--- a/bin/lynx/admin.pl
+++ b/bin/lynx/admin.pl
@@ -75,10 +75,8 @@ password=
 sub adminlogin {
 
   $form->{title} = qq|LedgerSMB $form->{version} |.$locale->text('Administration');
-  
-  $form->header;
-  
-    print qq|
+
+  $myheaderadd = qq|  
 <script language="JavaScript" type="text/javascript">
 <!--
 function sf(){
@@ -86,12 +84,15 @@ function sf(){
 }
 // End -->
 </script>
+  |;
+  $form->header(undef, $headeradd);
 
+  print qq|
 <body class=admin onload="sf()">
 
 <div align=center>
 
-<a href="http://sourceforge.net/projects/ledger-smb/"><img src="ledger-smb.png" width="200" height="100" border="0"></a>
+<a href="http://sourceforge.net/projects/ledger-smb/"><img src="ledger-smb.png" width="200" height="100" border="0" alt="LedgerSMB Logo"></a>
 <h1 class=login>|.$locale->text('Version').qq| $form->{version}<p>|.$locale->text('Administration').qq|</h1>
 
 <form method=post action="$form->{script}" name=admin>
diff --git a/bin/lynx/am.pl b/bin/lynx/am.pl
index ad2e91b2..e5601954 100755
--- a/bin/lynx/am.pl
+++ b/bin/lynx/am.pl
@@ -1,23 +1,12 @@
 #=====================================================================
-# LedgerSMB Small Medium Business Accounting
-# Copyright (c) 2001
-#
-#  Author: DWS Systems Inc.
-#     Web: http://sourceforge.net/projects/ledger-smb/
-#
+# LedgerSMB 
+# Small Medium Business Accounting software
+# 
+# See COPYRIGHT file for copyright information
+#======================================================================
 #
-# 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 file has NOT undergone whitespace cleanup.
 #
-# 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
@@ -25,12 +14,12 @@
 #======================================================================
 
 
-use SL::AM;
-use SL::CA;
-use SL::Form;
-use SL::User;
-use SL::RP;
-use SL::GL;
+use LedgerSMB::AM;
+use LedgerSMB::CA;
+use LedgerSMB::Form;
+use LedgerSMB::User;
+use LedgerSMB::RP;
+use LedgerSMB::GL;
 
 
 1;
@@ -124,15 +113,15 @@ sub account_header {
     <td>
       <table>
 	<tr>
-	  <th align=right>|.$locale->text('Account Number').qq|</th>
+	  <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>
+	  <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>
+	  <th align="right">|.$locale->text('Account Type').qq|</th>
 	  <td>
 	    <table>
 	      <tr valign=top>
@@ -216,7 +205,7 @@ if ($form->{charttype} eq "A") {
 
 print qq|
         <tr>
-	  <th align=right>|.$locale->text('GIFI').qq|</th>
+	  <th align="right">|.$locale->text('GIFI').qq|</th>
 	  <td><input name=gifi_accno size=9 value=$form->{gifi_accno}></td>
 	</tr>
       </table>
@@ -327,8 +316,8 @@ sub list_account {
   <tr>
     <th class=listtop colspan=$colspan>$form->{title}</th>
   </tr>
-  <tr height=5></tr>
-  <tr class=listheading>
+  <tr height="5"></tr>
+  <tr class="listheading">
 |;
 
   for (@column_index) { print "$column_header{$_}\n" }
@@ -357,11 +346,11 @@ sub list_account {
     $gifi_accno = $form->escape($ca->{gifi_accno});
     
     if ($ca->{charttype} eq "H") {
-      print qq|<tr class=listheading>|;
+      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=$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{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=$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>|;
@@ -369,12 +358,12 @@ sub list_account {
     } 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=$gifi_accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{gifi_accno}</a>&nbsp;</td>|;
+<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=$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{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>|;
       
     }
@@ -385,7 +374,7 @@ sub list_account {
   }
   
   print qq|
-  <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
+  <tr><td colspan="$colspan"><hr size="3" noshade /></td></tr>
 </table>
 
 </body>
@@ -428,8 +417,8 @@ sub list_gifi {
 
   @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>|;
+  $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;
@@ -443,7 +432,7 @@ sub list_gifi {
     <th class=listtop colspan=$colspan>$form->{title}</th>
   </tr>
   <tr height="5"></tr>
-  <tr class=listheading>
+  <tr class="listheading">
 |;
 
   for (@column_index) { print "$column_header{$_}\n" }
@@ -540,11 +529,11 @@ sub gifi_header {
     <td>
       <table>
 	<tr>
-	  <th align=right>|.$locale->text('GIFI').qq|</th>
+	  <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>
+	  <th align="right">|.$locale->text('Description').qq|</th>
 	  <td><input name=description size=60 value="$form->{description}"></td>
 	</tr>
       </table>
@@ -674,9 +663,9 @@ sub list_department {
 
   @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>|;
+  $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;
 
@@ -691,7 +680,7 @@ sub list_department {
   <tr>
     <td>
       <table width=100%>
-        <tr class=listheading>
+        <tr class="listheading">
 |;
 
   for (@column_index) { print "$column_header{$_}\n" }
@@ -791,7 +780,7 @@ sub department_header {
   </tr>
   <tr height="5"></tr>
   <tr>
-    <th align=right>|.$locale->text('Description').qq|</th>
+    <th align="right">|.$locale->text('Description').qq|</th>
     <td>$description</td>
   </tr>
   <tr>
@@ -867,8 +856,8 @@ sub list_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>|;
+  $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;
 
@@ -883,7 +872,7 @@ sub list_business {
   <tr>
     <td>
       <table width=100%>
-        <tr class=listheading>
+        <tr class="listheading">
 |;
 
   for (@column_index) { print "$column_header{$_}\n" }
@@ -903,7 +892,7 @@ sub list_business {
    $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>|;
+   $column_data{discount} = qq|<td align="right">$discount</td>|;
    
    for (@column_index) { print "$column_data{$_}\n" }
 
@@ -977,11 +966,11 @@ sub business_header {
     <td>
       <table>
 	<tr>
-	  <th align=right>|.$locale->text('Type of Business').qq|</th>
+	  <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>
+	  <th align="right">|.$locale->text('Discount').qq| %</th>
 	  <td><input name=discount size=5 value=$form->{discount}></td>
 	</tr>
       </table>
@@ -1060,8 +1049,8 @@ sub list_sic {
 
   @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>|;
+  $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;
 
@@ -1076,7 +1065,7 @@ sub list_sic {
   <tr>
     <td>
       <table width=100%>
-        <tr class=listheading>
+        <tr class="listheading">
 |;
 
   for (@column_index) { print "$column_header{$_}\n" }
@@ -1091,7 +1080,7 @@ sub list_sic {
     
     if ($ref->{sictype} eq 'H') {
       print qq|
-        <tr valign=top class=listheading>
+        <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>|;
@@ -1175,7 +1164,7 @@ sub sic_header {
   </tr>
   <tr height="5"></tr>
   <tr>
-    <th align=right>|.$locale->text('Code').qq|</th>
+    <th align="right">|.$locale->text('Code').qq|</th>
     <td><input name=code size=10 value="$form->{code}"></td>
   <tr>
   <tr>
@@ -1183,7 +1172,7 @@ sub sic_header {
     <th align=left><input name=sictype class=checkbox type=checkbox value="H" $checked> |.$locale->text('Heading').qq|</th>
   <tr>
   <tr>
-    <th align=right>|.$locale->text('Description').qq|</th>
+    <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>
@@ -1258,8 +1247,8 @@ sub list_language {
 
   @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>|;
+  $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;
 
@@ -1274,7 +1263,7 @@ sub list_language {
   <tr>
     <td>
       <table width=100%>
-        <tr class=listheading>
+        <tr class="listheading">
 |;
 
   for (@column_index) { print "$column_header{$_}\n" }
@@ -1361,11 +1350,11 @@ sub language_header {
   </tr>
   <tr height="5"></tr>
   <tr>
-    <th align=right>|.$locale->text('Code').qq|</th>
+    <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>
+    <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>
@@ -1502,8 +1491,8 @@ sub list_templates {
 
   @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>|;
+  $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;
 
@@ -1518,7 +1507,7 @@ sub list_templates {
   <tr>
     <td>
       <table width=100%>
-        <tr class=listheading>
+        <tr class="listheading">
 |;
 
   for (@column_index) { print "$column_header{$_}\n" }
@@ -1722,40 +1711,40 @@ sub defaults {
     <td>
       <table>
 	<tr>
-	  <th align=right>|.$locale->text('Business Number').qq|</th>
+	  <th align="right">|.$locale->text('Business Number').qq|</th>
 	  <td><input name=businessnumber size=25 value="$form->{businessnumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right>|.$locale->text('Weight Unit').qq|</th>
+	  <th align="right">|.$locale->text('Weight Unit').qq|</th>
 	  <td><input name=weightunit size=5 value="$form->{weightunit}"></td>
 	</tr>
       </table>
     </td>
   </tr>
   <tr>
-    <th class=listheading>|.$locale->text('Last Numbers & Default Accounts').qq|</th>
+    <th class="listheading">|.$locale->text('Last Numbers & Default Accounts').qq|</th>
   </tr>
   <tr>
     <td>
       <table>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Inventory').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Inventory').qq|</th>
 	  <td><select name=IC>$form->{account}{IC}</select></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Income').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Income').qq|</th>
 	  <td><select name=IC_income>$form->{account}{IC_income}</select></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Expense').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Expense').qq|</th>
 	  <td><select name=IC_expense>$form->{account}{IC_expense}</select></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Foreign Exchange Gain').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Foreign Exchange Gain').qq|</th>
 	  <td><select name=FX_gain>$form->{account}{FX_gain}</select></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Foreign Exchange Loss').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Foreign Exchange Loss').qq|</th>
 	  <td><select name=FX_loss>$form->{account}{FX_loss}</select></td>
 	</tr>
       </table>
@@ -1773,51 +1762,51 @@ sub defaults {
     <td>
       <table>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('GL Reference Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('GL Reference Number').qq|</th>
 	  <td><input name=glnumber size=40 value="$form->{glnumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Sales Invoice/AR Transaction Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Sales Invoice/AR Transaction Number').qq|</th>
 	  <td><input name=sinumber size=40 value="$form->{sinumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Sales Order Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Sales Order Number').qq|</th>
 	  <td><input name=sonumber size=40 value="$form->{sonumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Vendor Invoice/AP Transaction Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Vendor Invoice/AP Transaction Number').qq|</th>
 	  <td><input name=vinumber size=40 value="$form->{vinumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Purchase Order Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Purchase Order Number').qq|</th>
 	  <td><input name=ponumber size=40 value="$form->{ponumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Sales Quotation Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Sales Quotation Number').qq|</th>
 	  <td><input name=sqnumber size=40 value="$form->{sqnumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('RFQ Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('RFQ Number').qq|</th>
 	  <td><input name=rfqnumber size=40 value="$form->{rfqnumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Part Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Part Number').qq|</th>
 	  <td><input name=partnumber size=40 value="$form->{partnumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Job/Project Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Job/Project Number').qq|</th>
 	  <td><input name=projectnumber size=40 value="$form->{projectnumber}"></td>
         </tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Employee Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Employee Number').qq|</th>
 	  <td><input name=employeenumber size=40 value="$form->{employeenumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Customer Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Customer Number').qq|</th>
 	  <td><input name=customernumber size=40 value="$form->{customernumber}"></td>
 	</tr>
 	<tr>
-	  <th align=right nowrap>|.$locale->text('Vendor Number').qq|</th>
+	  <th align="right" nowrap>|.$locale->text('Vendor Number').qq|</th>
 	  <td><input name=vendornumber size=40 value="$form->{vendornumber}"></td>
 	</tr>
       </table>
@@ -1906,7 +1895,7 @@ sub display_taxes {
     
     print qq|
 	<tr>
-	  <th align=right>|;
+	  <th align="right">|;
 	  
     if ($form->{"taxdescription_$i"} eq $sametax) {
       print "";
@@ -2053,7 +2042,7 @@ sub config {
 
     $printer = qq|
 	      <tr>
-		<th align=right>|.$locale->text('Printer').qq|</th>
+		<th align="right">|.$locale->text('Printer').qq|</th>
 		<td><select name=printer>$selectprinter</select></td>
 	      </tr>
 |;
@@ -2081,31 +2070,31 @@ sub config {
 	  <td>
 	    <table>
 	      <tr>
-		<th align=right>|.$locale->text('Name').qq|</th>
+		<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>
+		<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>
+		<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>
+		<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>
+		<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>
+		<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>
+		<th align="right">|.$locale->text('Address').qq|</th>
 		<td><textarea name=address rows=4 cols=35>$myconfig{address}</textarea></td>
 	      </tr>
 	    </table>
@@ -2113,39 +2102,39 @@ sub config {
 	  <td>
 	    <table>
 	      <tr>
-		<th align=right>|.$locale->text('Password').qq|</th>
+		<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>
+		<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>
+		<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>
+		<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>
+		<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>
+		<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>
+		<th align="right">|.$locale->text('Language').qq|</th>
 		<td><select name=countrycode>$countrycodes</select></td>
 	      </tr>
 	      <tr>
-		<th align=right>|.$locale->text('Session Timeout').qq|</th>
+		<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>
+		<th align="right">|.$locale->text('Stylesheet').qq|</th>
 		<td><select name=usestylesheet>$selectstylesheet</select></td>
 	      </tr>
 	      $printer
@@ -2275,19 +2264,19 @@ sub audit_control {
     <td>
       <table>
 	<tr>
-	  <th align=right>|.$locale->text('Enforce transaction reversal for all dates').qq|</th>
+	  <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>
+	  <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 trail').qq|</th>
+	  <th align="right">|.$locale->text('Activate Audit trail').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 trail up to').qq|</th>
+	  <th align="right">|.$locale->text('Remove Audit trail up to').qq|</th>
 	  <td><input name=removeaudittrail size=11 title="$myconfig{dateformat}"></td>
 	</tr>
       </table>
@@ -2385,7 +2374,7 @@ sub list_warehouse {
 
   @column_index = qw(description);
 
-  $column_header{description} = qq|<th width=100%><a class=listheading href=$href>|.$locale->text('Description').qq|</a></th>|;
+  $column_header{description} = qq|<th width=100%><a class="listheading" href=$href>|.$locale->text('Description').qq|</a></th>|;
 
   $form->header;
 
@@ -2400,7 +2389,7 @@ sub list_warehouse {
   <tr>
     <td>
       <table width=100%>
-        <tr class=listheading>
+        <tr class="listheading">
 |;
 
   for (@column_index) { print "$column_header{$_}\n" }
@@ -2494,7 +2483,7 @@ sub warehouse_header {
   </tr>
   <tr height="5"></tr>
   <tr>
-    <th align=right>|.$locale->text('Description').qq|</th>
+    <th align="right">|.$locale->text('Description').qq|</th>
     <td>$description</td>
   </tr>
   <tr>
@@ -2549,23 +2538,23 @@ sub yearend {
     <td>
       <table>
 	<tr>
-	  <th align=right>|.$locale->text('Yearend').qq|</th>
+	  <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>
+	  <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>
+	  <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>
+	  <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>
+          <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>
@@ -2657,8 +2646,8 @@ sub company_logo {
 
 </pre>
 <center>
-<a href="http://sourceforge.net/projects/ledger-smb/" target=_blank><img src=ledger-smb.png border=0></a>
-<h1 class=login>|.$locale->text('Version').qq| $form->{version}</h1>
+<a href="http://sourceforge.net/projects/ledger-smb/" target="_blank"><img src="ledger-smb.png" width="200" height="100" border="0" alt="LedgerSMB Logo" /></a>
+<h1 class="login">|.$locale->text('Version').qq| $form->{version}</h1>
 
 <p>
 |.$locale->text('Licensed to').qq|
@@ -2671,15 +2660,15 @@ $myconfig{company}
 <p>
 <table border=0>
   <tr>
-    <th align=right>|.$locale->text('User').qq|</th>
+    <th align="right">|.$locale->text('User').qq|</th>
     <td>$myconfig{name}</td>
   </tr>
   <tr>
-    <th align=right>|.$locale->text('Dataset').qq|</th>
+    <th align="right">|.$locale->text('Dataset').qq|</th>
     <td>$myconfig{dbname}</td>
   </tr>
   <tr>
-    <th align=right>|.$locale->text('Database Host').qq|</th>
+    <th align="right">|.$locale->text('Database Host').qq|</th>
     <td>$myconfig{dbhost}</td>
   </tr>
 </table>
@@ -2724,18 +2713,18 @@ sub recurring_transactions {
   
   push @column_index, qw(nextdate enddate id amount curr repeat howmany recurringemail recurringprint);
 
-  $column_header{reference} = "<th><a class=listheading href=$href&sort=reference>".$locale->text('Reference').qq"</a></th>";
-  $column_header{ndx} = "<th class=listheading>&nbsp;</th>";
-  $column_header{id} = "<th class=listheading>".$locale->text('ID')."</th>";
-  $column_header{description} = "<th class=listheading>".$locale->text('Description')."</th>";
-  $column_header{nextdate} = "<th><a class=listheading href=$href&sort=nextdate>".$locale->text('Next')."</a></th>";
-  $column_header{enddate} = "<th><a class=listheading href=$href&sort=enddate>".$locale->text('Ends')."</a></th>";
-  $column_header{amount} = "<th class=listheading>".$locale->text('Amount')."</th>";
-  $column_header{curr} = "<th class=listheading>&nbsp;</th>";
-  $column_header{repeat} = "<th class=listheading>".$locale->text('Every')."</th>";
-  $column_header{howmany} = "<th class=listheading>".$locale->text('Times')."</th>";
-  $column_header{recurringemail} = "<th class=listheading>".$locale->text('E-mail')."</th>";
-  $column_header{recurringprint} = "<th class=listheading>".$locale->text('Print')."</th>";
+  $column_header{reference} = qq|<th><a class="listheading" href="$href&sort=reference">|.$locale->text('Reference').q|</a></th>|;
+  $column_header{ndx} = q|<th class="listheading">&nbsp;</th>|;
+  $column_header{id} = q|<th class="listheading">|.$locale->text('ID').q|</th>|;
+  $column_header{description} = q|<th class="listheading">|.$locale->text('Description').q|</th>|;
+  $column_header{nextdate} = qq|<th><a class="listheading" href="$href&sort=nextdate">|.$locale->text('Next').q|</a></th>|;
+  $column_header{enddate} = qq|<th><a class="listheading" href="$href&sort=enddate">|.$locale->text('Ends').q|</a></th>|;
+  $column_header{amount} = q|<th class="listheading">|.$locale->text('Amount').q|</th>|;
+  $column_header{curr} = q|<th class="listheading">&nbsp;</th>|;
+  $column_header{repeat} = q|<th class="listheading">|.$locale->text('Every').q|</th>|;
+  $column_header{howmany} = q|<th class="listheading">|.$locale->text('Times').q|</th>|;
+  $column_header{recurringemail} = q|<th class="listheading">|.$locale->text('E-mail').q|</th>|;
+  $column_header{recurringprint} = q|<th class="listheading">|.$locale->text('Print').q|</th>|;
 
 print qq|
 <body>
@@ -2750,7 +2739,7 @@ print qq|
   <tr>
     <td>
       <table width=100%>
-        <tr class=listheading>
+        <tr class="listheading">
 |;
 
   for (@column_index) { print "\n$column_header{$_}" }
@@ -2774,7 +2763,7 @@ print qq|
   foreach $transaction (sort keys %{ $form->{transactions} }) {
     print qq|
         <tr>
-	  <th class=listheading colspan=$colspan>$tr{$transaction}</th>
+	  <th class="listheading" colspan=$colspan>$tr{$transaction}</th>
 	</tr>
 |;
     
@@ -2817,11 +2806,11 @@ print qq|
 	$type = ($ref->{vc} eq 'customer') ? "sales_order" : "purchase_order";
       }
 
-      $column_data{id} = qq|<td><a href=$module?action=edit&id=$ref->{id}&vc=$ref->{vc}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$type&readonly=1>$ref->{id}</a></td>|;
+      $column_data{id} = qq|<td><a href="$module?action=edit&id=$ref->{id}&vc=$ref->{vc}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$type&readonly=1">$ref->{id}</a></td>|;
       
-      $column_data{repeat} = "<td align=right nowrap>$repeat</td>";
-      $column_data{howmany} = "<td align=right nowrap>".$form->format_amount(\%myconfig, $ref->{howmany})."</td>";
-      $column_data{amount} = "<td align=right nowrap>".$form->format_amount(\%myconfig, $ref->{amount}, 2)."</td>";
+      $column_data{repeat} = qq|<td align="right" nowrap>$repeat</td>|;
+      $column_data{howmany} = qq|<td align="right" nowrap>|.$form->format_amount(\%myconfig, $ref->{howmany})."</td>";
+      $column_data{amount} = qq|<td align="right" nowrap>|.$form->format_amount(\%myconfig, $ref->{amount}, 2)."</td>";
       
       $column_data{recurringemail} = "<td nowrap>";
       @f = split /:/, $ref->{recurringemail};
diff --git a/bin/lynx/ap.pl b/bin/lynx/ap.pl
index 8eb246e0..3f0a3db8 100755
--- a/bin/lynx/ap.pl
+++ b/bin/lynx/ap.pl
@@ -1,8 +1,26 @@
 #=====================================================================
 # 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) 2000
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#  Contributors:
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #  Contributors:
diff --git a/bin/lynx/ar.pl b/bin/lynx/ar.pl
index 4a475578..46719f2f 100755
--- a/bin/lynx/ar.pl
+++ b/bin/lynx/ar.pl
@@ -1,8 +1,26 @@
 #=====================================================================
 # 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) 2000
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#  Contributors:
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #  Contributors:
diff --git a/bin/lynx/arap.pl b/bin/lynx/arap.pl
index 6fc44370..89d16654 100755
--- a/bin/lynx/arap.pl
+++ b/bin/lynx/arap.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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) 2003
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/arapprn.pl b/bin/lynx/arapprn.pl
index 8519df47..a8a98bad 100755
--- a/bin/lynx/arapprn.pl
+++ b/bin/lynx/arapprn.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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) 2003
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+# 
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 # 
 #
diff --git a/bin/lynx/bp.pl b/bin/lynx/bp.pl
index ce724baa..7606cb23 100755
--- a/bin/lynx/bp.pl
+++ b/bin/lynx/bp.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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) 2003
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/ca.pl b/bin/lynx/ca.pl
index 8ea9980d..c6371f7f 100755
--- a/bin/lynx/ca.pl
+++ b/bin/lynx/ca.pl
@@ -1,8 +1,26 @@
 #=====================================================================
 # 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:
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #  Contributors:
diff --git a/bin/lynx/cp.pl b/bin/lynx/cp.pl
index e7303904..e1b3ae41 100755
--- a/bin/lynx/cp.pl
+++ b/bin/lynx/cp.pl
@@ -1,8 +1,26 @@
 #=====================================================================
 # 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) 2002
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+# Contributors:
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 # Contributors:
diff --git a/bin/lynx/ct.pl b/bin/lynx/ct.pl
index 300fda0a..5bccf6d1 100755
--- a/bin/lynx/ct.pl
+++ b/bin/lynx/ct.pl
@@ -1,8 +1,26 @@
 #=====================================================================
 # 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>
diff --git a/bin/lynx/gl.pl b/bin/lynx/gl.pl
index 2cd298aa..a8d72d79 100755
--- a/bin/lynx/gl.pl
+++ b/bin/lynx/gl.pl
@@ -1,8 +1,26 @@
 #=====================================================================
 # 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:
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 # Contributors:
diff --git a/bin/lynx/hr.pl b/bin/lynx/hr.pl
index 9b86d86b..e3a9f772 100755
--- a/bin/lynx/hr.pl
+++ b/bin/lynx/hr.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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) 2004
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/ic.pl b/bin/lynx/ic.pl
index 47e0304d..daaae47e 100755
--- a/bin/lynx/ic.pl
+++ b/bin/lynx/ic.pl
@@ -1,8 +1,26 @@
 #=====================================================================
 # 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:
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 # Contributors:
diff --git a/bin/lynx/io.pl b/bin/lynx/io.pl
index fbc37ac7..295c391e 100755
--- a/bin/lynx/io.pl
+++ b/bin/lynx/io.pl
@@ -1,8 +1,25 @@
 ######################################################################
 # 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) 2002
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/ir.pl b/bin/lynx/ir.pl
index 3a4c9905..1c23eea4 100755
--- a/bin/lynx/ir.pl
+++ b/bin/lynx/ir.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/is.pl b/bin/lynx/is.pl
index 1dde9d87..0ee87c16 100755
--- a/bin/lynx/is.pl
+++ b/bin/lynx/is.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/jc.pl b/bin/lynx/jc.pl
index 2312dabc..e11213ed 100755
--- a/bin/lynx/jc.pl
+++ b/bin/lynx/jc.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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) 2005
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/login.pl b/bin/lynx/login.pl
index fb2fe312..421b5c7e 100755
--- a/bin/lynx/login.pl
+++ b/bin/lynx/login.pl
@@ -1,61 +1,52 @@
-######################################################################
-# LedgerSMB Small Medium Business Accounting
-# Copyright (c) 2000
+#=====================================================================
+# LedgerSMB 
+# Small Medium Business Accounting software
+# 
+# See COPYRIGHT file for copyright information
+#======================================================================
 #
-#  Author: DWS Systems Inc.
-#     Web: http://sourceforge.net/projects/ledger-smb/
+# This file has undergone whitespace cleanup.
 #
-#
-# 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;
+use LedgerSMB::User;
+use LedgerSMB::Form;
 
+## will need this later when session_destroy will be used
+#use LedgerSMB::Session;
 
-$form = new Form;
 
+$form = new Form;
 
 $locale = new Locale $language, "login";
 $form->{charset} = $locale->{charset};
 
 # customization
 if (-f "$form->{path}/custom_$form->{script}") {
-  eval { require "$form->{path}/custom_$form->{script}"; };
-  $form->error($@) if ($@);
+	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 ($@);
+	eval { require "$form->{path}/$form->{login}_$form->{script}"; };
+	$form->error($@) if ($@);
 }
 
 # window title bar, user info
 $form->{titlebar} = "LedgerSMB ".$locale->text('Version'). " $form->{version}";
 
 if ($form->{action}) {
-  $form->{titlebar} .= " - $myconfig{name} - $myconfig{dbname}";
-  &{ $locale->findsub($form->{action}) };
+	$form->{titlebar} .= " - $myconfig{name} - $myconfig{dbname}";
+	&{ $locale->findsub($form->{action}) };
+
 } else {
-  &login_screen;
+	&login_screen;
 }
 
 
@@ -64,287 +55,268 @@ if ($form->{action}) {
 
 sub login_screen {
 
-  $form->{stylesheet} = "ledger-smb.css";
-  $form->{favicon} = "favicon.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(); }|;
-  }
-
-  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.js.value = "0"
-  else
-    document.login.js.value = "1"
-}
-$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://sourceforge.net/projects/ledger-smb/" target=_top><img src=ledger-smb.png 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}>
-	      <input type=hidden name=js value=$form->{js}>
-	    </table>
-
-	    <br>
-	    <input type=submit name=action value="|.$locale->text('Login').qq|">
-	  </td>
-	</tr>
-      </table>
-
-</form>
-
-    </td>
-  </tr>
-</table>
-  
+	$form->{stylesheet} = "ledger-smb.css";
+	$form->{favicon} = "favicon.ico";
+
+	$form->{endsession} = 1;
+
+	if ($form->{login}) {
+		$sf = q|function sf() { document.login.password.focus(); }|;
+	} else {
+		$sf = q|function sf() { document.login.login.focus(); }|;
+	}
+
+	my $headeradd = 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.js.value = "0";
+			} else {
+				document.login.js.value = "1";
+			}
+		}
+
+		$sf
+	// End -->
+	</script>|;
+
+	$form->header(1, $headeradd)
+
+	print qq|
+
+<body class="login" onload="jsp(); sf();">
+	<br /><br />
+	<center>
+		<table class="login" border="3" cellpadding="20">
+			<tr>
+				<td class="login" align="center">
+					<a href="http://sourceforge.net/projects/ledger-smb/" target="_top"><img src="ledger-smb.png" width="200" heith="100" border="0" alt="LedgerSMB Logo" /></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>
+								</table>
+								<br />
+							</td>
+						</tr>
+					</table>
+						<input type="hidden" name="path" value="$form->{path}" />
+						<input type="hidden" name="js" value="$form->{js}" />
+						<input type="submit" name="action" value="|.$locale->text('Login').qq|" />
+					</form>
+					</p>
+				</td>
+			</tr>
+		</table>
+	</center>
 </body>
-</html>
-|;
+</html>|;
 
 }
 
 
 sub selectdataset {
-  my ($login) = @_;
-  
-  if (-f "css/ledger-smb.css") {
-    $form->{stylesheet} = "ledger-smb.css";
-  }
-
-  $form->header(1);
-
-  print qq|
-<body class=login onload="document.forms[0].password.focus()" />
-
-<pre>
-
-</pre>
-
-<center>
-<table class=login border=3 cellpadding=20>
-  <tr>
-    <td class=login align=center><a href="http://sourceforge.net/projects/ledger-smb/" target=_top><img src=ledger-smb.png 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=js value=$form->{js}>
-	      <input type=hidden name=path value=$form->{path}>
-	      <tr>
-		<th align=right>|.$locale->text('Company').qq|</th>
-		<td>|;
-		
+	my ($login) = @_;
+
+	if (-f "css/ledger-smb.css") {
+		$form->{stylesheet} = "ledger-smb.css";
+	}
+
+	$form->header(1);
+
+	print qq|
+<body class="login" onload="document.forms[0].password.focus()" />
+	<br /><br />
+	<center>
+	<table class="login" border="3" cellpadding="20">
+		<tr>
+			<td class="login" align="center">
+				<a href="http://sourceforge.net/projects/ledger-smb/" target="_top"><img src="ledger-smb.png" width="100" heith="100" border="0" alt="LedgerSMB Logo" /></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" />
+					<input type="hidden" name="js" value="$form->{js}" />
+					<input type="hidden" name="path" value="$form->{path}" />
+					<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>
+									<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| <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>
-  
+	print qq|
+										</td>
+									</tr>
+								</table>
+								<br />
+								<input type="submit" name="action" value="|.$locale->text('Login').qq|">
+							</td>
+						</tr>
+					</table>
+				</form>
+			</td>
+		</tr>
+	</table>
+	</center>
 </body>
-</html>
-|;
-
+</html>|;
 
 }
 
 
 sub login {
 
-  $form->{stylesheet} = "ledger-smb.css";
-  $form->{favicon} = "favicon.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);
-    
-    foreach $item (@a) {
-
-      if ($item =~ /^\[(.*?)\]/) {
-	$login = $1;
-	$found = 1;
-      }
-
-      if ($item =~ /^company=/) {
-	if ($login =~ /$form->{login}\@/ && $found) {
-	  ($null, $name) = split /=/, $item, 2;
-	  $login{$login} = $name;
+	$form->{stylesheet} = "ledger-smb.css";
+	$form->{favicon} = "favicon.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);
+
+		foreach $item (@a) {
+
+			if ($item =~ /^\[(.*?)\]/) {
+				$login = $1;
+				$found = 1;
+			}
+
+			if ($item =~ /^company=/) {
+				if ($login =~ /$form->{login}\@/ && $found) {
+					($null, $name) = split /=/, $item, 2;
+					$login{$login} = $name;
+				}
+				$found = 0;
+			}
+		}
+
+		if (keys %login > 1) {
+			&selectdataset(\%login);
+			exit;
+		}
 	}
-	$found = 0;
-      }
-  
-    }
-
-    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('Access Denied!');
-    $err[2] = $locale->text('Incorrect Dataset version!');
-    $err[3] = $locale->text('Dataset is newer than version!');
-    
-    if ($errno == 4) {
-      # upgrade dataset and log in again
-      open FH, ">$userspath/nologin" or $form->error($!);
-
-      for (qw(dbname dbhost dbport dbdriver dbuser dbpasswd)) { $form->{$_} = $user->{$_} }
-
-      $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&main=company_logo&js=$form->{js}>".$locale->text('Continue')."</a>";
-
-      exit;
-    }
-    
-    $form->error($err[$errno]);
-  }
-
-  # made it this far, setup callback for the menu
-  $form->{callback} = "menu.pl?action=display";
-  for (qw(login path js)) { $form->{callback} .= "&$_=$form->{$_}" }
-  
-  # check for recurring transactions
-  if ($user->{acs} !~ /Recurring Transactions/) {
-    if ($user->check_recurring(\%$form)) {
-      $form->{callback} .= "&main=recurring_transactions";
-    } else {
-      $form->{callback} .= "&main=company_logo";
-    }
-  } else {
-    if ($user->{role} eq 'user') {
-      $form->{callback} .= "&main=company_logo";
-    } else {
-      if ($user->check_recurring(\%$form)) {
-	$form->{callback} .= "&main=recurring_transactions";
-      } else {
-	$form->{callback} .= "&main=company_logo";
-      }
-    }
-  }
-
-  $form->redirect;
-  
-}
 
 
+	$user = new User $memberfile, $form->{login};
 
-sub logout {
+	# if we get an error back, bale out
+	if (($errno = $user->login(\%$form, $userspath)) <= -1) {
 
-  $form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}";
+		$errno *= -1;
+		$err[1] = $locale->text('Access Denied!');
+		$err[2] = $locale->text('Incorrect Dataset version!');
+		$err[3] = $locale->text('Dataset is newer than version!');
 
-  $form->{endsession} = 1;
-  
-  $form->redirect;
+		if ($errno == 4) {
+			# upgrade dataset and log in again
+			open FH, ">$userspath/nologin" or $form->error($!);
+
+			for (qw(dbname dbhost dbport dbdriver dbuser dbpasswd)) { $form->{$_} = $user->{$_} }
+
+			$form->{dbpasswd} = unpack 'u', $form->{dbpasswd};
+
+			$form->{dbupdate} = "db$user->{dbname}";
+			$form->{$form->{dbupdate}} = 1;
+
+			$form->header;
+			print qq|<body>|;
+			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&main=company_logo&js=$form->{js}>\">".$locale->text('Continue')."</a>";
+			print qq|</body>|;
+			exit;
+		}
+
+		$form->error($err[$errno]);
+	}
+
+	# made it this far, setup callback for the menu
+	$form->{callback} = "menu.pl?action=display&password=$form->{password}";
+	for (qw(login path js)) { $form->{callback} .= "&$_=$form->{$_}" }
+
+	# check for recurring transactions
+	if ($user->{acs} !~ /Recurring Transactions/) {
+
+		if ($user->check_recurring(\%$form)) {
+			$form->{callback} .= "&main=recurring_transactions";
+		} else {
+			$form->{callback} .= "&main=company_logo";
+		}
+
+	} else {
+
+		if ($user->{role} eq 'user') {
+			$form->{callback} .= "&main=company_logo";
+		} else {
+
+			if ($user->check_recurring(\%$form)) {
+				$form->{callback} .= "&main=recurring_transactions";
+			} else {
+				$form->{callback} .= "&main=company_logo";
+			}
+		}
+	}
+
+	$form->redirect;
+
+}
+
+
+
+sub logout {
 
+	$form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}";
+	$form->{endsession} = 1;
+	#delete the cookie in the browser manually (can't use session_destroy here unfortunately)
+	print qq|Set-Cookie: LedgerSMB=; path=/;\n|;
+	$form->redirect;
 }
 
 
diff --git a/bin/lynx/menu.pl b/bin/lynx/menu.pl
index d087bc1f..b7dc829d 100755
--- a/bin/lynx/menu.pl
+++ b/bin/lynx/menu.pl
@@ -1,6 +1,32 @@
 ######################################################################
 # LedgerSMB Small Medium Business Accounting
-# Copyright (c) 2006
+
+# 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) 2000
+#
+#  Author: Dieter Simader
+#   Email: dsimader@sql-ledger.org
+#     Web: http://www.sql-ledger.org
+#
+#  Contributors: Christopher Browne <cbrowne@acm.org>
+#                Tony Fraser <tony@sybaspace.com>
+#
+#
+# Portions 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
diff --git a/bin/lynx/oe.pl b/bin/lynx/oe.pl
index 6d369ef5..5a6a6e1d 100755
--- a/bin/lynx/oe.pl
+++ b/bin/lynx/oe.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/pe.pl b/bin/lynx/pe.pl
index bc7b108f..daf26fc4 100755
--- a/bin/lynx/pe.pl
+++ b/bin/lynx/pe.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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) 2002
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/pos.pl b/bin/lynx/pos.pl
index ca6a87b4..932315c5 100755
--- a/bin/lynx/pos.pl
+++ b/bin/lynx/pos.pl
@@ -1,8 +1,26 @@
 #=====================================================================
 # 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) 2003
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+# Contributors: Steve Doerr <sdoerr907@everestkc.net>
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 # Contributors: Steve Doerr <sdoerr907@everestkc.net>
diff --git a/bin/lynx/ps.pl b/bin/lynx/ps.pl
index 1a11743e..47708a25 100755
--- a/bin/lynx/ps.pl
+++ b/bin/lynx/ps.pl
@@ -1,8 +1,24 @@
 ######################################################################
 # 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) 1999 - 2005
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 # This program is free software; you can redistribute it and/or modify
diff --git a/bin/lynx/pw.pl b/bin/lynx/pw.pl
index a634e74b..e2824d8b 100755
--- a/bin/lynx/pw.pl
+++ b/bin/lynx/pw.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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) 2004
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/rc.pl b/bin/lynx/rc.pl
index 3ba199e4..e28d6ef6 100755
--- a/bin/lynx/rc.pl
+++ b/bin/lynx/rc.pl
@@ -1,8 +1,25 @@
 #=====================================================================
 # 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) 2003
 #
 #  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #
diff --git a/bin/lynx/rp.pl b/bin/lynx/rp.pl
index d9803c93..19c48ff2 100755
--- a/bin/lynx/rp.pl
+++ b/bin/lynx/rp.pl
@@ -1,8 +1,27 @@
 #=====================================================================
 # 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: Antonio Gallardo <agssa@ibw.com.ni>
+#                Benjamin Lee <benjaminlee@consultant.com>
+#
+#
+#  Author: DWS Systems Inc.
 #     Web: http://sourceforge.net/projects/ledger-smb/
 #
 #  Contributors: Antonio Gallardo <agssa@ibw.com.ni>
diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index 3bf69501..73c1729e 100755
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -75,10 +75,8 @@ password=
 sub adminlogin {
 
   $form->{title} = qq|LedgerSMB $form->{version} |.$locale->text('Administration');
-  
-  $form->header;
-  
-    print qq|
+
+  $myheaderadd = qq|  
 <script language="JavaScript" type="text/javascript">
 <!--
 function sf(){
@@ -86,12 +84,15 @@ function sf(){
 }
 // End -->
 </script>
+  |;
+  $form->header(undef, $headeradd);
 
+  print qq|
 <body class=admin onload="sf()">
 
 <div align=center>
 
-<a href="http://sourceforge.net/projects/ledger-smb/"><img src="ledger-smb.png" width="200" height="100" border="0"></a>
+<a href="http://sourceforge.net/projects/ledger-smb/"><img src="ledger-smb.png" width="200" height="100" border="0" alt="LedgerSMB Logo"></a>
 <h1 class=login>|.$locale->text('Version').qq| $form->{version}<p>|.$locale->text('Administration').qq|</h1>
 
 <form method=post action="$form->{script}" name=admin>
diff --git a/bin/mozilla/login.pl b/bin/mozilla/login.pl
index 5f317d10..421b5c7e 100755
--- a/bin/mozilla/login.pl
+++ b/bin/mozilla/login.pl
@@ -59,7 +59,6 @@ sub login_screen {
 	$form->{favicon} = "favicon.ico";
 
 	$form->{endsession} = 1;
-	$form->header(1);
 
 	if ($form->{login}) {
 		$sf = q|function sf() { document.login.password.focus(); }|;
@@ -67,7 +66,7 @@ sub login_screen {
 		$sf = q|function sf() { document.login.login.focus(); }|;
 	}
 
-	print qq|
+	my $headeradd = qq|
 	<script language="JavaScript" type="text/javascript">
 	<!--
 		var agt = navigator.userAgent.toLowerCase();
@@ -89,6 +88,8 @@ sub login_screen {
 	// End -->
 	</script>|;
 
+	$form->header(1, $headeradd)
+
 	print qq|
 
 <body class="login" onload="jsp(); sf();">
@@ -97,7 +98,7 @@ sub login_screen {
 		<table class="login" border="3" cellpadding="20">
 			<tr>
 				<td class="login" align="center">
-					<a href="http://sourceforge.net/projects/ledger-smb/" target="_top"><img src="ledger-smb.png" width="200" heith="100" border="0" /></a>
+					<a href="http://sourceforge.net/projects/ledger-smb/" target="_top"><img src="ledger-smb.png" width="200" heith="100" border="0" alt="LedgerSMB Logo" /></a>
 					<h1 class="login" align="center">|.$locale->text('Version').qq| $form->{version}</h1>
 					<p>
 					<form method="post" action="$form->{script}" name="login">
@@ -149,7 +150,7 @@ sub selectdataset {
 	<table class="login" border="3" cellpadding="20">
 		<tr>
 			<td class="login" align="center">
-				<a href="http://sourceforge.net/projects/ledger-smb/" target="_top"><img src="ledger-smb.png" width="100" heith="100" border="0" /></a>
+				<a href="http://sourceforge.net/projects/ledger-smb/" target="_top"><img src="ledger-smb.png" width="100" heith="100" border="0" alt="LedgerSMB Logo" /></a>
 				<h1 class="login" align="center">|.$locale->text('Version').qq| $form->{version}</h1>
 				<p>
 				<form method="post" action="$form->{script}">
@@ -255,6 +256,7 @@ sub login {
 			$form->{$form->{dbupdate}} = 1;
 
 			$form->header;
+			print qq|<body>|;
 			print $locale->text('Upgrading to Version')." $form->{version} ... ";
 
 			# required for Oracle
@@ -267,7 +269,8 @@ sub login {
 
 			print $locale->text('done');
 
-			print "<p><a href=\"menu.pl?login=$form->{login}&sessionid=$form->{sessionid}&path=$form->{path}&action=display&main=company_logo&js=$form->{js}>\"".$locale->text('Continue')."</a>";
+			print "<p><a href=\"menu.pl?login=$form->{login}&sessionid=$form->{sessionid}&path=$form->{path}&action=display&main=company_logo&js=$form->{js}>\">".$locale->text('Continue')."</a>";
+			print qq|</body>|;
 			exit;
 		}
author	einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>	2006-09-10 01:41:56 +0000
committer	einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>	2006-09-10 01:41:56 +0000
commit	301545e572f38b78c90b27219f4c8715837f54fd (patch)
tree	af78b25af2cb16dc022323ffc167d1cff811db4b /bin
parent	64b808ddbc840c881257c42c94cc1c801a716099 (diff)