diff options
Diffstat (limited to 'fml/lib/FML/Ticket/System.pm')
| -rw-r--r-- | fml/lib/FML/Ticket/System.pm | 26 |
1 files changed, 1 insertions, 25 deletions
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 |
