minor bug fixes
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 22 Jul 2005 19:57:45 +0000 (19:57 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 22 Jul 2005 19:57:45 +0000 (19:57 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@1361 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/dbi.pm
Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm

index 4c1e768..bc14bc1 100644 (file)
@@ -2,8 +2,8 @@
        #---------------------------------------------------------------------
        package money::billable_transaction;
        
-       money::billable_transaction->table( 'money.billable_transaction' );
-       money::billable_transaction->sequence( 'money.billable_transaction_id_seq' );
+       money::billable_transaction->table( 'money.billable_xact' );
+       money::billable_transaction->sequence( 'money.billable_xact_id_seq' );
 
        #---------------------------------------------------------------------
        package money::billing;
index 2255b0d..e53b918 100644 (file)
@@ -392,11 +392,11 @@ sub hold_copy_targeter {
        $check_expire ||= '12h';
        $check_expire = interval_to_seconds( $check_expire );
 
-       my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time - $check_expire);
+       my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time() - $check_expire);
        $year += 1900;
        $mon += 1;
        my $expire_threshold = sprintf(
-               '%s-%0.2d-%0.2dT%s:%0.2d:%0.s2-00',
+               '%s-%0.2d-%0.2dT%0.2d:%0.2d:%0.2d-00',
                $year, $mon, $mday, $hour, $min, $sec
        );