From 301545e572f38b78c90b27219f4c8715837f54fd Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sun, 10 Sep 2006 01:41:56 +0000 Subject: 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 --- bin/lynx/aa.pl | 18 ++ bin/lynx/admin.pl | 11 +- bin/lynx/am.pl | 273 ++++++++++++-------------- bin/lynx/ap.pl | 18 ++ bin/lynx/ar.pl | 18 ++ bin/lynx/arap.pl | 17 ++ bin/lynx/arapprn.pl | 17 ++ bin/lynx/bp.pl | 17 ++ bin/lynx/ca.pl | 18 ++ bin/lynx/cp.pl | 18 ++ bin/lynx/ct.pl | 18 ++ bin/lynx/gl.pl | 18 ++ bin/lynx/hr.pl | 17 ++ bin/lynx/ic.pl | 18 ++ bin/lynx/io.pl | 17 ++ bin/lynx/ir.pl | 17 ++ bin/lynx/is.pl | 17 ++ bin/lynx/jc.pl | 17 ++ bin/lynx/login.pl | 546 ++++++++++++++++++++++++--------------------------- bin/lynx/menu.pl | 28 ++- bin/lynx/oe.pl | 17 ++ bin/lynx/pe.pl | 17 ++ bin/lynx/pos.pl | 18 ++ bin/lynx/ps.pl | 16 ++ bin/lynx/pw.pl | 17 ++ bin/lynx/rc.pl | 17 ++ bin/lynx/rp.pl | 19 ++ bin/mozilla/admin.pl | 11 +- bin/mozilla/login.pl | 13 +- 29 files changed, 838 insertions(+), 445 deletions(-) (limited to 'bin') 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| + |; + $form->header(undef, $headeradd); + print qq|
- +LedgerSMB Logo

|.$locale->text('Version').qq| $form->{version}

