1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
package FS::h_Common;
use strict;
use FS::Record qw(dbdef);
use Carp qw(confess);
=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", "EXTRA_SQL", SQL fragments, a
placeholder for "CACHE_OBJ" and an "AS" SQL fragment, to search for the
appropriate history records created before END_TIMESTAMP and (optionally) not
deleted before START_TIMESTAMP.
=cut
sub sql_h_search {
my( $self, $end ) = ( shift, shift );
my $table = $self->table;
my $real_table = ($table =~ /^h_(.*)$/) ? $1 : $table;
my $pkey = dbdef->table($real_table)->primary_key
or die "can't (yet) search history table $real_table without a primary key";
unless ($end) {
confess 'Called sql_h_search without END_TIMESTAMP';
}
my( $notdeleted, $notdeleted_mr ) = ( '', '' );
if ( scalar(@_) && $_[0] ) {
$notdeleted =
"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]
)";
$notdeleted_mr =
"AND 0 = ( SELECT COUNT(*) FROM $table as notdel_mr
WHERE notdel_mr.$pkey = mostrecent.$pkey
AND notdel_mr.history_action = 'delete'
AND notdel_mr.history_date > mostrecent.history_date
AND notdel_mr.history_date <= $_[0]
)";
}
(
#"DISTINCT ON ( $pkey ) *",
"*",
"AND history_date <= $end
AND ( history_action = 'insert'
OR history_action = 'replace_new'
)
$notdeleted
AND history_date = ( SELECT MAX(mostrecent.history_date)
FROM $table AS mostrecent
WHERE mostrecent.$pkey = maintable.$pkey
AND mostrecent.history_date <= $end
AND ( mostrecent.history_action = 'insert'
OR mostrecent.history_action = 'replace_new'
)
$notdeleted_mr
)
ORDER BY $pkey ASC",
#ORDER BY $pkey ASC, history_date DESC",
'',
'AS maintable',
);
}
=item sql_h_searchs END_TIMESTAMP [ START_TIMESTAMP ]
Like sql_h_search, but limited to the single most recent record (before
END_TIMESTAMP)
=cut
sub sql_h_searchs {
my $self = shift;
my($select, $where, $cacheobj, $as) = $self->sql_h_search(@_);
$where .= ' LIMIT 1';
($select, $where, $cacheobj, $as);
}
=back
=head1 BUGS
=head1 SEE ALSO
L<FS::Record>, schema.html from the base documentation
=cut
1;
|