X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=htetc%2Fhandler.pl;h=ecbce967f71a99e0315bef486c148f653ad32720;hb=34992d5d95c61b458b1ecfa24390ea671677cec8;hp=caa266df09964b500bba118bde2e1e9771969299;hpb=7db47bbe37d5763917595be0c4d22d17ae1408c0;p=freeside.git diff --git a/htetc/handler.pl b/htetc/handler.pl index caa266df0..ecbce967f 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -125,10 +125,14 @@ sub handler 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 @@ -149,9 +153,9 @@ sub handler use FS::cust_credit_bill; use FS::cust_main qw(smart_search); use FS::cust_main_county; - use FS::part_pkg_taxclass; 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; @@ -207,6 +211,12 @@ sub handler 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 ' @@ -233,6 +243,11 @@ sub handler 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; @@ -281,12 +296,23 @@ sub handler }; - 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 {