X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=htetc%2Fhandler.pl;h=92564350efd7469a8306e8f9e38a1d9ee61d5a56;hb=85c516c6a894772e101d24a16ad2f4df978c0f7f;hp=4b6d67111f92930eef957bfc725b93be804bda4f;hpb=ae13eee2a784191c8a1a94c8c7e9dae6f8682e01;p=freeside.git diff --git a/htetc/handler.pl b/htetc/handler.pl index 4b6d67111..92564350e 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -120,12 +120,15 @@ sub handler use Text::CSV_XS; use Spreadsheet::WriteExcel; use Business::CreditCard 0.30; #for mask-aware cardtype() + use NetAddr::IP; use String::Approx qw(amatch); use Chart::LinesPoints; use Chart::Mountain; use Color::Scheme; - use HTML::Widgets::SelectLayers 0.07; + use HTML::Widgets::SelectLayers 0.07; #should go away in favor of + #selectlayers.html use Locale::Country; + use Business::US::USPS::WebTools::AddressStandardization; use FS; use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name); use FS::Record qw(qsearch qsearchs fields dbdef str2time_sql); @@ -150,6 +153,7 @@ sub handler use FS::cust_main_county; use FS::cust_pay; use FS::cust_pkg; + use FS::part_pkg_taxclass; use FS::cust_pkg_reason; use FS::cust_refund; use FS::cust_svc; @@ -205,6 +209,12 @@ sub handler use FS::reason_type; use FS::reason; use FS::cust_main_note; + use FS::tax_class; + use FS::cust_tax_location; + use FS::part_pkg_taxproduct; + use FS::part_pkg_taxoverride; + use FS::part_pkg_taxrate; + use FS::tax_rate; if ( %%%RT_ENABLED%%% ) { eval ' @@ -223,12 +233,22 @@ sub handler use RT::CustomFieldValues; use RT::ObjectCustomFieldValues; + #blah. manually updated from RT::Interface::Web::Handler use RT::Interface::Web; use MIME::Entity; use Text::Wrapper; use Time::ParseDate; + use Time::HiRes; use HTML::Scrubber; - use Text::Quoted; + + #slow, unreliable, segfaults and is optional + #see rt/html/Ticket/Elements/ShowTransactionAttachments + #use Text::Quoted; + + #?#use File::Path qw( rmtree ); + #?#use File::Glob qw( bsd_glob ); + #?#use File::Spec::Unix; + '; die $@ if $@; } @@ -269,7 +289,11 @@ sub handler }; - unless ( $HTML::Mason::r->filename =~ /\/rt\/.*NoAuth/ ) { #RT + #is this conditional a bad idea entirely, hmm + unless ( + $HTML::Mason::r->filename =~ /\/rt\/.*NoAuth/ #RT images/JS + && $HTML::Mason::r->filename !~ /\/rt\/REST\// #but NOT mail gw + ) { $cgi = new CGI; &cgisuidsetup($cgi); #&cgisuidsetup($r);