-# $Id: Session.pm,v 1.13 2003-03-05 13:55:22 pop Exp $
+# $Id: Session.pm,v 1.14 2003-03-12 17:08:53 pop Exp $
#
# Zebra perl API header
# =============================================================================
use IDZebra::ScanList;
use IDZebra::RetrievalRecord;
require Exporter;
- our $VERSION = do { my @r = (q$Revision: 1.13 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+ our $VERSION = do { my @r = (q$Revision: 1.14 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
our @ISA = qw(IDZebra::Logger Exporter);
our @EXPORT = qw (TRANS_RW TRANS_RO);
}
}
sub _selectRecordGroup {
my ($self, $rg) = @_;
+
my $r = IDZebra::set_group($self->{zh}, $rg);
my $dbName;
unless ($dbName = $rg->{databaseName}) {
}
my %tmp;
-
my $changed = 0;
foreach my $db (@databases) {
- next if ($self->{databases}{$db});
$tmp{$db}++;
+ next if ($self->{databases}{$db});
$changed++;
}
return(IDZebra::delete_record($self->{zh},
$self->_record_update_args(%args)));
}
+
sub _record_update_args {
my ($self, %args) = @_;
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;
delete ($args{recordType});
delete ($args{file});
delete ($args{data});
+ delete ($args{force});
my $rg = $self->_makeRecordGroup(%args);
unless ($rectype) {
$rectype="";
}
- return ($rg, $rectype, $sysno, $match, $fname, $buff, $len);
+ return ($rg, $rectype, $sysno, $match, $fname, $buff, $len, $force);
}
# -----------------------------------------------------------------------------
# ============================================================================
-
__END__
=head1 NAME