diff options
Diffstat (limited to 'FS/FS/h_Common.pm')
-rw-r--r-- | FS/FS/h_Common.pm | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/FS/FS/h_Common.pm b/FS/FS/h_Common.pm new file mode 100644 index 000000000..58ead88e4 --- /dev/null +++ b/FS/FS/h_Common.pm @@ -0,0 +1,83 @@ +package FS::h_Common; + +use strict; +use FS::Record qw(dbdef); + +=head1 NAME + +FS::h_Common - History table "mixin" common base class + +=head1 SYNOPSIS + +package FS::h_tablename; +@ISA = qw( FS::h_Common FS::tablename ); + +sub table { 'h_table_name'; } + +sub insert { return "can't insert history records manually"; } +sub delete { return "can't delete history records"; } +sub replace { return "can't modify history records"; } + +=head1 DESCRIPTION + +FS::h_Common is intended as a "mixin" base class for history table classes to +inherit from. + +=head1 METHODS + +=over 4 + +=item sql_h_search END_TIMESTAMP [ START_TIMESTAMP ] + +Returns an a list consisting of the "SELECT" and "EXTRA_SQL" SQL fragments to +search for the appropriate history records created before END_TIMESTAMP +and (optionally) not cancelled before START_TIMESTAMP. + +=cut + +sub sql_h_search { + my( $self, $end ) = ( shift, shift ); + + my $table = $self->table; + my $pkey = dbdef->table($table)->primary_key + or die "can't (yet) search history table $table without a primary key"; + + my $notcancelled = ''; + if ( scalar(@_) && $_[0] ) { + $notcancelled = "AND 0 = ( SELECT COUNT(*) FROM $table as notdel + WHERE notdel.$pkey = maintable.$pkey + AND notdel.history_action = 'delete' + AND notdel.history_date > maintable.history_date + AND notdel.history_date <= $_[0] + )"; + } + + ( + "DISTINCT ON ( $pkey ) *", + + "AND history_date <= $end + AND ( history_action = 'insert' + OR history_action = 'replace_new' + ) + $notcancelled + ORDER BY $pkey ASC, history_date DESC", + + '', + + 'maintable', + ); + +} + +=back + +=head1 BUGS + +=head1 SEE ALSO + +L<FS::Record>, schema.html from the base documentation + +=cut + +1; + |