X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FMason.pm;h=934004e4a1003e8bf2efb0d40375f1690bdeb13e;hb=9f2280fbce022ab9bcfc46fe94483730b0aeb0f8;hp=2a04ae55bda6417be325bed2fa9cea17b5ed3aaa;hpb=e356f2ebb6564fe8d5333fc89bb4583ee3cd1fb1;p=freeside.git diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm index 2a04ae55b..934004e4a 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -133,10 +133,14 @@ if ( -e $addl_handler_use_file ) { ); use FS::Misc::eps2png qw( eps2png ); use FS::Report::FCC_477; + use FS::Report::Table; use FS::Report::Table::Monthly; + use FS::Report::Table::Daily; use FS::TicketSystem; use FS::NetworkMonitoringSystem; use FS::Tron qw( tron_lint ); + use FS::Locales; + use FS::Maketext qw( mt emt ); use FS::agent; use FS::agent_type; @@ -242,6 +246,7 @@ if ( -e $addl_handler_use_file ) { use FS::cust_category; use FS::prospect_main; use FS::contact; + use FS::phone_type; use FS::svc_pbx; use FS::discount; use FS::cust_pkg_discount; @@ -269,6 +274,21 @@ if ( -e $addl_handler_use_file ) { use FS::lata; use FS::did_vendor; use FS::did_order; + use FS::torrus_srvderive; + use FS::torrus_srvderive_component; + use FS::areacode; + use FS::svc_dish; + use FS::h_svc_dish; + use FS::svc_hardware; + use FS::h_svc_hardware; + use FS::hardware_class; + use FS::hardware_type; + use FS::hardware_status; + use FS::did_order_item; + use FS::msa; + use FS::rate_center; + use FS::cust_msg; + use FS::radius_group; # Sammath Naur if ( $FS::Mason::addl_handler_use ) { @@ -514,13 +534,15 @@ sub mason_interps { ${$_[0]} = "'". ${$_[0]}. "'"; }; + my $defang_sub = sub { + ${$_[0]} = $html_defang->defang(${$_[0]}); + }; + my $fs_interp = new HTML::Mason::Interp ( %interp, comp_root => $fs_comp_root, - escape_flags => { 'js_string' => $js_string_sub, - 'defang' => sub { - ${$_[0]} = $html_defang->defang(${$_[0]}); - }, + escape_flags => { 'js_string' => $js_string_sub, + 'defang' => $defang_sub, }, compiler => HTML::Mason::Compiler::ToObject->new( allow_globals => [qw(%session)],