X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Flog_context.pm;h=6b69a805882dc4c41843e0905baa943fce26fcff;hp=403829ac232fdbb9686f5a53c631c9f53191319e;hb=3adb46fccf9f631e188ea5383bd147b340477639;hpb=cd278c142b76d30adf9e51ae4c47d01d754cdd59 diff --git a/FS/FS/log_context.pm b/FS/FS/log_context.pm index 403829ac2..6b69a8058 100644 --- a/FS/FS/log_context.pm +++ b/FS/FS/log_context.pm @@ -4,18 +4,38 @@ use strict; use base qw( FS::Record ); use FS::Record qw( qsearch qsearchs ); -my @contexts = ( qw( - test +# Items in @default_contexts will always be included in the +# output of contexts() method +my @default_contexts = ( qw( bill_and_collect FS::cust_main::Billing::bill_and_collect FS::cust_main::Billing::bill + FS::cust_main::Billing_Realtime::realtime_bop + FS::cust_main::Billing_Realtime::realtime_tokenize + FS::cust_main::Billing_Realtime::realtime_verify_bop + FS::cust_main::Billing_Realtime::token_check + FS::pay_batch::import_from_gateway + FS::part_pkg + FS::Misc::Geo::standardize_uscensus + FS::saved_search::send + FS::saved_search::render + FS::cust_location::process_district_update Cron::bill + Cron::backup Cron::upload spool_upload daily queue upgrade upgrade_taxable_billpkgnum + freeside-ipifony-download + freeside-paymentech-upload + freeside-paymentech-download + test + FS::TaxEngine::billsoft + wa_sales + wa_tax_rate_update + tax_rate_update ) ); =head1 NAME @@ -112,11 +132,25 @@ sub check { =item contexts -Returns a list of all valid contexts. +Returns a list of all log contexts, by combining @default_contexts +with all context values seen in the log_context table =cut -sub contexts { @contexts } +sub contexts { + my $self = shift; + + my %contexts = map { $_ => 1 } @default_contexts; + + $contexts{ $_->context } = 1 + for qsearch({ + select => 'DISTINCT context AS context', + table => 'log_context', + hashref => {}, + }); + + sort { lc $a cmp lc $b } keys %contexts; +} =back