diff options
author | ivan <ivan> | 2006-03-08 10:05:01 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-03-08 10:05:01 +0000 |
commit | 600a0939e7e7e589dae4f4f5bfef3650728940b7 (patch) | |
tree | 4e96278b41fc621fa15d03cf2e48a5a3b5a8b72d /htetc | |
parent | 5809a99d862a6bd0da6742479f18728aae8216a2 (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.pl | 10 |
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); } |