#!/usr/bin/perl
package Delete_log;

#####################################################################
# Author : Shuai Weng
# Date   : July 2001
# 
# See documentation for the usage details. 
#    
# http:///usr/local/dicty/www_dictybase/db/lib/html/dictyBase/programmer/Delete_log.html
#
#####################################################################

use strict;
use DBI;
use Carp;
use vars qw (@ISA %allowedConstructors);
use dictyBase_Table;
@ISA = qw (dictyBase_Table); # base class

# Class Globals

# put column names in the hash below, that are able to uniquely
# specify a row in the table

%allowedConstructors = (dlog_no=>undef,
			'tab_name:deleted_row'=>undef);



####################################################################
sub DESTROY{
####################################################################
# nothing needs to be done 

}


####################################################################
1; #################################################################
####################################################################

=pod

=head1 Name

Delete_log.pm

=head1 Description

This perl object (Delete_log.pm) acts as container for Delete_log info associated with a dlog_no or associated a tab_name and deleted_row in oracle database. Once an object has been instantiated, several methods are available to retrieve the attributes of the object. 


=head1 Instantiating a New Delete_log Object

To instantiate a new Delete_log object, you may use following syntax: 

my $dlogObj = Delete_log->new(dbh=>$dbh, $colNm=>$value); 

where $colNm is dlog_no and $dbh is a valid database handle to either dictyBase or SDEV. $value must be a valid value for the column that was provided, otherwise the script will die, with an appropriate error message.
 

Syntax example :

my $dlogObj = Delete_log->new(dbh=>$dbh, dlog_no=>$dlogNo); 

or $dlogObj = Delete_log->new(dbh=>$dbh, 
			      tab_name=>$tabNm,
			      deleted_row=>$deteledRow);


=head1 Accessor Methods


All accessor methods take the form of : 


my $column_value = $dlogObj->column_name, eg: 

my $tab_name = $dlogObj->tab_name; 

etc. You can use an accessor for any valid column in the Delete_log table. 


See valid columns in abstact table:

http:///usr/local/dicty/www_dictybase/db/lib/cgi-bin/dictyBase/tableSpecifications?table=DELETE_LOG

=head1 update Method

You can also use 'update' method for updating description column for a specified row. 

See dictyBase_Table documentation for usage details :

Update : http:///usr/local/dicty/www_dictybase/db/lib/staff/dictyBase/programmer/dictyBase_Table.html#Update_Method

=head1 Author

Shuai Weng

shuai@genome.stanford.edu

=cut