[freeside-commits] freeside/FS/FS Record.pm,1.211,1.212

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv14079

Modified Files:
	Record.pm 
Log Message:
avoid unexpected side effects when using 'op' => '>' in qsearch

Index: Record.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Record.pm,v
retrieving revision 1.211
retrieving revision 1.212
diff -u -w -d -r1.211 -r1.212
--- Record.pm	25 Aug 2010 09:25:56 -0000	1.211
+++ Record.pm	22 Sep 2010 06:36:20 -0000	1.212
@@ -350,7 +350,8 @@
   my @bind_type = ();
   my $dbh = dbh;
   foreach my $stable ( @stable ) {
-    my $record      = shift @record;
+    #stop altering the caller's hashref
+    my $record      = { %{ shift(@record) || {} } };#and be liberal in receipt
     my $select      = shift @select;
     my $extra_sql   = shift @extra_sql;
     my $extra_param = shift @extra_param;