diff options
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Ticket/Model/toymodel.pm | 93 |
1 files changed, 72 insertions, 21 deletions
diff --git a/fml/lib/FML/Ticket/Model/toymodel.pm b/fml/lib/FML/Ticket/Model/toymodel.pm index f6fb6a6d..323ed3a3 100644 --- a/fml/lib/FML/Ticket/Model/toymodel.pm +++ b/fml/lib/FML/Ticket/Model/toymodel.pm @@ -19,6 +19,31 @@ use FML::Ticket::System; require Exporter; @ISA = qw(FML::Ticket::System Exporter); +=head1 NAME + +FML::Ticket::Model::toymodel - a toymodel of ticket systems + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 CLASS HIERARCHY + + FML::Ticket::System + | + A + ------------------- + | | | + toymodel model2 .... + +=head1 METHOD + +=head2 C<new($curproc, $args)> + +constructor. + +=cut + sub new { @@ -40,6 +65,13 @@ sub new sub DESTROY {} +=head2 C<assign($curproc, $args)> + +assign a new ticket or extract the existing ticket-id from the subject. + +=cut + + # Descriptions: assign a new ticket or # extract the existing ticket-id from the subject # Arguments: $self $curproc $args @@ -215,6 +247,46 @@ sub _set_status } +=head2 C<set_status($args)> + +set $status for $ticket_id. +C<$args>, HASH reference, must have two keys. + + $args = { + ticket_id => $ticket_id, + status => $status, + } + +=head2 C<list_up($curproc, $args>) + +show the ticket summary. By default the output is as follow: + + 2001/02/06 open support_#00000002 3 + 2001/02/06 open support_#00000003 4 6 8 + 2001/02/06 open support_#00000004 5 7 + +where the column is a set of +C<date>, C<status>, C<ticket-id> and C<articles>. + +=cut + + +# Descriptions: +# Arguments: $self $args +# Side Effects: +# Return Value: none +sub set_status +{ + my ($self, $curproc, $args) = @_; + my $ticket_id = $args->{ ticket_id }; + my $status = $args->{ status }; + + $self->_open_db($curproc, $args); + $self->_set_status($ticket_id, $status); + $self->_close_db($curproc, $args); +} + + sub list_up { my ($self, $curproc, $args) = @_; @@ -319,27 +391,6 @@ sub _close_db } -=head1 NAME - -FML::Ticket::Model::toymodel - a toymodel of ticket systems - -=head1 SYNOPSIS - -=head1 DESCRIPTION - -=head1 CLASS HIERARCHY - - FML::Ticket::System - | - A - ------------------- - | | | - toymodel model2 .... - -=head1 METHOD - -=head2 new - =head1 AUTHOR Ken'ichi Fukamachi |