diff options
author | ivan <ivan> | 2006-02-18 11:14:21 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-02-18 11:14:21 +0000 |
commit | fadaa67e77ad8d5d966e252aba7f193e9e3840e3 (patch) | |
tree | 8f425d82a445dd5ba6ed58f316e4b7a6802ef2dc /htetc | |
parent | 6d27649c93f3f83c14611c790281a7b667062fc0 (diff) |
CDR schema and class
Diffstat (limited to 'htetc')
-rw-r--r-- | htetc/handler.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/htetc/handler.pl b/htetc/handler.pl index 06060b20a..1bbea16d1 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -88,7 +88,7 @@ sub handler #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); @@ -118,8 +118,8 @@ sub handler 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 ); @@ -172,6 +172,7 @@ sub handler use FS::agent_payment_gateway; use FS::XMLRPC; use FS::payby; + use FS::cdr; if ( %%%RT_ENABLED%%% ) { eval ' @@ -234,9 +235,9 @@ sub handler &cgisuidsetup($cgi); #&cgisuidsetup($r); $p = popurl(2); + $fsurl = rooturl(); } - sub include { use vars qw($m); $m->scomp(@_); |