From 3a876943c77c0e9b28f06ff6293d63ca9c959221 Mon Sep 17 00:00:00 2001 From: Chris Travers Date: Mon, 17 Oct 2011 23:03:56 +0000 Subject: [PATCH] Print and post buttons removed Some additional suexec issues fixed git-svn-id: svn://svn.code.sf.net/p/ledger-smb/code/branches/1.3@3878 4979c152-3d1c-0410-bac9-87ea11338e46 --- account.pl | 5 ----- admin.pl | 5 +++++ bin/aa.pl | 7 ------- bin/is.pl | 14 -------------- customer.pl | 5 +++++ drafts.pl | 5 +++++ file.pl | 5 +++++ journal.pl | 6 ------ login.pl | 5 +++++ recon.pl | 5 +++++ setup.pl | 5 +++++ upgrade.pl | 3 --- vouchers.pl | 5 +++++ 13 files changed, 40 insertions(+), 35 deletions(-) diff --git a/account.pl b/account.pl index 1a2db4673b..1212fecd80 100755 --- a/account.pl +++ b/account.pl @@ -6,9 +6,4 @@ BEGIN } require "lsmb-request.pl"; -#!/usr/bin/perl -require "lsmb-request.pl"; -#!/usr/bin/perl - -require "lsmb-request.pl"; diff --git a/admin.pl b/admin.pl index 5a3963354b..48d6969798 100755 --- a/admin.pl +++ b/admin.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require 'lsmb-request.pl'; diff --git a/bin/aa.pl b/bin/aa.pl index fef4d5f59d..e90603bc83 100644 --- a/bin/aa.pl +++ b/bin/aa.pl @@ -947,11 +947,9 @@ sub form_footer { # type=submit $locale->text('Update') # type=submit $locale->text('Print') # type=submit $locale->text('Post') - # type=submit $locale->text('Print and Post') # type=submit $locale->text('Schedule') # type=submit $locale->text('Ship to') # type=submit $locale->text('Post as new') - # type=submit $locale->text('Print and Post as new') # type=submit $locale->text('Delete') if ( !$form->{readonly} ) { @@ -970,11 +968,6 @@ sub form_footer { 'print' => { ndx => 2, key => 'P', value => $locale->text('Print') }, 'post' => { ndx => 3, key => 'O', value => $locale->text('Post') }, - 'print_and_post' => { - ndx => 4, - key => 'R', - value => $locale->text('Print and Post') - }, 'schedule' => { ndx => 7, key => 'H', value => $locale->text('Schedule') }, 'delete' => diff --git a/bin/is.pl b/bin/is.pl index 074af2c7e8..c7dcf7a2fc 100644 --- a/bin/is.pl +++ b/bin/is.pl @@ -895,11 +895,9 @@ sub form_footer { # type=submit $locale->text('Update') # type=submit $locale->text('Print') # type=submit $locale->text('Post') - # type=submit $locale->text('Print and Post') # type=submit $locale->text('Schedule') # type=submit $locale->text('Ship to') # type=submit $locale->text('Post as new') - # type=submit $locale->text('Print and Post as new') # type=submit $locale->text('E-mail') # type=submit $locale->text('Delete') # type=submit $locale->text('Sales Order') @@ -922,18 +920,6 @@ sub form_footer { { ndx => 4, key => 'T', value => $locale->text('Ship to') }, 'e_mail' => { ndx => 5, key => 'E', value => $locale->text('E-mail') }, - 'print_and_post' => { - ndx => 6, - key => 'R', - value => $locale->text('Print and Post') - }, - 'post_as_new' => - { ndx => 7, key => 'N', value => $locale->text('Post as new') }, - 'print_and_post_as_new' => { - ndx => 8, - key => 'W', - value => $locale->text('Print and Post as new') - }, 'sales_order' => { ndx => 9, key => 'L', value => $locale->text('Sales Order') }, 'schedule' => diff --git a/customer.pl b/customer.pl index 5a3963354b..48d6969798 100755 --- a/customer.pl +++ b/customer.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require 'lsmb-request.pl'; diff --git a/drafts.pl b/drafts.pl index 5a3963354b..48d6969798 100755 --- a/drafts.pl +++ b/drafts.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require 'lsmb-request.pl'; diff --git a/file.pl b/file.pl index 5a3963354b..48d6969798 100755 --- a/file.pl +++ b/file.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require 'lsmb-request.pl'; diff --git a/journal.pl b/journal.pl index 1a2db4673b..0ec504beda 100755 --- a/journal.pl +++ b/journal.pl @@ -6,9 +6,3 @@ BEGIN } require "lsmb-request.pl"; -#!/usr/bin/perl - -require "lsmb-request.pl"; -#!/usr/bin/perl - -require "lsmb-request.pl"; diff --git a/login.pl b/login.pl index 5a3963354b..23e6fc3824 100755 --- a/login.pl +++ b/login.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require 'lsmb-request.pl'; diff --git a/recon.pl b/recon.pl index 5a3963354b..23e6fc3824 100755 --- a/recon.pl +++ b/recon.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require 'lsmb-request.pl'; diff --git a/setup.pl b/setup.pl index 5a3963354b..23e6fc3824 100755 --- a/setup.pl +++ b/setup.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require 'lsmb-request.pl'; diff --git a/upgrade.pl b/upgrade.pl index 88ee3674f0..e69de29bb2 100644 --- a/upgrade.pl +++ b/upgrade.pl @@ -1,3 +0,0 @@ -#!/usr/bin/perl - -`perl -ibak -pe 's|<\%(\.)\%>||g' templates/*` diff --git a/vouchers.pl b/vouchers.pl index 5a3963354b..23e6fc3824 100755 --- a/vouchers.pl +++ b/vouchers.pl @@ -1,3 +1,8 @@ #!/usr/bin/perl +use FindBin; +BEGIN { + lib->import($FindBin::Bin) unless $ENV{mod_perl} +} + require 'lsmb-request.pl';