X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=site_perl%2Ftable_template-svc.pm;h=4180d8d137b6d2c85802f65d44729e7467d3d045;hp=a8cbaed5e5ef6f13120ec3c68497d5d277517de1;hb=1f2d8690193476319d61b20b78461eb1a3ff106e;hpb=982a174dd0dc4b6f56d3008fa45835dfcdd6869a

diff --git a/site_perl/table_template-svc.pm b/site_perl/table_template-svc.pm
index a8cbaed5e..4180d8d13 100644
--- a/site_perl/table_template-svc.pm
+++ b/site_perl/table_template-svc.pm
@@ -1,30 +1,73 @@
-#!/usr/local/bin/perl -Tw
-#
-# ivan@voicenet.com 97-jul-21
-
 package FS::svc_table;
 
 use strict;
-use Exporter;
-use FS::Record qw(fields qsearchs);
+use vars qw(@ISA);
+use FS::Record qw(fields qsearch qsearchs);
+use FS::cust_svc;
 
-@FS::svc_table::ISA = qw(FS::Record Exporter);
+@ISA = qw(FS::Record);
 
-# Usage: $record = create FS::svc_table ( \%hash );
-#        $record = create FS::svc_table ( { field=>value, ... } );
-sub create {
-  my($proto,$hashref)=@_;
+=head1 NAME
 
-  my($field);
-  foreach $field (fields('svc_table')) {
-    $hashref->{$field}='' unless defined $hashref->{$field};
-  }
+FS::table_name - Object methods for table_name records
 
-  $proto->new('svc_table',$hashref);
+=head1 SYNOPSIS
 
-}
+  use FS::table_name;
+
+  $record = new FS::table_name \%hash;
+  $record = new 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
+
+=back
+
+=head1 METHODS
+
+=over 4
+
+=item new 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<hash> method.
+
+=cut
+
+sub table { 'table_name'; }
+
+=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<FS::cust_svc>) should be 
+defined.  An FS::cust_svc record will be created and inserted.
+
+=cut
 
-# Usage: $error = $record -> insert;
 sub insert {
   my($self)=@_;
   my($error);
@@ -38,13 +81,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 +118,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 +143,47 @@ sub replace {
   ''; #no error
 }
 
-# Usage: $error = $record -> suspend;
+=item suspend
+
+Called by the suspend method of FS::cust_pkg (see L<FS::cust_pkg>).
+
+=cut
+
 sub suspend {
   ''; #no error (stub)
 }
 
-# Usage: $error = $record -> unsuspend;
+=item unsuspend
+
+Called by the unsuspend method of FS::cust_pkg (see L<FS::cust_pkg>).
+
+=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<FS::cust_pkg>).
+
+=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 +191,59 @@ 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.3 1998-12-29 11:59:56 ivan Exp $
+
+=head1 BUGS
+
+The author forgot to customize this manpage.
+
+=head1 SEE ALSO
+
+L<FS::Record>, L<FS::cust_svc>, L<FS::part_svc>, L<FS::cust_pkg>, schema.html
+froom the base documentation.
+
+=head1 HISTORY
+
+ivan@voicenet.com 97-jul-21
+
+$Log: table_template-svc.pm,v $
+Revision 1.3  1998-12-29 11:59:56  ivan
+mostly properly OO, some work still to be done with svc_ stuff
+
+Revision 1.2  1998/11/15 04:33:01  ivan
+updates for newest versoin
+
+
+=cut
+
 1;