#use CGI::Carp qw(fatalsToBrowser);
use CGI::Cookie;
use List::Util qw( max min sum );
+ use List::MoreUtils qw( first_index uniq );
+ use Scalar::Util qw( blessed );
use Data::Dumper;
use Date::Format;
use Time::Local;
use DateTime;
use DateTime::Format::Strptime;
use FS::Misc::DateTime qw( parse_datetime );
- use FS::Misc::Geo qw( get_censustract get_district );
+ use FS::Misc::Geo qw( get_district );
use Lingua::EN::Inflect qw(PL);
Lingua::EN::Inflect::classical names=>0; #Categorys
use Tie::IxHash;
use HTML::TableExtract qw(tree);
use HTML::FormatText;
use HTML::Defang;
- use JSON;
+ use JSON::XS;
# use XMLRPC::Transport::HTTP;
# use XMLRPC::Lite; # for XMLRPC::Serializer
use MIME::Base64;
use IO::Handle;
use IO::File;
use IO::Scalar;
+ use IO::String;
#not actually using this yet anyway...# use IPC::Run3 0.036;
use Net::Whois::Raw qw(whois);
if ( $] < 5.006 ) {
use Text::CSV_XS;
use Spreadsheet::WriteExcel;
use Spreadsheet::WriteExcel::Utility;
+ use OLE::Storage_Lite;
use Excel::Writer::XLSX;
- use Excel::Writer::XLSX::Utility;
+ #use Excel::Writer::XLSX::Utility; #redundant with above
use Business::CreditCard 0.30; #for mask-aware cardtype()
use NetAddr::IP;
use HTML::Widgets::SelectLayers 0.07; #should go away in favor of
#selectlayers.html
use Locale::Country;
+ use Locale::Currency;
+ use Locale::Currency::Format;
use Business::US::USPS::WebTools::AddressStandardization;
use Geo::GoogleEarth::Pluggable;
use LWP::UserAgent;
use Storable qw( nfreeze thaw );
use FS;
- use FS::UID qw( getotaker dbh datasrc driver_name );
+ use FS::UID qw( dbh datasrc driver_name );
use FS::Record qw( qsearch qsearchs fields dbdef
str2time_sql str2time_sql_closing
midnight_sql
use FS::cust_credit;
use FS::cust_credit_bill;
use FS::cust_main;
+ use FS::h_cust_main;
use FS::cust_main::Search qw(smart_search);
use FS::cust_main::Import;
use FS::cust_main_county;
use FS::tower;
use FS::tower_sector;
use FS::sales;
- use FS::access_groupsales;
use FS::contact_class;
use FS::part_svc_class;
- use FS::ftp_target;
+ use FS::upload_target;
use FS::quotation;
use FS::quotation_pkg;
use FS::quotation_pkg_discount;
+ use FS::cust_bill_void;
+ use FS::cust_bill_pkg_void;
+ use FS::cust_bill_pkg_detail_void;
+ use FS::cust_bill_pkg_display_void;
+ use FS::cust_bill_pkg_tax_location_void;
+ use FS::cust_bill_pkg_tax_rate_location_void;
+ use FS::cust_tax_exempt_pkg_void;
+ use FS::cust_bill_pkg_discount_void;
+ use FS::agent_pkg_class;
+ use FS::svc_export_machine;
+ use FS::GeocodeCache;
+ use FS::log;
+ use FS::log_context;
+ use FS::part_pkg_usage_class;
+ use FS::cust_pkg_usage;
+ use FS::part_pkg_usage_class;
+ use FS::part_pkg_usage;
+ use FS::cdr_cust_pkg_usage;
+ use FS::part_pkg_msgcat;
+ use FS::svc_cable;
+ use FS::agent_currency;
+ use FS::currency_exchange;
+ use FS::part_pkg_currency;
+ use FS::cust_payby;
+ use FS::vend_main;
+ use FS::vend_class;
+ use FS::vend_bill;
+ use FS::vend_pay;
+ use FS::vend_bill_pay;
+ use FS::sales_pkg_class;
+ use FS::svc_alarm;
+ use FS::cable_model;
+ use FS::invoice_mode;
+ use FS::invoice_conf;
+ use FS::cable_provider;
+ use FS::cust_credit_void;
+ use FS::discount_class;
+ use FS::alarm_system;
+ use FS::alarm_type;
+ use FS::alarm_station;
+ use FS::addr_range;
+ use FS::svc_conferencing;
+ use FS::conferencing_type;
+ use FS::conferencing_quality;
+ use FS::svc_video;
+ use FS::part_pkg_usageprice;
+ use FS::cust_pkg_usageprice;
+ use FS::pbx_extension;
+ use FS::pbx_device;
+ use FS::extension_device;
# Sammath Naur
if ( $FS::Mason::addl_handler_use ) {
use RT::Interface::Web::Request;
- #nother undeclared web UI dep (for ticket links graph)
+ #another undeclared web UI dep (for ticket links graph)
use IPC::Run::SafeHandles;
#slow, unreliable, segfaults and is optional
use vars qw($m);
# false laziness w/below
- if ( defined(@DBIx::Profile::ISA) ) {
+ if ( @DBIx::Profile::ISA ) {
if ( $FS::CurrentUser::CurrentUser->option('show_db_profile') ) {
use vars qw($m);
$m->clear_buffer;
#false laziness w/above
- if ( defined(@DBIx::Profile::ISA) ) {
+ if ( @DBIx::Profile::ISA ) {
if ( $FS::CurrentUser::CurrentUser->option('show_db_profile') ) {