projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
596ce42
)
this should fix radius group editing and the "Reference found where even-sized list...
author
ivan
<ivan>
Fri, 14 Jul 2006 03:27:48 +0000
(
03:27
+0000)
committer
ivan
<ivan>
Fri, 14 Jul 2006 03:27:48 +0000
(
03:27
+0000)
FS/FS/svc_Common.pm
patch
|
blob
|
history
diff --git
a/FS/FS/svc_Common.pm
b/FS/FS/svc_Common.pm
index
f2e1b9a
..
c1c482d
100644
(file)
--- a/
FS/FS/svc_Common.pm
+++ b/
FS/FS/svc_Common.pm
@@
-470,7
+470,7
@@
sub setx {
my $self = shift;
my $x = shift;
my @x = ref($x) ? @$x : ($x);
my $self = shift;
my $x = shift;
my @x = ref($x) ? @$x : ($x);
- my
%coderef = @_
? shift : {};
+ my
$coderef = scalar(@_)
? shift : {};
my $error =
$self->ut_numbern('svcnum')
my $error =
$self->ut_numbern('svcnum')
@@
-490,8
+490,8
@@
sub setx {
my $columnname = $part_svc_column->columnname;
my $columnvalue = $part_svc_column->columnvalue;
my $columnname = $part_svc_column->columnname;
my $columnvalue = $part_svc_column->columnvalue;
- if ( exists( $coderef
{
columnname} ) ) {
- &{ $coderef{$columnname} }( $self, $columnvalue);
+ if ( exists( $coderef
->{$
columnname} ) ) {
+ &{ $coderef
->
{$columnname} }( $self, $columnvalue);
} else {
$self->setfield( $columnname, $columnvalue );
}
} else {
$self->setfield( $columnname, $columnvalue );
}