summaryrefslogtreecommitdiff
path: root/htetc
diff options
context:
space:
mode:
authorivan <ivan>2006-03-08 10:05:01 +0000
committerivan <ivan>2006-03-08 10:05:01 +0000
commit600a0939e7e7e589dae4f4f5bfef3650728940b7 (patch)
tree4e96278b41fc621fa15d03cf2e48a5a3b5a8b72d /htetc
parent5809a99d862a6bd0da6742479f18728aae8216a2 (diff)
Add a new table for inventory with for DIDs/serials/etc., and an additional
new table for inventory category (i.e. to distinguish DIDs, serials, MACs, etc.)
Diffstat (limited to 'htetc')
-rw-r--r--htetc/handler.pl10
1 files changed, 9 insertions, 1 deletions
diff --git a/htetc/handler.pl b/htetc/handler.pl
index 1bbea16d1..15f9203f8 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -173,6 +173,8 @@ sub handler
use FS::XMLRPC;
use FS::payby;
use FS::cdr;
+ use FS::inventory_class;
+ use FS::inventory_item;
if ( %%%RT_ENABLED%%% ) {
eval '
@@ -245,8 +247,10 @@ sub handler
sub redirect {
my( $location ) = @_;
+ warn 'redir1 $m='.$m;
use vars qw($m);
$m->clear_buffer;
+ warn 'redir3-prof';
#false laziness w/above
if ( defined(@DBIx::Profile::ISA) ) { #profiling redirect
@@ -263,10 +267,14 @@ sub handler
);
dbh->{'private_profile'} = {};
- $m->abort(200);
+ warn 'redir9-prof';
+ my $rv = $m->abort(200);
+ warn "redir10-prof: $rv";
+ $rv;
} else { #normal redirect
+ warn 'redir9-redirect';
$m->redirect($location);
}