diff options
author | ivan <ivan> | 2005-02-02 08:06:58 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-02-02 08:06:58 +0000 |
commit | dddccdc543eed884f34765f801495d4ba3895875 (patch) | |
tree | a61b1acdc995cc71935741dff10c8cde4d36be7a /FS/FS/UI/agent.pm | |
parent | f8aef239484ff53e5b89204f850b750798414bf0 (diff) |
removing old UI experiment
Diffstat (limited to 'FS/FS/UI/agent.pm')
-rw-r--r-- | FS/FS/UI/agent.pm | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/FS/FS/UI/agent.pm b/FS/FS/UI/agent.pm deleted file mode 100644 index ce9744a55..000000000 --- a/FS/FS/UI/agent.pm +++ /dev/null @@ -1,62 +0,0 @@ -package FS::UI::agent; - -use strict; -use vars qw ( @ISA ); -use FS::UI::Base; -use FS::Record qw( qsearchs ); -use FS::agent; -use FS::agent_type; - -@ISA = qw ( FS::UI::Base ); - -sub db_table { 'agent' }; - -sub db_name { 'Agent' }; - -sub db_description { <<END; -Agents are resellers of your service. Agents may be limited to a subset of your -full offerings (via their type). -END -} - -sub list_fields { - 'agentnum', - 'typenum', -# 'freq', -# 'prog', -; } - -sub list_header { - 'Agent', - 'Type', -# 'Freq (n/a)', -# 'Prog (n/a)', -; } - -sub db_callback { - 'agentnum' => - sub { - my ( $agentnum, $record ) = @_; - my $agent = $record->agent; - new FS::UI::_Link ( - 'table' => 'agent', - 'method' => 'edit', - 'arg' => [ $agentnum ], - 'text' => "$agentnum: $agent", - ); - }, - 'typenum' => - sub { - my $typenum = shift; - my $agent_type = qsearchs( 'agent_type', { 'typenum' => $typenum } ); - my $atype = $agent_type->atype; - new FS::UI::_Link ( - 'table' => 'agent_type', - 'method' => 'edit', - 'arg' => [ $typenum ], - 'text' => "$typenum: $atype" - ); - }, -} - -1; |