diff options
| author | fukachan <fukachan> | 2001-10-22 14:17:53 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-22 14:17:53 +0000 |
| commit | a3afe5363dc7357d31cc3580cdbdb82489b25244 (patch) | |
| tree | c2a3933b9b8798b40bcbf5385fbcb8edd468b921 | |
| parent | 3be2c33c67c22d67f75505dfff1098f068efa49f (diff) | |
| download | fml8-a3afe5363dc7357d31cc3580cdbdb82489b25244.tar.gz fml8-a3afe5363dc7357d31cc3580cdbdb82489b25244.tar.bz2 fml8-a3afe5363dc7357d31cc3580cdbdb82489b25244.zip | |
remove not used _pcb_[sg]et_id()
| -rw-r--r-- | fml/lib/FML/Ticket/Model/minimal_states.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Ticket/System.pm | 26 |
2 files changed, 2 insertions, 28 deletions
diff --git a/fml/lib/FML/Ticket/Model/minimal_states.pm b/fml/lib/FML/Ticket/Model/minimal_states.pm index 479972c6..162a9a43 100644 --- a/fml/lib/FML/Ticket/Model/minimal_states.pm +++ b/fml/lib/FML/Ticket/Model/minimal_states.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: minimal_states.pm,v 1.21 2001/08/22 03:08:00 fukachan Exp $ +# $FML: minimal_states.pm,v 1.22 2001/10/08 23:26:08 fukachan Exp $ # package FML::Ticket::Model::minimal_states; @@ -179,8 +179,6 @@ sub assign # O.K. rewrite Subject: of the article to distribute unless ($self->error) { my $header = $curproc->{ article }->{ header }; - - $self->_pcb_set_id($curproc, $id); # save $id info in PCB $self->_rewrite_header($header, $config, $id); $self->_set_status_info("newly assigned"); } diff --git a/fml/lib/FML/Ticket/System.pm b/fml/lib/FML/Ticket/System.pm index 24c98a06..442e79db 100644 --- a/fml/lib/FML/Ticket/System.pm +++ b/fml/lib/FML/Ticket/System.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: System.pm,v 1.25 2001/06/10 11:24:13 fukachan Exp $ +# $FML: System.pm,v 1.26 2001/10/22 14:10:07 fukachan Exp $ # package FML::Ticket::System; @@ -64,30 +64,6 @@ sub new } -# Descriptions: save the ticket $id in FML::PCB object -# Arguments: $self $curproc $id -# Side Effects: set id in PCB -# Return Value: none -sub _pcb_set_id -{ - my ($self, $curproc, $id) = @_; - my $pcb = $curproc->{ pcb }; # FML::PCB object - $pcb->set('ticket', 'id', $id); -} - - -# Descriptions: get the ticket $id from FML::PCB -# Arguments: $self $curproc -# Side Effects: none -# Return Value: number (ticket id) -sub _pcb_get_id -{ - my ($self, $curproc) = @_; - my $pcb = $curproc->{ pcb }; # FML::PCB object - $pcb->get('ticket', 'id'); -} - - # Descriptions: set up directory which is taken from # $self->{ _db_dir } # Arguments: $self $curproc $args |