projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
status labels
[freeside.git]
/
FS
/
FS
/
part_svc.pm
diff --git
a/FS/FS/part_svc.pm
b/FS/FS/part_svc.pm
index
01f3034
..
9ed56eb
100644
(file)
--- a/
FS/FS/part_svc.pm
+++ b/
FS/FS/part_svc.pm
@@
-722,13
+722,10
@@
Job-queue processor for web interface adds/edits
=cut
=cut
-use Storable qw(thaw);
use Data::Dumper;
use Data::Dumper;
-use MIME::Base64;
sub process {
my $job = shift;
sub process {
my $job = shift;
-
- my $param = thaw(decode_base64(shift));
+ my $param = shift;
warn Dumper($param) if $DEBUG;
my $old = qsearchs('part_svc', { 'svcpart' => $param->{'svcpart'} })
warn Dumper($param) if $DEBUG;
my $old = qsearchs('part_svc', { 'svcpart' => $param->{'svcpart'} })
@@
-802,13
+799,10
@@
Job-queue processor for web interface bulk customer service changes
=cut
=cut
-use Storable qw(thaw);
use Data::Dumper;
use Data::Dumper;
-use MIME::Base64;
sub process_bulk_cust_svc {
my $job = shift;
sub process_bulk_cust_svc {
my $job = shift;
-
- my $param = thaw(decode_base64(shift));
+ my $param = shift;
warn Dumper($param) if $DEBUG;
local($FS::svc_Common::noexport_hack) = 1
warn Dumper($param) if $DEBUG;
local($FS::svc_Common::noexport_hack) = 1