[freeside-commits] freeside/FS/FS Misc.pm,1.20,1.21

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv30996

Modified Files:
	Misc.pm 
Log Message:
fix weird compliation problem for quis, i hope

Index: Misc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Misc.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- Misc.pm	1 Mar 2007 05:13:12 -0000	1.20
+++ Misc.pm	1 Mar 2007 17:44:14 -0000	1.21
@@ -4,17 +4,15 @@
 use vars qw ( @ISA @EXPORT_OK $DEBUG );
 use Exporter;
 use Carp;
-use FS::Record qw(dbh qsearch);
-use FS::cust_credit_refund;
-#use FS::cust_credit_bill;
-#use FS::cust_bill_pay;
-#use FS::cust_pay_refund;
 use Data::Dumper;
+#do NOT depend on any FS:: modules here, causes weird (sometimes unreproducable
+#until on client machine) dependancy loops.  put them in FS::Misc::Something
+#instead
 
 @ISA = qw( Exporter );
 @EXPORT_OK = qw( send_email send_fax
                  states_hash counties state_label
-                 card_types prune_applications
+                 card_types
                );
 
 $DEBUG = 0;
@@ -473,100 +471,6 @@
   \%card_types;
 }
 
-=item prune_applications OPTION_HASH
-
-Removes applications of credits to refunds in the event that the database
-is corrupt and either the credits or refunds are missing (see
-L<FS::cust_credit>, L<FS::cust_refund>, and L<FS::cust_credit_refund>).
-If the OPTION_HASH contains the element 'dry_run' then a report of
-affected records is returned rather than actually deleting the records.
-
-=cut
-
-sub prune_applications {
-  my $options = shift;
-  my $dbh = dbh
-
-  local $DEBUG = 1 if exists($options->{debug});
-  my $ccr = <<EOW;
-    WHERE
-         0 = (select count(*) from cust_credit
-               where cust_credit_refund.crednum = cust_credit.crednum)
-      or 
-         0 = (select count(*) from cust_refund
-               where cust_credit_refund.refundnum = cust_refund.refundnum)
-EOW
-  my $ccb = <<EOW;
-    WHERE
-         0 = (select count(*) from cust_credit
-               where cust_credit_bill.crednum = cust_credit.crednum)
-      or 
-         0 = (select count(*) from cust_bill
-               where cust_credit_bill.invnum = cust_bill.invnum)
-EOW
-  my $cbp = <<EOW;
-    WHERE
-         0 = (select count(*) from cust_bill
-               where cust_bill_pay.invnum = cust_bill.invnum)
-      or 
-         0 = (select count(*) from cust_pay
-               where cust_bill_pay.paynum = cust_pay.paynum)
-EOW
-  my $cpr = <<EOW;
-    WHERE
-         0 = (select count(*) from cust_pay
-               where cust_pay_refund.paynum = cust_pay.paynum)
-      or 
-         0 = (select count(*) from cust_refund
-               where cust_pay_refund.refundnum = cust_refund.refundnum)
-EOW
-
-  my %strays = (
-    'cust_credit_refund' => { clause => $ccr,
-                              link1  => 'crednum',
-                              link2  => 'refundnum',
-                            },
-#    'cust_credit_bill'   => { clause => $ccb,
-#                              link1  => 'crednum',
-#                              link2  => 'refundnum',
-#                            },
-#    'cust_bill_pay'      => { clause => $cbp,
-#                              link1  => 'crednum',
-#                              link2  => 'refundnum',
-#                            },
-#    'cust_pay_refund'    => { clause => $cpr,
-#                              link1  => 'crednum',
-#                              link2  => 'refundnum',
-#                            },
-  );
-
-  if ( exists($options->{dry_run}) ) {
-    my @response = ();
-    foreach my $table (keys %strays) {
-      my $clause = $strays{$table}->{clause};
-      my $link1  = $strays{$table}->{link1};
-      my $link2  = $strays{$table}->{link2};
-      my @rec = qsearch($table, {}, '', $clause);
-      my $keyname = $rec[0]->primary_key if $rec[0];
-      foreach (@rec) {
-        push @response, "$table " .$_->$keyname . " claims attachment to ".
-               "$link1 " . $_->$link1 . " and $link2 " . $_->$link2 . "\n";
-      }
-    }
-    return (@response);
-  } else {
-    foreach (keys %strays) {
-      my $statement = "DELETE FROM $_ " . $strays{$_}->{clause};
-      warn $statement if $DEBUG;
-      my $sth = $dbh->prepare($statement)
-        or die $dbh->errstr;
-      $sth->execute
-        or die $sth->errstr;
-    }
-    return ();
-  }
-}
-
 =back
 
 =head1 BUGS