use strict;
use vars qw( $cgi $p $fsurl);
use vars qw( %session );
- use CGI 2.47 qw(-private_tempfiles);
+ use CGI 3.29 qw(-private_tempfiles); #3.29 to fix RT attachment problems
#use CGI::Carp qw(fatalsToBrowser);
use CGI::Cookie;
use List::Util qw( max min );
use DateTime::Format::Strptime;
use Lingua::EN::Inflect qw(PL);
use Tie::IxHash;
+ use URI::URL;
use URI::Escape;
use HTML::Entities;
+ use HTML::TreeBuilder;
+ use HTML::FormatText;
use JSON;
use MIME::Base64;
use IO::Handle;
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);
+ use FS::UID qw( adminsuidsetup cgisuidsetup getotaker
+ dbh datasrc driver_name
+ );
+ use FS::Record qw( qsearch qsearchs fields dbdef
+ str2time_sql str2time_sql_closing
+ );
use FS::Conf;
use FS::CGI qw(header menubar popurl rooturl table itable ntable idiot
- eidiot small_custview myexit http_header);
+ eidiot myexit http_header);
use FS::UI::Web qw(svc_url);
+ use FS::UI::Web::small_custview qw(small_custview);
use FS::UI::bytecount;
use FS::Msgcat qw(gettext geterror);
use FS::Misc qw( send_email send_fax states_hash counties state_label );
use FS::part_pkg_taxclass;
use FS::cust_pkg_reason;
use FS::cust_refund;
+ use FS::cust_credit_refund;
+ use FS::cust_pay_refund;
use FS::cust_svc;
use FS::nas;
use FS::part_bill_event;
use FS::cdr;
use FS::inventory_class;
use FS::inventory_item;
+ use FS::pkg_category;
use FS::pkg_class;
use FS::access_user;
use FS::access_user_pref;
use Time::HiRes;
use HTML::Scrubber;
+ #blah. not even in RT::Interface::Web::Handler, just in
+ #html/NoAuth/css/dhandler and rt-test-dependencies. ask for it here
+ #to throw a real error instead of just a mysterious unstyled RT
+ use CSS::Squish 0.06;
+
#slow, unreliable, segfaults and is optional
#see rt/html/Ticket/Elements/ShowTransactionAttachments
#use Text::Quoted;
} elsif ( $HTML::Mason::r->filename =~ /\/rt\/REST\/.*NoAuth/ ) {
#need to log somebody in for the mail gw
- #&adminsuidsetup('fs_selfservice'); #old installs w/'fs_selfserv'??
+
+ ##old installs w/fs_selfs or selfserv??
+ #&adminsuidsetup('fs_selfservice');
+
&adminsuidsetup('fs_queue');
}