X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FMason.pm;h=6bc2338441319621a48bd5318e5f93d04c3c4f5d;hb=76c8b9576ce93895433de2d9a2f5a0524a733103;hp=82e64f24533ac150e0ee0e3b3939001233ccda2b;hpb=c1e2f536974812f05b8d3534ad2bf9c9ba40c24d;p=freeside.git diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm index 82e64f245..6bc233844 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -57,13 +57,14 @@ if ( -e $addl_handler_use_file ) { use List::Util qw( max min ); use Data::Dumper; use Date::Format; - use Date::Parse; use Time::Local; use Time::HiRes; use Time::Duration; use DateTime; use DateTime::Format::Strptime; + use FS::Misc::DateTime qw( parse_datetime ); use Lingua::EN::Inflect qw(PL); + Lingua::EN::Inflect::classical names=>0; #Categorys use Tie::IxHash; use URI; use URI::Escape; @@ -72,6 +73,8 @@ if ( -e $addl_handler_use_file ) { use HTML::FormatText; use HTML::Defang; use JSON; +# use XMLRPC::Transport::HTTP; +# use XMLRPC::Lite; # for XMLRPC::Serializer use MIME::Base64; use IO::Handle; use IO::File; @@ -124,6 +127,7 @@ if ( -e $addl_handler_use_file ) { states_hash counties cities state_label ); use FS::Misc::eps2png qw( eps2png ); + use FS::Report::FCC_477; use FS::Report::Table::Monthly; use FS::TicketSystem; use FS::Tron qw( tron_lint ); @@ -215,6 +219,7 @@ if ( -e $addl_handler_use_file ) { use FS::part_pkg_report_option; use FS::cust_attachment; use FS::h_cust_pkg; + use FS::h_inventory_item; use FS::h_svc_acct; use FS::h_svc_broadband; use FS::h_svc_domain; @@ -234,6 +239,11 @@ if ( -e $addl_handler_use_file ) { use FS::cust_pkg_discount; use FS::cust_bill_pkg_discount; use FS::svc_mailinglist; + use FS::cgp_rule; + use FS::cgp_rule_condition; + use FS::cgp_rule_action; + use FS::bill_batch; + use FS::cust_bill_batch; # Sammath Naur if ( $FS::Mason::addl_handler_use ) { @@ -246,6 +256,7 @@ if ( -e $addl_handler_use_file ) { use lib ( "/opt/rt3/local/lib", "/opt/rt3/lib" ); use vars qw($Nobody $SystemUser); use RT; + use RT::Util; use RT::Tickets; use RT::Transactions; use RT::Users; @@ -276,6 +287,9 @@ if ( -e $addl_handler_use_file ) { use RT::Interface::Web::Request; + #nother undeclared web UI dep (for ticket links graph) + use IPC::Run::SafeHandles; + #slow, unreliable, segfaults and is optional #see rt/html/Ticket/Elements/ShowTransactionAttachments #use Text::Quoted; @@ -349,6 +363,11 @@ if ( -e $addl_handler_use_file ) { $m->comp('/elements/errorpage.html', @_); } + sub errorpage_popup { + use vars qw($m); + $m->comp('/elements/errorpage-popup.html', @_); + } + sub redirect { my( $location ) = @_; use vars qw($m);