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

[..hidden..]

Revision: 3116
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3116&view=rev
Author:   einhverfr
Date:     2011-01-19 16:09:22 +0000 (Wed, 19 Jan 2011)

Log Message:
-----------
Correcting some warnings on Perl 5.12

Modified Paths:
--------------
    trunk/LedgerSMB/AA.pm
    trunk/bin/io.pl

Modified: trunk/LedgerSMB/AA.pm
===================================================================
--- trunk/LedgerSMB/AA.pm	2011-01-19 16:08:28 UTC (rev 3115)
+++ trunk/LedgerSMB/AA.pm	2011-01-19 16:09:22 UTC (rev 3116)
@@ -361,7 +361,8 @@
 			curr = ?,
 			notes = ?,
 			department_id = ?,
-			ponumber = ?
+			ponumber = ?,
+                        reverse = ?
 		WHERE id = ?
 	|;
     
@@ -373,7 +374,8 @@
         $datepaid,              $invnetamount,
         $form->{currency},      $form->{notes},
         $form->{department_id},
-        $form->{ponumber},      $form->{id}
+        $form->{ponumber},      $form->{reverse},
+        $form->{id}
     );
 
     $dbh->prepare($query)->execute(@queryargs) || $form->dberror($query);

Modified: trunk/bin/io.pl
===================================================================
--- trunk/bin/io.pl	2011-01-19 16:08:28 UTC (rev 3115)
+++ trunk/bin/io.pl	2011-01-19 16:09:22 UTC (rev 3116)
@@ -1680,7 +1680,7 @@
             $form->update_status( \%myconfig );
         }
 
-        $old_form->{printed} = $form->{printed} if defined %$old_form;
+        $old_form->{printed} = $form->{printed} if %$old_form;
 
         %audittrail = (
             tablename => ($order) ? 'oe' : lc $ARAP,
@@ -1692,7 +1692,7 @@
 
         $old_form->{audittrail} .=
           $form->audittrail( "", \%myconfig, \%audittrail )
-          if defined %$old_form;
+          if %$old_form;
 
     } elsif ( $form->{media} eq 'email' ) {
         $form->{subject} = qq|$form->{label} $form->{"${inv}number"}|
@@ -1721,7 +1721,7 @@
         $output_options{from} = $myconfig{email};
         $output_options{notify} = 1 if $form->{read_receipt};
 
-        if ( defined %$old_form ) {
+        if ( %$old_form ) {
             $old_form->{intnotes} = qq|$old_form->{intnotes}\n\n|
               if $old_form->{intnotes};
             $old_form->{intnotes} .=
@@ -1754,7 +1754,7 @@
 
         $old_form->{audittrail} .=
           $form->audittrail( "", \%myconfig, \%audittrail )
-          if defined %$old_form;
+          if %$old_form;
     } elsif ( $form->{media} eq 'queue' ) {
         %queued = split / /, $form->{queued};
 
@@ -1814,7 +1814,7 @@
     };
 
     # if we got back here restore the previous form
-    if ( defined %$old_form ) {
+    if ( %$old_form ) {
 
         $old_form->{"${inv}number"} = $form->{"${inv}number"};
 


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