DOKK / manpages / debian 12 / libcatmandu-alephx-perl / Catmandu::Store::AlephX.3pm.en
Catmandu::Store::AlephX(3pm) User Contributed Perl Documentation Catmandu::Store::AlephX(3pm)

Catmandu::Store::AlephX - A Catmandu AlephX service implemented as Catmandu::Store

 use Catmandu::Store::AlephX;
 my $store = Catmandu::Store::AlephX->new(url => 'http://aleph.ugent.be/X' , username => 'XXX' , password => 'XXX');
 $store->bag('usm01')->each(sub {
 });

Retrieves a record from the Aleph database. Requires a record identifier. Returns a Catmandu MARC record when found and undef on failure.

Adds or updates a record to the Aleph database. Requires a Catmandu type MARC record and a _id field containing the Aleph record number. This method with throw an error when an add cant be executed.

example

  #add new record. WARNING: Aleph will ignore the 001 field,
  my $new_record = eval {
    $bag->add({
    record =>  [
      [
        'FMT',
        '',
        '',
        '_',
        'SE'
      ],
      [
        'LDR',
        '',
        '',
        '_',
        '00000cas^^2200385^a^4500'
      ],
      [
        '001',
        '',
        '',
        '_',
        '000000444'
      ],
      [
        '005',
        '',
        '',
        '_',
        '20140212095615.0'
      ]
      ..
    ]
  });
  };
  if ($@) {
    die "add failed $@";
  }
  say "new record:".$record->{_id};

Deletes a record from the Aleph database. Requires a record identifier. Returns a true value when the record is deleted.

Loops over all records in the Aleph database executing callback for every record.

searcher()

Not implemented

delete_all()

Not implemented

delete_by_query()

Not implemented

Catmandu::Store

2023-02-02 perl v5.36.0