#breaks quick payment entry
#http://rt.cpan.org/Public/Bug/Display.html?id=37365
die "CGI.pm v3.38 is broken, use any other version >= 3.29".
- " (Debian 5.0? aptitude remove ligcgi-pm-perl)"
+ " (Debian 5.0? aptitude remove libcgi-pm-perl)"
if $CGI::VERSION == 3.38;
#use CGI::Carp qw(fatalsToBrowser);
use DateTime::Format::Strptime;
use Lingua::EN::Inflect qw(PL);
use Tie::IxHash;
- use URI::URL;
+ use URI;
use URI::Escape;
use HTML::Entities;
use HTML::TreeBuilder;
use FS::access_right;
use FS::AccessRight;
use FS::svc_phone;
+ use FS::phone_device;
+ use FS::part_device;
use FS::reason_type;
use FS::reason;
use FS::cust_main_note;
use FS::part_pkg_taxoverride;
use FS::part_pkg_taxrate;
use FS::tax_rate;
+ use FS::part_pkg_report_option;
+ use FS::cust_attachment;
+ use FS::h_cust_pkg;
+ use FS::h_svc_acct;
+ use FS::h_svc_broadband;
+ use FS::h_svc_domain;
+ #use FS::h_domain_record;
+ use FS::h_svc_external;
+ use FS::h_svc_forward;
+ use FS::h_svc_phone;
+ #use FS::h_phone_device;
+ use FS::h_svc_www;
+ # Sammath Naur
if ( %%%RT_ENABLED%%% ) {
eval '
#slow, unreliable, segfaults and is optional
#see rt/html/Ticket/Elements/ShowTransactionAttachments
- #use Text::Quoted;
+ use Text::Quoted;
#?#use File::Path qw( rmtree );
#?#use File::Glob qw( bsd_glob );
${$_[0]} = "'". ${$_[0]}. "'";
}
},
+ compiler => HTML::Mason::Compiler::ToObject->new(
+ allow_globals => [qw(%session)],
+ ),
);
my $rt_interp = new HTML::Mason::Interp (