remove not used _pcb_[sg]et_id()

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