SF.net SVN: ledger-smb:[3878] branches/1.3

[..hidden..]

Revision: 3878
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3878&view=rev
Author:   einhverfr
Date:     2011-10-17 23:03:56 +0000 (Mon, 17 Oct 2011)
Log Message:
-----------
Print and post buttons removed
Some additional suexec issues fixed

Modified Paths:
--------------
    branches/1.3/account.pl
    branches/1.3/admin.pl
    branches/1.3/bin/aa.pl
    branches/1.3/bin/is.pl
    branches/1.3/customer.pl
    branches/1.3/drafts.pl
    branches/1.3/file.pl
    branches/1.3/journal.pl
    branches/1.3/login.pl
    branches/1.3/recon.pl
    branches/1.3/setup.pl
    branches/1.3/upgrade.pl
    branches/1.3/vouchers.pl

Modified: branches/1.3/account.pl
===================================================================
--- branches/1.3/account.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/account.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -6,9 +6,4 @@
 }
 
 require "lsmb-request.pl";
-#!/usr/bin/perl
 
-require "lsmb-request.pl";
-#!/usr/bin/perl
-
-require "lsmb-request.pl";

Modified: branches/1.3/admin.pl
===================================================================
--- branches/1.3/admin.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/admin.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 
+
 require 'lsmb-request.pl';

Modified: branches/1.3/bin/aa.pl
===================================================================
--- branches/1.3/bin/aa.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/bin/aa.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -947,11 +947,9 @@
     # 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 @@
             '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' =>

Modified: branches/1.3/bin/is.pl
===================================================================
--- branches/1.3/bin/is.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/bin/is.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -895,11 +895,9 @@
     # 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 @@
               { 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' =>

Modified: branches/1.3/customer.pl
===================================================================
--- branches/1.3/customer.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/customer.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 
+
 require 'lsmb-request.pl';

Modified: branches/1.3/drafts.pl
===================================================================
--- branches/1.3/drafts.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/drafts.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 
+
 require 'lsmb-request.pl';

Modified: branches/1.3/file.pl
===================================================================
--- branches/1.3/file.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/file.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 
+
 require 'lsmb-request.pl';

Modified: branches/1.3/journal.pl
===================================================================
--- branches/1.3/journal.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/journal.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -6,9 +6,3 @@
 }
 
 require "lsmb-request.pl";
-#!/usr/bin/perl
-
-require "lsmb-request.pl";
-#!/usr/bin/perl
-
-require "lsmb-request.pl";

Modified: branches/1.3/login.pl
===================================================================
--- branches/1.3/login.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/login.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require 'lsmb-request.pl';

Modified: branches/1.3/recon.pl
===================================================================
--- branches/1.3/recon.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/recon.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require 'lsmb-request.pl';

Modified: branches/1.3/setup.pl
===================================================================
--- branches/1.3/setup.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/setup.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require 'lsmb-request.pl';

Modified: branches/1.3/upgrade.pl
===================================================================
--- branches/1.3/upgrade.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/upgrade.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -1,3 +0,0 @@
-#!/usr/bin/perl
-
-`perl -ibak -pe 's|<\%(\.)\%>|<?lsmb $1 ?>|g' templates/*`

Modified: branches/1.3/vouchers.pl
===================================================================
--- branches/1.3/vouchers.pl	2011-10-17 22:31:13 UTC (rev 3877)
+++ branches/1.3/vouchers.pl	2011-10-17 23:03:56 UTC (rev 3878)
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require 'lsmb-request.pl';

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.