- my @args = $self->_record_update_args(%args);
- my $stat = IDZebra::delete_record($self->{zh}, @args);
- return $stat;
+ my $sysno = $args{sysno} ? $args{sysno} : 0;
+ my $match = $args{match} ? $args{match} : "";
+ my $rectype = $args{recordType} ? $args{recordType} : "";
+ my $fname = $args{file} ? $args{file} : "<no file>";
+ my $force = $args{force} ? $args{force} : 0;
+ my $buff =_get_data_buff(%args);
+ my $len=0;
+ if ($buff) {$len= length($buff)};
+ my @args = ($rectype, $sysno, $match, $fname, $buff, $len, $force);
+ my @ret = IDZebra::delete_record($self->{zh}, @args);
+ return @ret;