seb

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;
use File::Basename;
use File::stat;
use List::Util;
use CGI;
use C4::Auth;
use C4::Output;
use C4::Biblio;
use C4::Items;
use C4::Context;
use C4::Koha; # XXX subfield_is_koha_internal_p
use C4::Branch; # XXX subfield_is_koha_internal_p
use C4::ClassSource;
use C4::Dates;
use C4::Log;
use MARC::File::XML;
use Helene::fs_query;
use Helene::fs_response;
use Helene::Descriptor;

my $dbh = C4::Context->dbh;

my $rqbiblios=$dbh->prepare("select biblionumber from biblio");
$rqbiblios->execute;
$|=1;
while (my ($biblionumber) = $rqbiblios->fetchrow_array() )
{
  my $record = GetMarcBiblio($biblionumber);
  my @item_fields = $record->field('995');
  next if ! @item_fields;
  foreach my $field (@item_fields)
  {
    $record->delete_field($field);
  }
  ModBiblio( $record,$biblionumber, "");
}