projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
inappropriate cluckage
[freeside.git]
/
FS
/
FS
/
part_svc.pm
diff --git
a/FS/FS/part_svc.pm
b/FS/FS/part_svc.pm
index
2587347
..
fc5258f
100644
(file)
--- a/
FS/FS/part_svc.pm
+++ b/
FS/FS/part_svc.pm
@@
-544,6
+544,12
@@
sub process {
$param->{ $svcdb.'__'.$_ } =
delete( $param->{ $svcdb.'__'.$_.'_classnum' } );
}
$param->{ $svcdb.'__'.$_ } =
delete( $param->{ $svcdb.'__'.$_.'_classnum' } );
}
+ if ( $param->{ $svcdb.'__'.$_.'_flag' } =~ /^S$/ ) {
+ $param->{ $svcdb.'__'.$_} =
+ ref($param->{ $svcdb.'__'.$_})
+ ? join(',', @{$param->{ $svcdb.'__'.$_ }} )
+ : $param->{ $svcdb.'__'.$_ };
+ }
( $svcdb.'__'.$_, $svcdb.'__'.$_.'_flag' );
}
@fields;
( $svcdb.'__'.$_, $svcdb.'__'.$_.'_flag' );
}
@fields;