my $mapping = $mapper->get_mapping();
foreach (@$mapping) {
print $_->{fromacc}."\n";
}
die ("Kein Mapping vorhanden.") unless (scalar(@$mapping) > 0);
} elsif ($command eq "CalcMapping") {
my $mapping = $mapper->get_mapping();
foreach (@$mapping) {
print $_->{fromacc}."\n";
}
die ("Kein Mapping vorhanden.") unless (scalar(@$mapping) > 0);
} elsif ($command eq "CalcMapping") {