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

[..hidden..]

Revision: 4141
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4141&view=rev
Author:   tshvr
Date:     2011-12-04 20:27:37 +0000 (Sun, 04 Dec 2011)
Log Message:
-----------
only logging changes

Modified Paths:
--------------
    branches/1.3/LedgerSMB/Form.pm
    branches/1.3/LedgerSMB.pm

Modified: branches/1.3/LedgerSMB/Form.pm
===================================================================
--- branches/1.3/LedgerSMB/Form.pm	2011-12-04 12:57:13 UTC (rev 4140)
+++ branches/1.3/LedgerSMB/Form.pm	2011-12-04 20:27:37 UTC (rev 4141)
@@ -199,6 +199,7 @@
     if (!$ENV{GATEWAY_INTERFACE}){
         return 1;
     }
+    $logger->trace("\$self->{session_id}=$self->{session_id}");
     my $sth = $self->{dbh}->prepare('select form_open(?)');
     $sth->execute($self->{session_id});
     my @results = $sth->fetchrow_array();
@@ -645,7 +646,7 @@
     my ( $self, $msg ) = @_;
 
     if ( $self->{callback} || !$msg ) {
-	print STDERR "Full redirect\n";
+	$logger->trace("Full redirect \$self->{callback}=$self->{callback} \$msg=$msg");
         main::redirect();
 	$self->finalize_request();
     }

Modified: branches/1.3/LedgerSMB.pm
===================================================================
--- branches/1.3/LedgerSMB.pm	2011-12-04 12:57:13 UTC (rev 4140)
+++ branches/1.3/LedgerSMB.pm	2011-12-04 20:27:37 UTC (rev 4141)
@@ -360,7 +360,7 @@
 
     $self->{stylesheet} = $self->{_user}->{stylesheet};
 
-    $logger->debug("End LedgerSMB.pm");
+    $logger->debug("End");
 
     return $self;
 
@@ -935,7 +935,7 @@
     my %args     = @_;
     my $creds = LedgerSMB::Auth::get_credentials();
 
-    $logger->debug("LedgerSMB::_db_init: start");
+    $logger->debug("start");
   
     $self->{login} = $creds->{login};
     if (!$self->{company}){ 
@@ -1017,6 +1017,7 @@
     while (my @roles = $sth->fetchrow_array){
         push @{$self->{_roles}}, $roles[0];
     }
+    $logger->debug("end");
 }
 
 #private, for db connection errors
@@ -1082,7 +1083,9 @@
 }
 
 sub merge {
+    (my $package,my $filename,my $line)=caller;
     my ( $self, $src ) = @_;
+    $logger->debug("begin caller \$filename=$filename \$line=$line");
     for my $arg ( $self, $src ) {
         shift;
     }
@@ -1105,22 +1108,23 @@
         }
         if ( defined $dst_arg && defined $src->{$arg} )
         {
-            $logger->debug("LedgerSMB.pm: merge setting $dst_arg to $src->{$arg}");
+            $logger->trace("LedgerSMB.pm: merge setting $dst_arg to $src->{$arg}");
         }
         elsif ( !defined $dst_arg && defined $src->{$arg} )
         {
-            $logger->debug("LedgerSMB.pm: merge setting \$dst_arg is undefined \$src->{\$arg} is defined $src->{$arg}");
+            $logger->trace("LedgerSMB.pm: merge setting \$dst_arg is undefined \$src->{\$arg} is defined $src->{$arg}");
         }
         elsif ( defined $dst_arg && !defined $src->{$arg} )
         {
-            $logger->debug("LedgerSMB.pm: merge setting \$dst_arg is defined $dst_arg \$src->{\$arg} is undefined");
+            $logger->trace("LedgerSMB.pm: merge setting \$dst_arg is defined $dst_arg \$src->{\$arg} is undefined");
         }
         elsif ( !defined $dst_arg && !defined $src->{$arg} )
         {
-            $logger->debug("LedgerSMB.pm: merge setting \$dst_arg is undefined \$src->{\$arg} is undefined");
+            $logger->trace("LedgerSMB.pm: merge setting \$dst_arg is undefined \$src->{\$arg} is undefined");
         }
         $self->{$dst_arg} = $src->{$arg};
     }
+    $logger->debug("end");
 }
 
 sub type {

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