4 use base qw( FS::svc_Common );
5 use FS::Record qw( qsearch qsearchs );
9 FS::svc_dish - Object methods for svc_dish records
15 $record = new FS::svc_dish \%hash;
16 $record = new FS::svc_dish { 'column' => 'value' };
18 $error = $record->insert;
20 $error = $new_record->replace($old_record);
22 $error = $record->delete;
24 $error = $record->check;
28 An FS::svc_dish object represents a Dish Network service. FS::svc_dish
29 inherits from FS::svc_Common.
31 The following fields are currently supported:
35 =item svcnum - Primary key
37 =item acctnum - DISH account number
39 =item note - Installation notes: location on property, physical access, etc.
49 Creates a new svc_dish object.
53 sub table { 'svc_dish'; }
56 my %opts = ( 'type' => 'text',
57 'disable_select' => 1,
58 'disable_inventory' => 1,
61 'name' => 'Dish service',
62 'display_weight' => 58,
63 'cancel_weight' => 85,
65 'svcnum' => { label => 'Service' },
66 'acctnum' => { label => 'DISH account#', %opts },
67 'note' => { label => 'Installation notes', %opts },
78 my($class, $string) = @_;
79 $class->search_sql_field('acctnum', $string);
84 Adds this record to the database. If there is an error, returns the error,
85 otherwise returns false.
89 Delete this record from the database.
91 =item replace OLD_RECORD
93 Replaces the OLD_RECORD with this one in the database. If there is an error,
94 returns the error, otherwise returns false.
96 # the replace method can be inherited from FS::Record
100 Checks all fields to make sure this is a valid service. If there is
101 an error, returns the error, otherwise returns false. Called by the insert
109 my $x = $self->setfixed;
110 return $x unless ref $x;
113 $self->ut_numbern('svcnum')
114 || $self->ut_text('acctnum')
115 || $self->ut_textn('note')
117 return $error if $error;
126 L<FS::Record>, L<FS::svc_Common>, schema.html from the base documentation.