X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htetc%2Fhandler.pl;h=2272e260352c83cd38750bbb45d405e5e234f505;hb=a0ddcb6b2ac38076c48e8f0b69e0758d5283303a;hp=183a5534b3cca95856810ddcd1fab4254a86fc02;hpb=22c70177969f30e2e419b32cb5d475c143f10b12;p=freeside.git diff --git a/htetc/handler.pl b/htetc/handler.pl index 183a5534b..2272e2603 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -60,7 +60,7 @@ my $ah = new HTML::Mason::ApacheHandler ( [ 'freeside' => '%%%FREESIDE_DOCUMENT_ROOT%%%' ], [ 'rt' => '%%%FREESIDE_DOCUMENT_ROOT%%%/rt' ], ], - data_dir=>'/usr/local/etc/freeside/masondata', + data_dir=>'%%%MASONDATA%%%', #out_mode=>'stream', #RT @@ -97,6 +97,8 @@ sub handler use Date::Parse; use Time::Local; use Time::Duration; + use DateTime; + use DateTime::Format::Strptime; use Lingua::EN::Inflect qw(PL); use Tie::IxHash; use URI::Escape; @@ -112,12 +114,12 @@ sub handler } use Text::CSV_XS; use Spreadsheet::WriteExcel; - use Business::CreditCard; + use Business::CreditCard 0.30; #for mask-aware cardtype() use String::Approx qw(amatch); use Chart::LinesPoints; use Chart::Mountain; use Color::Scheme; - use HTML::Widgets::SelectLayers 0.05; + use HTML::Widgets::SelectLayers 0.06; use Locale::Country; use FS; use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name); @@ -142,6 +144,7 @@ sub handler use FS::cust_main_county; use FS::cust_pay; use FS::cust_pkg; + use FS::cust_pkg_reason; use FS::cust_refund; use FS::cust_svc; use FS::nas; @@ -189,6 +192,9 @@ sub handler use FS::access_right; use FS::AccessRight; use FS::svc_phone; + use FS::reason_type; + use FS::reason; + use FS::cust_main_note; if ( %%%RT_ENABLED%%% ) { eval '