X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fvend_bill_pay.pm;h=9277ad90d1063265a350604806cc7201554c0798;hp=c10c9eb21dac9545c5a3a6774620168c7167d4dd;hb=a36e0f8a0f69349dafaa16d1d2d57dfb6e5dbc85;hpb=f264598260908d2442fe1aed2ce3784ce51254e6

diff --git a/FS/FS/vend_bill_pay.pm b/FS/FS/vend_bill_pay.pm
index c10c9eb21..9277ad90d 100644
--- a/FS/FS/vend_bill_pay.pm
+++ b/FS/FS/vend_bill_pay.pm
@@ -1,10 +1,8 @@
 package FS::vend_bill_pay;
+use base qw( FS::Record );
 
 use strict;
-use base qw( FS::Record );
-use FS::Record qw( dbh qsearch ); #qsearchs );
-use FS::vend_bill;
-use FS::vend_pay;
+use FS::Record qw( dbh ); #qsearch #qsearchs );
 
 =head1 NAME
 
@@ -85,6 +83,12 @@ sub delete {
   local $FS::UID::AutoCommit = 0;
   my $dbh = dbh;
 
+  my $error = $self->SUPER::delete;
+  if ( $error ) {
+    $dbh->rollback if $oldAutoCommit;
+    return $error;
+  }
+
   #magically auto-deleting for the simple case
   foreach my $vend_pay ( $self->vend_pay ) {
     my $error = $vend_pay->delete;
@@ -94,12 +98,6 @@ sub delete {
     }
   }
 
-  my $error = $self->SUPER::delete;
-  if ( $error ) {
-    $dbh->rollback if $oldAutoCommit;
-    return $error;
-  }
-
   $dbh->commit or die $dbh->errstr if $oldAutoCommit;
   '';
 
@@ -135,13 +133,6 @@ sub check {
 
 =item vend_pay
 
-=cut
-
-sub vend_pay {
-  my $self = shift;
-  qsearch('vend_pay', { 'vendpaynum', $self->vendpaynum });
-}
-
 =back
 
 =head1 BUGS