SF.net SVN: ledger-smb:[6599] trunk

[..hidden..]

Revision: 6599
          http://sourceforge.net/p/ledger-smb/code/6599
Author:   einhverfr
Date:     2014-01-23 03:33:52 +0000 (Thu, 23 Jan 2014)
Log Message:
-----------
Fixing errors shown at the bottom of pages.

Modified Paths:
--------------
    trunk/LedgerSMB/File.pm
    trunk/LedgerSMB.pm
    trunk/bin/arap.pl
    trunk/bin/io.pl
    trunk/bin/is.pl
    trunk/bin/oe.pl
    trunk/old-handler.pl

Modified: trunk/LedgerSMB/File.pm
===================================================================
--- trunk/LedgerSMB/File.pm	2014-01-22 14:34:18 UTC (rev 6598)
+++ trunk/LedgerSMB/File.pm	2014-01-23 03:33:52 UTC (rev 6599)
@@ -263,7 +263,7 @@
 }
 
 
-sub DESTROY {
+sub DEMOLISH {
    my ($self) = $_;
    opendir(TMP, $self->{file_path}) || return 1;
    for my $file (readdir(TMP)){

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2014-01-22 14:34:18 UTC (rev 6598)
+++ trunk/LedgerSMB.pm	2014-01-23 03:33:52 UTC (rev 6599)
@@ -624,6 +624,8 @@
 
 sub finalize_request {
     LedgerSMB::App_State->cleanup();
+    die; # return to error handling and cleanup
+         # Without dying, we tend to continue with a bad dbh. --CT
 }
 
 # To be replaced with a generic interface to an Error class

Modified: trunk/bin/arap.pl
===================================================================
--- trunk/bin/arap.pl	2014-01-22 14:34:18 UTC (rev 6598)
+++ trunk/bin/arap.pl	2014-01-23 03:33:52 UTC (rev 6599)
@@ -993,7 +993,7 @@
 
 
 
-sub continue        {&{ $form->{nextsub} }; }
+sub continue        { &{ $form->{nextsub} }; }
 sub continuenew     {$form->{rowcount}--; &setlocation_id;  &{ $form->{nextsub} }; }
 sub updatenew       {&createlocations;}
 sub gl_transaction  { &add }

Modified: trunk/bin/io.pl
===================================================================
--- trunk/bin/io.pl	2014-01-22 14:34:18 UTC (rev 6598)
+++ trunk/bin/io.pl	2014-01-23 03:33:52 UTC (rev 6599)
@@ -46,7 +46,6 @@
 use LedgerSMB::Setting;
 use LedgerSMB::Company_Config;
 use LedgerSMB::File;
-use Carp::Always;
 
 # any custom scripts for this one
 if ( -f "bin/custom/io.pl" ) {

Modified: trunk/bin/is.pl
===================================================================
--- trunk/bin/is.pl	2014-01-22 14:34:18 UTC (rev 6598)
+++ trunk/bin/is.pl	2014-01-23 03:33:52 UTC (rev 6599)
@@ -1388,6 +1388,7 @@
             }
         }
     }
+    display_form();
 }
 
 sub post {

Modified: trunk/bin/oe.pl
===================================================================
--- trunk/bin/oe.pl	2014-01-22 14:34:18 UTC (rev 6598)
+++ trunk/bin/oe.pl	2014-01-23 03:33:52 UTC (rev 6599)
@@ -46,7 +46,6 @@
 use LedgerSMB::PE;
 use LedgerSMB::Tax;
 use LedgerSMB::Locale;
-use Carp::Always;
 
 require "bin/arap.pl";
 require "bin/io.pl";

Modified: trunk/old-handler.pl
===================================================================
--- trunk/old-handler.pl	2014-01-22 14:34:18 UTC (rev 6598)
+++ trunk/old-handler.pl	2014-01-23 03:33:52 UTC (rev 6599)
@@ -219,7 +219,7 @@
   # when output terminates.  A mere 'die' will no longer trigger an automatic
   # error, but die 'foo' will map to $form->error('foo')
   # -- CT
-  $form->_error("'$_'")  unless $_ =~ /^Died at/i; 
+  $form->_error("'$_'")  unless $_ =~ /^Died/i; 
 } 
 ;
 

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


------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today. 
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits