use vars qw($VERSION @ISA $debug);
BEGIN {
- $VERSION = 1.03;
+ $VERSION = 3.07.00.049;
@ISA = qw(ILS::Transaction);
}
sub new {
my $class = shift;;
my $self = $class->SUPER::new();
- my $element;
- foreach $element (keys %fields) {
+ foreach my $element (keys %fields) {
$self->{_permitted}->{$element} = $fields{$element};
}
@{$self}{keys %fields} = values %fields;