[freeside-commits] freeside/FS/FS svc_Common.pm,1.32,1.33

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv3156

Modified Files:
	svc_Common.pm 
Log Message:
this should fix radius group editing and the "Reference found where even-sized list expected at /usr/local/share/perl/5.8.4/FS/svc_Common.pm line 473" error

Index: svc_Common.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_Common.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- svc_Common.pm	29 Jun 2006 13:47:44 -0000	1.32
+++ svc_Common.pm	14 Jul 2006 03:27:48 -0000	1.33
@@ -470,7 +470,7 @@
   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')
@@ -490,8 +490,8 @@
     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 );
     }