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 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::UID qw( adminsuidsetup cgisuidsetup getotaker
+ dbh datasrc driver_name
+ );
use FS::Record qw(qsearch qsearchs fields dbdef str2time_sql);
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::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;
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 '
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 HTML::Scrubber;
- #use Text::Quoted; #slow, unreliable, segfaults and is optional
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;
+
+ #?#use File::Path qw( rmtree );
+ #?#use File::Glob qw( bsd_glob );
+ #?#use File::Spec::Unix;
+
';
die $@ if $@;
}
};
- unless ( $HTML::Mason::r->filename =~ /\/rt\/.*NoAuth/ ) { #RT
+ if ( $HTML::Mason::r->filename !~ /\/rt\/.*NoAuth/ ) { #not RT images/JS
+
$cgi = new CGI;
&cgisuidsetup($cgi);
#&cgisuidsetup($r);
$p = popurl(2);
$fsurl = rooturl();
+
+ } elsif ( $HTML::Mason::r->filename =~ /\/rt\/REST\/.*NoAuth/ ) {
+
+ #need to log somebody in for the mail gw
+
+ ##old installs w/fs_selfs or selfserv??
+ #&adminsuidsetup('fs_selfservice');
+
+ &adminsuidsetup('fs_queue');
+
}
sub include {