|.$locale->text('Administration').qq|

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 { - + - + - + - - + + |; 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||; + print qq||; - $column_data{accno} = qq||; - $column_data{gifi_accno} = qq||; - $column_data{description} = qq||; + $column_data{accno} = qq||; + $column_data{gifi_accno} = qq||; + $column_data{description} = qq||; $column_data{debit} = qq||; $column_data{credit} = qq| |; $column_data{link} = qq||; @@ -369,12 +358,12 @@ sub list_account { } else { $i++; $i %= 2; print qq| -|; - $column_data{accno} = qq||; - $column_data{gifi_accno} = qq||; +|; + $column_data{accno} = qq||; + $column_data{gifi_accno} = qq||; $column_data{description} = qq||; - $column_data{debit} = qq||; - $column_data{credit} = qq||; + $column_data{debit} = qq||; + $column_data{credit} = qq||; $column_data{link} = qq||; } @@ -385,7 +374,7 @@ sub list_account { } print qq| - +
|.$locale->text('Account Number').qq||.$locale->text('Account Number').qq|
|.$locale->text('Description').qq||.$locale->text('Description').qq|
|.$locale->text('Account Type').qq||.$locale->text('Account Type').qq| @@ -216,7 +205,7 @@ if ($form->{charttype} eq "A") { print qq| - +
|.$locale->text('GIFI').qq||.$locale->text('GIFI').qq| {gifi_accno}>
@@ -327,8 +316,8 @@ sub list_account {
$form->{title}
{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}{script}?action=edit_gifi&accno=$gifi_accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{gifi_accno} $ca->{description} $ca->{accno}$ca->{gifi_accno} $ca->{description}    
{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}{script}?action=edit_gifi&accno=$gifi_accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{gifi_accno} 
$ca->{accno}$ca->{gifi_accno} $ca->{description} $ca->{debit}$ca->{credit}$ca->{debit}$ca->{credit}$ca->{link} 
@@ -428,8 +417,8 @@ sub list_gifi { @column_index = qw(accno description); - $column_header{accno} = qq||.$locale->text('GIFI').qq||; - $column_header{description} = qq||.$locale->text('Description').qq||; + $column_header{accno} = qq||.$locale->text('GIFI').qq||; + $column_header{description} = qq||.$locale->text('Description').qq||; $form->header; @@ -443,7 +432,7 @@ sub list_gifi { $form->{title} - + |; for (@column_index) { print "$column_header{$_}\n" } @@ -540,11 +529,11 @@ sub gifi_header { - + - +
|.$locale->text('GIFI').qq||.$locale->text('GIFI').qq|
|.$locale->text('Description').qq||.$locale->text('Description').qq|
@@ -674,9 +663,9 @@ sub list_department { @column_index = qw(description cost profit); - $column_header{description} = qq||.$locale->text('Description').qq||; - $column_header{cost} = qq||.$locale->text('Cost Center').qq||; - $column_header{profit} = qq||.$locale->text('Profit Center').qq||; + $column_header{description} = qq||.$locale->text('Description').qq||; + $column_header{cost} = qq||.$locale->text('Cost Center').qq||; + $column_header{profit} = qq||.$locale->text('Profit Center').qq||; $form->header; @@ -691,7 +680,7 @@ sub list_department { - + |; for (@column_index) { print "$column_header{$_}\n" } @@ -791,7 +780,7 @@ sub department_header { - + @@ -867,8 +856,8 @@ sub list_business { @column_index = qw(description discount); - $column_header{description} = qq||; - $column_header{discount} = qq||; + $column_header{description} = qq||; + $column_header{discount} = qq||; $form->header; @@ -883,7 +872,7 @@ sub list_business {
|.$locale->text('Description').qq||.$locale->text('Description').qq| $description
|.$locale->text('Description').qq||.$locale->text('Discount').qq| %|.$locale->text('Description').qq||.$locale->text('Discount').qq| %
- + |; for (@column_index) { print "$column_header{$_}\n" } @@ -903,7 +892,7 @@ sub list_business { $discount = $form->format_amount(\%myconfig, $ref->{discount} * 100, 2, " "); $column_data{description} = qq||; - $column_data{discount} = qq||; + $column_data{discount} = qq||; for (@column_index) { print "$column_data{$_}\n" } @@ -977,11 +966,11 @@ sub business_header { |; - $column_header{description} = qq||; + $column_header{code} = qq||; + $column_header{description} = qq||; $form->header; @@ -1076,7 +1065,7 @@ sub list_sic {
{script}?action=edit_business&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}$discount$discount - + - +
|.$locale->text('Type of Business').qq||.$locale->text('Type of Business').qq|
|.$locale->text('Discount').qq| %|.$locale->text('Discount').qq| % {discount}>
@@ -1060,8 +1049,8 @@ sub list_sic { @column_index = $form->sort_columns(qw(code description)); - $column_header{code} = qq|		|.$locale->text('Code').qq||.$locale->text('Description').qq||.$locale->text('Code').qq||.$locale->text('Description').qq|
- + |; for (@column_index) { print "$column_header{$_}\n" } @@ -1091,7 +1080,7 @@ sub list_sic { if ($ref->{sictype} eq 'H') { print qq| - + |; $column_data{code} = qq||; $column_data{description} = qq||; @@ -1175,7 +1164,7 @@ sub sic_header { - + @@ -1183,7 +1172,7 @@ sub sic_header { - + @@ -1258,8 +1247,8 @@ sub list_language { @column_index = $form->sort_columns(qw(code description)); - $column_header{code} = qq||; - $column_header{description} = qq||; + $column_header{code} = qq||; + $column_header{description} = qq||; $form->header; @@ -1274,7 +1263,7 @@ sub list_language {
{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}$ref->{description}
|.$locale->text('Code').qq||.$locale->text('Code').qq|
|.$locale->text('Heading').qq|
|.$locale->text('Description').qq||.$locale->text('Description').qq|
|.$locale->text('Code').qq||.$locale->text('Description').qq||.$locale->text('Code').qq||.$locale->text('Description').qq|
- + |; for (@column_index) { print "$column_header{$_}\n" } @@ -1361,11 +1350,11 @@ sub language_header { - + - + @@ -1502,8 +1491,8 @@ sub list_templates { @column_index = $form->sort_columns(qw(code description)); - $column_header{code} = qq||; - $column_header{description} = qq||; + $column_header{code} = qq||; + $column_header{description} = qq||; $form->header; @@ -1518,7 +1507,7 @@ sub list_templates {
|.$locale->text('Code').qq||.$locale->text('Code').qq|
|.$locale->text('Description').qq||.$locale->text('Description').qq|
|.$locale->text('Code').qq||.$locale->text('Description').qq||.$locale->text('Code').qq||.$locale->text('Description').qq|
- + |; for (@column_index) { print "$column_header{$_}\n" } @@ -1722,40 +1711,40 @@ sub defaults { - + - - + |; @@ -2081,31 +2070,31 @@ sub config {
- + - +
|.$locale->text('Business Number').qq||.$locale->text('Business Number').qq|
|.$locale->text('Weight Unit').qq||.$locale->text('Weight Unit').qq|
|.$locale->text('Last Numbers & Default Accounts').qq||.$locale->text('Last Numbers & Default Accounts').qq|
- + - + - + - + - +
|.$locale->text('Inventory').qq||.$locale->text('Inventory').qq|
|.$locale->text('Income').qq||.$locale->text('Income').qq|
|.$locale->text('Expense').qq||.$locale->text('Expense').qq|
|.$locale->text('Foreign Exchange Gain').qq||.$locale->text('Foreign Exchange Gain').qq|
|.$locale->text('Foreign Exchange Loss').qq||.$locale->text('Foreign Exchange Loss').qq|
@@ -1773,51 +1762,51 @@ sub defaults { 		- + - + - + - + - + - + - + - + - + - + - + - +
|.$locale->text('GL Reference Number').qq||.$locale->text('GL Reference Number').qq|
|.$locale->text('Sales Invoice/AR Transaction Number').qq||.$locale->text('Sales Invoice/AR Transaction Number').qq|
|.$locale->text('Sales Order Number').qq||.$locale->text('Sales Order Number').qq|
|.$locale->text('Vendor Invoice/AP Transaction Number').qq||.$locale->text('Vendor Invoice/AP Transaction Number').qq|
|.$locale->text('Purchase Order Number').qq||.$locale->text('Purchase Order Number').qq|
|.$locale->text('Sales Quotation Number').qq||.$locale->text('Sales Quotation Number').qq|
|.$locale->text('RFQ Number').qq||.$locale->text('RFQ Number').qq|
|.$locale->text('Part Number').qq||.$locale->text('Part Number').qq|
|.$locale->text('Job/Project Number').qq||.$locale->text('Job/Project Number').qq|
|.$locale->text('Employee Number').qq||.$locale->text('Employee Number').qq|
|.$locale->text('Customer Number').qq||.$locale->text('Customer Number').qq|
|.$locale->text('Vendor Number').qq||.$locale->text('Vendor Number').qq|
@@ -1906,7 +1895,7 @@ sub display_taxes { print qq|
|; + |; if ($form->{"taxdescription_$i"} eq $sametax) { print ""; @@ -2053,7 +2042,7 @@ sub config { $printer = qq|
|.$locale->text('Printer').qq||.$locale->text('Printer').qq|
- + - + - + - + - + - + - +
|.$locale->text('Name').qq||.$locale->text('Name').qq|
|.$locale->text('E-mail').qq||.$locale->text('E-mail').qq|
|.$locale->text('Signature').qq||.$locale->text('Signature').qq|
|.$locale->text('Phone').qq||.$locale->text('Phone').qq|
|.$locale->text('Fax').qq||.$locale->text('Fax').qq|
|.$locale->text('Company').qq||.$locale->text('Company').qq|
|.$locale->text('Address').qq||.$locale->text('Address').qq|
@@ -2113,39 +2102,39 @@ sub config { 		- + - + - + - + - + - + - + - + - + $printer @@ -2275,19 +2264,19 @@ sub audit_control { |; + $column_header{description} = qq||; $form->header; @@ -2400,7 +2389,7 @@ sub list_warehouse {
|.$locale->text('Password').qq||.$locale->text('Password').qq|
|.$locale->text('Confirm').qq||.$locale->text('Confirm').qq|
|.$locale->text('Date Format').qq||.$locale->text('Date Format').qq|
|.$locale->text('Number Format').qq||.$locale->text('Number Format').qq|
|.$locale->text('Dropdown Limit').qq||.$locale->text('Dropdown Limit').qq|
|.$locale->text('Menu Width').qq||.$locale->text('Menu Width').qq|
|.$locale->text('Language').qq||.$locale->text('Language').qq|
|.$locale->text('Session Timeout').qq||.$locale->text('Session Timeout').qq|
|.$locale->text('Stylesheet').qq||.$locale->text('Stylesheet').qq|
- + - + - + - +
|.$locale->text('Enforce transaction reversal for all dates').qq||.$locale->text('Enforce transaction reversal for all dates').qq| |.$locale->text('Yes').qq| |.$locale->text('No').qq|
|.$locale->text('Close Books up to').qq||.$locale->text('Close Books up to').qq| {closedto}>
|.$locale->text('Activate Audit trail').qq||.$locale->text('Activate Audit trail').qq| |.$locale->text('Yes').qq| |.$locale->text('No').qq|
|.$locale->text('Remove Audit trail up to').qq||.$locale->text('Remove Audit trail up to').qq|
@@ -2385,7 +2374,7 @@ sub list_warehouse { @column_index = qw(description); - $column_header{description} = qq|		|.$locale->text('Description').qq||.$locale->text('Description').qq|
- + |; for (@column_index) { print "$column_header{$_}\n" } @@ -2494,7 +2483,7 @@ sub warehouse_header { - + @@ -2549,23 +2538,23 @@ sub yearend { "; - $column_header{ndx} = ""; - $column_header{id} = ""; - $column_header{description} = ""; - $column_header{nextdate} = ""; - $column_header{enddate} = ""; - $column_header{amount} = ""; - $column_header{curr} = ""; - $column_header{repeat} = ""; - $column_header{howmany} = ""; - $column_header{recurringemail} = ""; - $column_header{recurringprint} = ""; + $column_header{reference} = qq||; + $column_header{ndx} = q||; + $column_header{id} = q||; + $column_header{description} = q||; + $column_header{nextdate} = qq||; + $column_header{enddate} = qq||; + $column_header{amount} = q||; + $column_header{curr} = q||; + $column_header{repeat} = q||; + $column_header{howmany} = q||; + $column_header{recurringemail} = q||; + $column_header{recurringprint} = q||; print qq| @@ -2750,7 +2739,7 @@ print qq|
|.$locale->text('Description').qq||.$locale->text('Description').qq| $description
- + - + - + - + - +
|.$locale->text('Yearend').qq||.$locale->text('Yearend').qq|
|.$locale->text('Reference').qq||.$locale->text('Reference').qq|
|.$locale->text('Description').qq||.$locale->text('Description').qq|
|.$locale->text('Retained Earnings').qq||.$locale->text('Retained Earnings').qq|
|.$locale->text('Method').qq||.$locale->text('Method').qq|  |.$locale->text('Accrual').qq|  |.$locale->text('Cash').qq|
@@ -2657,8 +2646,8 @@ sub company_logo {
- -

|.$locale->text('Version').qq| $form->{version}

+LedgerSMB Logo +

|.$locale->text('Version').qq| $form->{version}

|.$locale->text('Licensed to').qq| @@ -2671,15 +2660,15 @@ $myconfig{company}

- + - + - +
|.$locale->text('User').qq||.$locale->text('User').qq| $myconfig{name}
|.$locale->text('Dataset').qq||.$locale->text('Dataset').qq| $myconfig{dbname}
|.$locale->text('Database Host').qq||.$locale->text('Database Host').qq| $myconfig{dbhost}
@@ -2724,18 +2713,18 @@ sub recurring_transactions { push @column_index, qw(nextdate enddate id amount curr repeat howmany recurringemail recurringprint); - $column_header{reference} = "

".$locale->text('Reference').qq" ".$locale->text('ID')."".$locale->text('Description')."".$locale->text('Next')."".$locale->text('Ends')."".$locale->text('Amount')." ".$locale->text('Every')."".$locale->text('Times')."".$locale->text('E-mail')."".$locale->text('Print')."|.$locale->text('Reference').q| |.$locale->text('ID').q||.$locale->text('Description').q||.$locale->text('Next').q||.$locale->text('Ends').q||.$locale->text('Amount').q| |.$locale->text('Every').q||.$locale->text('Times').q||.$locale->text('E-mail').q||.$locale->text('Print').q|
- + |; for (@column_index) { print "\n$column_header{$_}" } @@ -2774,7 +2763,7 @@ print qq| foreach $transaction (sort keys %{ $form->{transactions} }) { print qq| - + |; @@ -2817,11 +2806,11 @@ print qq| $type = ($ref->{vc} eq 'customer') ? "sales_order" : "purchase_order"; } - $column_data{id} = qq||; + $column_data{id} = qq||; - $column_data{repeat} = ""; - $column_data{howmany} = ""; - $column_data{amount} = ""; + $column_data{repeat} = qq||; + $column_data{howmany} = qq|"; + $column_data{amount} = qq|"; $column_data{recurringemail} = "
$tr{$transaction}$tr{$transaction}
{id}&vc=$ref->{vc}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$type&readonly=1>$ref->{id}$ref->{id}$repeat".$form->format_amount(\%myconfig, $ref->{howmany})."".$form->format_amount(\%myconfig, $ref->{amount}, 2)."$repeat|.$form->format_amount(\%myconfig, $ref->{howmany})."|.$form->format_amount(\%myconfig, $ref->{amount}, 2).""; @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 +# +# +# Author: DWS Systems Inc. # Web: http://sourceforge.net/projects/ledger-smb/ # # Contributors: Reed White 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| - -|; - - print qq| - - - -
-
-
- -
- - - - - - + $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| + |; + + $form->header(1, $headeradd) + + print qq| + + +

+
+ + + + + +
- -|; +|; } sub selectdataset { - my ($login) = @_; - - if (-f "css/ledger-smb.css") { - $form->{stylesheet} = "ledger-smb.css"; - } - - $form->header(1); - - print qq| - - -
-
-
- -
- - - + + +
- -|; - +|; } 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 = ; - 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 = ; + 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 "

{login}&sessionid=$form->{sessionid}&path=$form->{path}&action=display&main=company_logo&js=$form->{js}>".$locale->text('Continue').""; - - 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||; + 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 "

{login}&sessionid=$form->{sessionid}&path=$form->{path}&action=display&main=company_logo&js=$form->{js}>\">".$locale->text('Continue').""; + print qq||; + 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 +# Tony Fraser +# +# +# 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 +# +# +# Author: DWS Systems Inc. # Web: http://sourceforge.net/projects/ledger-smb/ # # Contributors: Steve Doerr 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 +# Benjamin Lee +# +# +# Author: DWS Systems Inc. # Web: http://sourceforge.net/projects/ledger-smb/ # # Contributors: Antonio Gallardo 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| + |; + $form->header(undef, $headeradd); + print qq|

- +LedgerSMB Logo

|.$locale->text('Version').qq| $form->{version}

|.$locale->text('Administration').qq|

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| |; + $form->header(1, $headeradd) + print qq| @@ -97,7 +98,7 @@ sub login_screen {