| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/DivBasicF/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/DivBasicF/COMParam.pm |
package DivBasicF::COMParam;
use strict;
use vars qw(@ISA);
use DivBasicF::COM;
use Data::Dumper;
@ISA = qw(DivBasicF::COM);
#******************************************************************
sub getparam {
my $self = shift;
my $mode = shift;
my $nr = shift;
# if (!$nr) {
# return(shift(@{$self->{'PARS'}}));
# }
my $erg = [];
while ($nr > 0) {
last if (!(@{$self->{'PARS'}}));
push(@$erg,shift(@{$self->{'PARS'}}));
$nr = $nr - 1;
}
return($erg);
}
#*****************************************************************
sub paramadd {
my $self = shift;
my $mode = shift;
my @pars = @_;
my $o;
foreach $o (@pars) {
push(@{$self->{'PARS'}},$o);
}
return(["___added___"]);
}
#*****************************************************************
sub addparam {
my $self = shift;
my $mode = shift;
my @pars = @_;
my $o;
foreach $o (reverse @pars) {
unshift(@{$self->{'PARS'}},$o);
}
return($self->{'PARS'});
}
#*****************************************************************
1;