- my $stat = IDZebra::update_record($self->{zh}, @args);
- # ADAM: rg no longer part of vector
- my $sysno = $args[1]; $stat = -1 * $stat if ($stat > 0);
- return $stat ? $stat : $$sysno;
+ my @ret = IDZebra::update_record($self->{zh}, @args);
+ return @ret; # ($status, $sysno)