summaryrefslogtreecommitdiff
path: root/fml/lib/FML/Ticket/System.pm
diff options
context:
space:
mode:
Diffstat (limited to 'fml/lib/FML/Ticket/System.pm')
-rw-r--r--fml/lib/FML/Ticket/System.pm26
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