use FS::Conf;
use FS::CGI qw(header menubar popurl 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 );
use FS::Report::Table::Monthly;
sub include {
my $file = shift;
- my $pop = 0;
+ my $shift = 0;
if ( $file =~ m(^([^/].*)/[^/]+) ) {
- push @{$Response->{asp}{includes_dir}}, "./$1";
- $pop = 1;
+ unshift @{$Response->{asp}{includes_dir}}, "./$1";
+ $shift = 1;
}
$file =~ s(^/)(%%%FREESIDE_DOCUMENT_ROOT%%%/);
#broken in 5.005# ${$Response->TrapInclude($file, @_)};
my $ref = $Response->TrapInclude($file, @_);
- pop @{$Response->{asp}{includes_dir}} if $pop;
+ shift @{$Response->{asp}{includes_dir}} if $shift;
$$ref;
}