fix fee deletion on v3, RT#81713

diff --git a/FS/FS/cust_event_fee.pm b/FS/FS/cust_event_fee.pm
index 3e6dfc9..3d78f77 100644 (file)
--- a/FS/FS/cust_event_fee.pm
+++ b/FS/FS/cust_event_fee.pm
@@ -275,9 +275,12 @@ sub join_sql {
 =item process_delete
 
 =cut
- 
+
+use Storable qw(thaw);
+use MIME::Base64;
 sub process_delete {
-  my( $job, $param ) = @_;
+  my $job = shift;
+  my $param = thaw(decode_base64(shift));
 
   my $search_sql = FS::cust_event_fee->search_sql_where($param);
   my $where = $search_sql ? " WHERE $search_sql" : '';