From 433014f617eebd32a381514529180b4fb6d45d53 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 15 Nov 1998 04:33:01 +0000 Subject: [PATCH] updates for newest versoin --- site_perl/table_template-svc.pm | 193 +++++++++++++++++++++++++++++++++++----- site_perl/table_template.pm | 12 ++- 2 files changed, 179 insertions(+), 26 deletions(-) diff --git a/site_perl/table_template-svc.pm b/site_perl/table_template-svc.pm index a8cbaed5e..d4536e5f6 100644 --- a/site_perl/table_template-svc.pm +++ b/site_perl/table_template-svc.pm @@ -1,30 +1,79 @@ -#!/usr/local/bin/perl -Tw -# -# ivan@voicenet.com 97-jul-21 - package FS::svc_table; use strict; +use vars qw(@ISA); use Exporter; -use FS::Record qw(fields qsearchs); +use FS::Record qw(fields qsearch qsearchs); +use FS::cust_svc; + +@ISA = qw(FS::Record); + +=head1 NAME + +FS::table_name - Object methods for table_name records + +=head1 SYNOPSIS + + use FS::table_name; + + $record = create FS::table_name \%hash; + $record = create FS::table_name { 'column' => 'value' }; + + $error = $record->insert; + + $error = $new_record->replace($old_record); + + $error = $record->delete; + + $error = $record->check; + + $error = $record->suspend; + + $error = $record->unsuspend; + + $error = $record->cancel; + +=head1 DESCRIPTION + +An FS::table_name object represents an example. FS::table_name inherits from +FS::Record. The following fields are currently supported: + +=over 4 + +=item field - description -@FS::svc_table::ISA = qw(FS::Record Exporter); +=back + +=head1 METHODS + +=over 4 + +=item create HASHREF + +Creates a new example. To add the example to the database, see L<"insert">. + +Note that this stores the hash reference, not a distinct copy of the hash it +points to. You can ask the object for a copy with the I method. + +=cut -# Usage: $record = create FS::svc_table ( \%hash ); -# $record = create FS::svc_table ( { field=>value, ... } ); sub create { my($proto,$hashref)=@_; - my($field); - foreach $field (fields('svc_table')) { - $hashref->{$field}='' unless defined $hashref->{$field}; - } - $proto->new('svc_table',$hashref); } -# Usage: $error = $record -> insert; +=item insert + +Adds this record to the database. If there is an error, returns the error, +otherwise returns false. + +The additional fields pkgnum and svcpart (see L) should be +defined. An FS::cust_svc record will be created and inserted. + +=cut + sub insert { my($self)=@_; my($error); @@ -38,13 +87,34 @@ sub insert { $error=$self->check; return $error if $error; + my($svcnum)=$self->svcnum; + my($cust_svc); + unless ( $svcnum ) { + $cust_svc=create FS::cust_svc ( { + 'svcnum' => $svcnum, + 'pkgnum' => $self->pkgnum, + 'svcpart' => $self->svcpart, + } ); + my($error) = $cust_svc->insert; + return $error if $error; + $svcnum = $self->svcnum($cust_svc->svcnum); + } + $error = $self->add; - return $error if $error; + if ($error) { + #$cust_svc->del if $cust_svc; + $cust_svc->delete if $cust_svc; + return $error; ''; #no error } -# Usage: $error = $record -> delete; +=item delete + +Delete this record from the database. + +=cut + sub delete { my($self)=@_; my($error); @@ -54,7 +124,14 @@ sub delete { } -# Usage: $error = $newrecord -> replace($oldrecord) + +=item replace OLD_RECORD + +Replaces the OLD_RECORD with this one in the database. If there is an error, +returns the error, otherwise returns false. + +=cut + sub replace { my($new,$old)=@_; my($error); @@ -72,22 +149,47 @@ sub replace { ''; #no error } -# Usage: $error = $record -> suspend; +=item suspend + +Called by the suspend method of FS::cust_pkg (see L). + +=cut + sub suspend { ''; #no error (stub) } -# Usage: $error = $record -> unsuspend; +=item unsuspend + +Called by the unsuspend method of FS::cust_pkg (see L). + +=cut + sub unsuspend { ''; #no error (stub) } -# Usage: $error = $record -> cancel; + +=item cancel + +Just returns false (no error) for now. + +Called by the cancel method of FS::cust_pkg (see L). + +=cut + sub cancel { ''; #no error (stub) } -# Usage: $error = $record -> check; +=item check + +Checks all fields to make sure this is a valid example. If there is +an error, returns the error, otherwise returns false. Called by the insert +and repalce methods. + +=cut + sub check { my($self)=@_; return "Not a svc_table record!" unless $self->table eq "svc_table"; @@ -95,13 +197,56 @@ sub check { $recref->{svcnum} =~ /^(\d+)$/ or return "Illegal svcnum"; $recref->{svcnum} = $1; - return "Unknown svcnum" unless - qsearchs('cust_svc',{'svcnum'=> $recref->{svcnum} } ); - #DATA CHECKS GO HERE! + #get part_svc + my($svcpart); + my($svcnum)=$self->getfield('svcnum'); + if ($svcnum) { + my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum}); + return "Unknown svcnum" unless $cust_svc; + $svcpart=$cust_svc->svcpart; + } else { + $svcpart=$self->getfield('svcpart'); + } + my($part_svc)=qsearchs('part_svc',{'svcpart'=>$svcpart}); + return "Unkonwn svcpart" unless $part_svc; + + #set fixed fields from part_svc + my($field); + foreach $field ( fields('svc_acct') ) { + if ( $part_svc->getfield('svc_acct__'. $field. '_flag') eq 'F' ) { + $self->setfield($field,$part_svc->getfield('svc_acct__'. $field) ); + } + } ''; #no error } +=back + +=head1 VERSION + +$Id: table_template-svc.pm,v 1.2 1998-11-15 04:33:01 ivan Exp $ + +=head1 BUGS + +The author forgot to customize this manpage. + +=head1 SEE ALSO + +L, L, L, L, schema.html +froom the base documentation. + +=head1 HISTORY + +ivan@voicenet.com 97-jul-21 + +$Log: table_template-svc.pm,v $ +Revision 1.2 1998-11-15 04:33:01 ivan +updates for newest versoin + + +=cut + 1; diff --git a/site_perl/table_template.pm b/site_perl/table_template.pm index 5b560a2e7..8945a39d7 100644 --- a/site_perl/table_template.pm +++ b/site_perl/table_template.pm @@ -78,7 +78,6 @@ sub insert { $self->add; } - =item delete Delete this record from the database. @@ -126,6 +125,12 @@ sub check { ''; #no error } +=back + +=head1 VERSION + +$Id: table_template.pm,v 1.3 1998-11-15 04:33:00 ivan Exp $ + =head1 BUGS The author forgot to customize this manpage. @@ -142,7 +147,10 @@ added hfields ivan@sisd.com 97-nov-13 $Log: table_template.pm,v $ -Revision 1.2 1998-11-15 03:48:49 ivan +Revision 1.3 1998-11-15 04:33:00 ivan +updates for newest versoin + +Revision 1.2 1998/11/15 03:48:49 ivan update for current version -- 2.11.0