1 #!/usr/local/bin/perl -Tw
3 # ivan@voicenet.com 97-jul-21
9 use FS::Record qw(fields qsearchs);
11 @FS::svc_table::ISA = qw(FS::Record Exporter);
13 # Usage: $record = create FS::svc_table ( \%hash );
14 # $record = create FS::svc_table ( { field=>value, ... } );
16 my($proto,$hashref)=@_;
19 foreach $field (fields('svc_table')) {
20 $hashref->{$field}='' unless defined $hashref->{$field};
23 $proto->new('svc_table',$hashref);
27 # Usage: $error = $record -> insert;
32 local $SIG{HUP} = 'IGNORE';
33 local $SIG{INT} = 'IGNORE';
34 local $SIG{QUIT} = 'IGNORE';
35 local $SIG{TERM} = 'IGNORE';
36 local $SIG{TSTP} = 'IGNORE';
39 return $error if $error;
42 return $error if $error;
47 # Usage: $error = $record -> delete;
53 return $error if $error;
57 # Usage: $error = $newrecord -> replace($oldrecord)
62 return "(Old) Not a svc_table record!" unless $old->table eq "svc_table";
63 return "Can't change svcnum!"
64 unless $old->getfield('svcnum') eq $new->getfield('svcnum');
67 return $error if $error;
69 $error = $new->rep($old);
70 return $error if $error;
75 # Usage: $error = $record -> suspend;
80 # Usage: $error = $record -> unsuspend;
85 # Usage: $error = $record -> cancel;
90 # Usage: $error = $record -> check;
93 return "Not a svc_table record!" unless $self->table eq "svc_table";
94 my($recref) = $self->hashref;
96 $recref->{svcnum} =~ /^(\d+)$/ or return "Illegal svcnum";
97 $recref->{svcnum} = $1;
98 return "Unknown svcnum" unless
99 qsearchs('cust_svc',{'svcnum'=> $recref->{svcnum} } );
101 #DATA CHECKS GO HERE!