WAIT/Table/Independent.pm

#                              -*- Mode: Cperl -*- 
# Independent.pm -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Fri Sep 13 14:00:37 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Nov 22 18:44:36 1998
# Language        : CPerl
# Update Count    : 5
# Status          : Unknown, Use with caution!
# 
# Copyright (c) 1996-1997, Ulrich Pfeifer
# 

package WAIT::Table::Independent;
use vars qw(@ISA);

@ISA = qw(WAIT::Table);

sub fetch {
  my $self = shift;
  my $key   = shift;
  my $name = $self->{name};

  my %tattr = $self->SUPER::fetch($key);
  if (%tattr) {
    $tattr{'_ee'} = "$name$key";
  }
  %tattr;
}

sub insert {
  my $self   = shift;
  my $weight = shift;

  $self->SUPER::insert(_weight => $weight, @_);
}

1	# -- Mode: Cperl --
2	# Independent.pm --
3	# ITIID : $ITI$ $Header $__Header$
4	# Author : Ulrich Pfeifer
5	# Created On : Fri Sep 13 14:00:37 1996
6	# Last Modified By: Ulrich Pfeifer
7	# Last Modified On: Sun Nov 22 18:44:36 1998
8	# Language : CPerl
9	# Update Count : 5
10	# Status : Unknown, Use with caution!
11	#
12	# Copyright (c) 1996-1997, Ulrich Pfeifer
13	#
14
15	package WAIT::Table::Independent;
16	use vars qw(@ISA);
17
18	@ISA = qw(WAIT::Table);
19
20	sub fetch {
21	my $self = shift;
22	my $key = shift;
23	my $name = $self->{name};
24
25	my %tattr = $self->SUPER::fetch($key);
26	if (%tattr) {
27	$tattr{'_ee'} = "$name$key";
28	}
29	%tattr;
30	}
31
32	sub insert {
33	my $self = shift;
34	my $weight = shift;
35
36	$self->SUPER::insert(_weight => $weight, @_);
37	}
38