#rar
{ package HTML::Mason::Commands;
use strict;
- use vars qw( $cgi $p );
+ use vars qw( $cgi $p $fsurl);
use vars qw( %session );
use CGI 2.47 qw(-private_tempfiles);
#use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name);
use FS::Record qw(qsearch qsearchs fields dbdef);
use FS::Conf;
- use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot
- small_custview myexit http_header);
+ use FS::CGI qw(header menubar popurl rooturl table itable ntable idiot
+ eidiot small_custview myexit http_header);
use FS::UI::Web;
use FS::Msgcat qw(gettext geterror);
use FS::Misc qw( send_email send_fax );
use FS::agent_payment_gateway;
use FS::XMLRPC;
use FS::payby;
+ use FS::cdr;
if ( %%%RT_ENABLED%%% ) {
eval '
&cgisuidsetup($cgi);
#&cgisuidsetup($r);
$p = popurl(2);
+ $fsurl = rooturl();
}
-
sub include {
use vars qw($m);
$m->scomp(@_);