projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tower UI, coverage map, etc.
[freeside.git]
/
FS
/
FS
/
tower.pm
diff --git
a/FS/FS/tower.pm
b/FS/FS/tower.pm
index
5497c72
..
a05160c
100644
(file)
--- a/
FS/FS/tower.pm
+++ b/
FS/FS/tower.pm
@@
-1,10
+1,10
@@
package FS::tower;
package FS::tower;
+use base qw( FS::o2m_Common FS::Record );
use strict;
use strict;
-use
base qw( FS::o2m_Common FS::Record
);
+use
List::Util qw( max
);
use FS::Record qw( qsearch qsearchs );
use FS::tower_sector;
use FS::Record qw( qsearch qsearchs );
use FS::tower_sector;
-use List::Util qw( max );
=head1 NAME
=head1 NAME
@@
-143,7
+143,7
@@
default sector.
sub process_o2m {
my $self = shift;
my %opt = @_;
sub process_o2m {
my $self = shift;
my %opt = @_;
- my $params =
$opt{params
};
+ my $params =
+{ %{$opt{params}}
};
# Adjust to make sure our default sector is in the list.
my $default_sector = $self->default_sector
# Adjust to make sure our default sector is in the list.
my $default_sector = $self->default_sector