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

@@ -6,9 +6,4 @@ BEGIN
 }
 
 require "lsmb-request.pl";
-#!/usr/bin/perl
 
-require "lsmb-request.pl";
-#!/usr/bin/perl
-
-require "lsmb-request.pl";

admin.pl

@@ -1,3 +1,8 @@
 #!/usr/bin/perl
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 
 require 'lsmb-request.pl';

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' =>

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' =>

customer.pl

@@ -1,3 +1,8 @@
 #!/usr/bin/perl
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 
 require 'lsmb-request.pl';

drafts.pl

@@ -1,3 +1,8 @@
 #!/usr/bin/perl
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 
 require 'lsmb-request.pl';

file.pl

@@ -1,3 +1,8 @@
 #!/usr/bin/perl
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 
 require 'lsmb-request.pl';

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";

login.pl

@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require 'lsmb-request.pl';

recon.pl

@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require 'lsmb-request.pl';

setup.pl

@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require 'lsmb-request.pl';

upgrade.pl

@@ -1,3 +0,0 @@
-#!/usr/bin/perl
-
-`perl -ibak -pe 's|<\%(\.)\%>|<?lsmb $1 ?>|g' templates/*`

vouchers.pl

@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require 'lsmb-request.pl';