X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fsvc_alarm.pm;h=1c1754d811a76a2f088360ff7c0e008978d4d53c;hb=ad3bcb39580173f0ac1b6357cb49515d48af7ddf;hp=4a355c7c168e0bc3bef9134bf194098b7206dd90;hpb=8c39c41a00e15164ea306bfd73b2ae187dade9a5;p=freeside.git

diff --git a/FS/FS/svc_alarm.pm b/FS/FS/svc_alarm.pm
index 4a355c7c1..1c1754d81 100644
--- a/FS/FS/svc_alarm.pm
+++ b/FS/FS/svc_alarm.pm
@@ -1,9 +1,8 @@
 package FS::svc_alarm;
+use base qw( FS::svc_Common );
 
 use strict;
-use base qw( FS::svc_Common );
 use Tie::IxHash;
-use FS::Record qw( qsearchs ); # qw( qsearch qsearchs );
 use FS::alarm_system;
 use FS::alarm_type;
 use FS::alarm_station;
@@ -75,6 +74,9 @@ sub table_info {
     'acctnum'         => { label => 'Account #', %opts },
     '_password'       => { label => 'Password' , %opts },
     'location'        => { label => 'Location',  %opts },
+    'cs_receiver'     => { label => 'CS Receiver #'},
+    'cs_phonenum'     => { label => 'CS Phone #' },
+    'serialnum'       => { label => 'Alarm Serial #' },
     'alarmsystemnum'  => { label => 'Alarm System Vendor',
                            type  => 'select-alarm_system',
                            disable_inventory => 1,
@@ -195,11 +197,16 @@ sub check {
   my $x = $self->setfixed;
   return $x unless ref $x;
 
-  my $error = 
+  my $iso3166 = $self->cust_main->ship_location->country();
+
+  my $error =
     $self->ut_numbern('svcnum')
     || $self->ut_text('acctnum')
     || $self->ut_alphan('_password')
     || $self->ut_textn('location')
+    || $self->ut_numbern('cs_receiver')
+    || $self->ut_phonen('cs_phonenum', $iso3166)
+    || $self->ut_alphan('serialnum')
     || $self->ut_foreign_key('alarmsystemnum',  'alarm_system',  'systemnum')
     || $self->ut_foreign_key('alarmtypenum',    'alarm_type',    'typenum')
     || $self->ut_foreign_key('alarmstationnum', 'alarm_station', 'stationnum')
@@ -209,16 +216,6 @@ sub check {
   $self->SUPER::check;
 }
 
-sub alarm_system  {
-  qsearchs('alarm_system',  { alarmsystemnum  => shift->alarmsystemnum  } );
-}
-sub alarm_type    {
-  qsearchs('alarm_type',    { alarmtypenum    => shift->alarmtypenum    } );
-}
-sub alarm_station {
-  qsearchs('alarm_station', { alarmstationnum => shift->alarmstationnum } );
-}
-
 =back
 
 =head1 SEE ALSO