1 #!/usr/local/bin/perl -Tw
3 # ivan@voicenet.com 97-jul-1
6 # ivan@sisd.com 97-nov-13
8 package FS::table_name;
12 #use FS::UID qw(getotaker);
13 use FS::Record qw(fields hfields qsearch qsearchs);
15 @FS::table_name::ISA = qw(FS::Record Exporter);
16 @FS::table_name::EXPORT_OK = qw(hfields);
18 # Usage: $record = create FS::table_name ( \%hash );
19 # $record = create FS::table_name ( { field=>value, ... } );
21 my($proto,$hashref)=@_;
24 foreach $field (fields('table_name')) {
25 $hashref->{$field}='' unless defined $hashref->{$field};
28 $proto->new('table_name',$hashref);
31 # Usage: $error = $record -> insert;
39 # Usage: $error = $record -> delete;
46 # Usage: $error = $newrecord -> replace($oldrecord)
49 return "(Old) Not a table_name record!" unless $old->table eq "table_name";
50 return "Can't change keyfield!"
51 unless $old->getfield('keyfield') eq $new->getfield('keyfield');
56 # Usage: $error = $record -> check;
59 return "Not a table_name record!" unless $self->table eq "table_name";
60 my($recref) = $self->hashref;