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

[..hidden..]

Revision: 6526
          http://sourceforge.net/p/ledger-smb/code/6526
Author:   einhverfr
Date:     2014-01-18 12:17:33 +0000 (Sat, 18 Jan 2014)
Log Message:
-----------
Removing LedgerSMB->debug.  This was originally added as a better version of LedgerSMB::Form->debug but it's probably better to use Data::Dumper directly.

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject/TransTemplate.pm
    trunk/LedgerSMB.pm

Modified: trunk/LedgerSMB/DBObject/TransTemplate.pm
===================================================================
--- trunk/LedgerSMB/DBObject/TransTemplate.pm	2014-01-18 11:41:15 UTC (rev 6525)
+++ trunk/LedgerSMB/DBObject/TransTemplate.pm	2014-01-18 12:17:33 UTC (rev 6526)
@@ -10,7 +10,6 @@
    my ($ref) = $self->exec_method(funcname => 'journal__add');
    $self->merge($ref);
    $self->{journal_id} = $self->{id};
-   $self->debug({file => '/tmp/temptrans'});
    for my $line (@{$self->{journal_lines}}){
        my $l = bless $line, 'LedgerSMB::DBObject';
        $l->{_locale} = $self->{_locale};

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2014-01-18 11:41:15 UTC (rev 6525)
+++ trunk/LedgerSMB.pm	2014-01-18 12:17:33 UTC (rev 6526)
@@ -37,11 +37,6 @@
 Identical with check_form() above, but also removes the form_id from the 
 session.  This should be used when back-button actions are not valid.
 
-=item debug (file => $path);
-
-This dumps the current object to the file if that is defined and otherwise to 
-standard output.
-
 =item escape (string => $string);
 
 This function returns the current string escaped using %hexhex notation.
@@ -431,28 +426,6 @@
     die;
 }
 
-sub debug {
-    my $self = shift @_;
-    my $args = shift @_;
-    my $file;
-    if (scalar keys %$args){
-        $file = $args->{'file'};
-    }
-    my $d    = Data::Dumper->new( [$self] );
-    $d->Sortkeys(1);
-
-    if ($file) {
-        open( FH, '>', "$file" ) or die $!;
-        print FH $d->Dump();
-        close(FH);
-    }
-    else {
-        print "\n";
-        print $d->Dump();
-    }
-
-}
-
 sub escape {
     my $self = shift;
     my %args = @_;

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