diff options
Diffstat (limited to 'fml/lib/FML/Process/TicketSystem.pm')
| -rw-r--r-- | fml/lib/FML/Process/TicketSystem.pm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/fml/lib/FML/Process/TicketSystem.pm b/fml/lib/FML/Process/TicketSystem.pm index 451fbbfa..cd298989 100644 --- a/fml/lib/FML/Process/TicketSystem.pm +++ b/fml/lib/FML/Process/TicketSystem.pm @@ -49,12 +49,21 @@ sub run # fake use() to do "use FML::Ticket::$model;" eval qq{ require $pkg; $pkg->import();}; unless ($@) { + my $ticket = $pkg->new($curproc, $args); + if ($command eq 'list') { - $curproc->_ticket_show_summary($args, $pkg); + $ticket->show_summary($curproc, $args); } elsif ($command eq 'close') { $curproc->lock(); + my $ticket_id = $argv->[ 2 ]; + my $args = { + ticket_id => $ticket_id, + status => 'close', + }; + $ticket->set_status($curproc, $args); + $curproc->unlock(); } else { @@ -67,14 +76,6 @@ sub run } -sub _ticket_show_summary -{ - my ($curproc, $args, $pkg) = @_; - my $ticket = $pkg->new($curproc, $args); - $ticket->show_summary($curproc, $args); -} - - sub AUTOLOAD { my ($curproc, $args) = @_; |