1 % if ( int( time - (keys %years)[0] * 31556736 ) > $start ) {
3 % my $chy = $cgi->param('change_history-years');
4 % foreach my $y (keys %years) {
5 % if ( $y == $years ) {
6 <FONT SIZE="+1"><% $years{$y} %></FONT>
8 % $cgi->param('change_history-years', $y);
9 <A HREF="<% $cgi->self_url %>"><% $years{$y} %></A>
11 % last if int( time - $y * 31556736 ) < $start;
13 % $cgi->param('change_history-years', $chy);
16 <% include("/elements/change_history_common.html",
17 'history' => \@history,
24 tie my %years, 'Tie::IxHash',
32 tie my %tables, 'Tie::IxHash',
33 'cust_main' => 'Customer',
34 'cust_main_invoice' => 'Invoice destination',
35 'cust_main_note' => 'Note',
36 'cust_pkg' => 'Package',
37 #? or just svc_* ? 'cust_svc' =>
38 'svc_acct' => 'Account',
39 'radius_usergroup' => 'RADIUS group',
40 'svc_domain' => 'Domain',
41 'svc_www' => 'Hosting',
42 'svc_forward' => 'Mail forward',
43 'svc_broadband' => 'Broadband',
44 'svc_external' => 'External service',
45 'svc_phone' => 'Phone',
46 'svc_cable' => 'Cable',
47 'phone_device' => 'Phone device',
48 'cust_pkg_discount' => 'Discount',
49 #? it gets provisioned anyway 'phone_avail' => 'Phone',
51 'contact' => 'Contact',
54 my $pkg_join = "JOIN cust_pkg USING ( pkgnum )";
55 my $svc_join = "JOIN cust_svc USING ( svcnum ) $pkg_join";
69 'radius_usergroup' => $svc_join,
70 'phone_device' => $svc_join,
71 'cust_pkg_discount'=> $pkg_join,
72 'contact' => "JOIN cust_contact USING ( contactnum )",
75 %table_join = (%table_join, map { $_ => $svc_join } @svc_tables);
91 # acct_snarf? is this even used? it is now, for communigate RPOP
98 # (virtual fields? eh... maybe when they're real)
106 # inventory_item (from services)
107 # pkg_referral? (changed?)
112 # cust_main-exemption?? (295.ca named tax exemptions)
115 my( $cust_main ) = @_;
117 my $conf = new FS::Conf;
119 my $curuser = $FS::CurrentUser::CurrentUser;
122 unless $curuser->access_right('View customer history');
124 # find out the beginning of this customer history, if possible
125 my $h_insert = qsearchs({
126 'table' => 'h_cust_main',
127 'hashref' => { 'custnum' => $cust_main->custnum,
128 'history_action' => 'insert',
130 'extra_sql' => 'ORDER BY historynum LIMIT 1',
132 my $start = $h_insert ? $h_insert->history_date : 0;
134 # retreive the history
138 my $years = $conf->config('change_history-years') || .5;
139 if ( $cgi->param('change_history-years') =~ /^([\d\.]+)$/ ) {
142 my $newer_than = int( time - $years * 31556736 ); #60*60*24*365.24
144 local($FS::Record::nowarn_classload) = 1;
146 my $extra_sql = ' AND custnum = '. $cust_main->custnum;
149 foreach my $table ( keys %tables ) {
150 $extra_sql = ' AND cust_contact.custnum = '. $cust_main->custnum if $table eq 'contact';
151 my @items = qsearch({
152 'table' => "h_$table",
153 'addl_from' => $table_join{$table},
154 'hashref' => { 'history_date' => { op=>'>=', value=>$newer_than }, },
155 'extra_sql' => $extra_sql,
157 %foundsvcs = (%foundsvcs, map { $_->svcnum => 1 } @items)
159 push @history, @items;
162 ### Load svcs that are no longer linked (cust_svc has been deleted)
164 # get list of all svcs for this customer from h_cust_svc
165 # could also load svcdb here by joining to part_svc on svcpart,
166 # but it would spoil database optimizations on this lookup
167 my @svcnumobj = qsearch({
168 'select' => 'DISTINCT svcnum',
169 'hashref' => { 'history_date' => { op=>'>=', value=>$newer_than } },
170 'table' => 'h_cust_svc',
171 'addl_from' => 'JOIN cust_pkg USING (pkgnum)',
172 'extra_sql' => ' AND custnum = '. $cust_main->custnum,
175 # now grab those svcs explicitly
176 foreach my $svcnum ( map { $_->get('svcnum') } @svcnumobj ) {
177 # can skip the services we already found
178 next if $foundsvcs{$svcnum};
179 # grab any given h_cust_svc record for this svcnum to get svcdb
180 my $svcdbobj = qsearchs({
182 'hashref' => { svcnum => $svcnum },
183 'table' => 'h_cust_svc',
184 'addl_from' => 'JOIN part_svc USING (svcpart)',
185 'extra_sql' => 'LIMIT 1',
187 unless ($svcdbobj && $svcdbobj->get('svcdb')) {
188 # don't think this ever happens, but just in case, don't break history page over it
189 warn "Could not load svcdb for svcnum $svcnum";
192 my @items = qsearch({
193 'table' => "h_".$svcdbobj->get('svcdb'),
194 'hashref' => { 'history_date' => { op=>'>=', value=>$newer_than },
195 'svcnum' => $svcnum },
197 push @history, @items;
202 my @legacy_items = qsearch({
203 'table' => 'legacy_cust_history',
204 'hashref' => { 'history_date' => { op=>'>=', value=>$newer_than }, },
205 'extra_sql' => ' AND custnum = '. $cust_main->custnum,
207 push @history, @legacy_items;