#!/usr/bin/env perl

use strict;
use warnings;

use Benchmark qw/cmpthese timethese/;
use C4::Biblio;
use Koha::Biblios;

my $biblios = Koha::Biblios->search({biblionumber=>{'!='=>1} },{ order_by => "author"});
my $record = Koha::Biblios->find(1)->metadata->record;

my $control_num = $record->field('001')->data();
my $title = $record->subfield(245,'a');
my $subtitle = $record->subfield(245,'b');

my $linking_field = MARC::Field->new(773,'','','t'=> $title . $subtitle,'w' => $control_num);

while ( my $biblio = $biblios->next ){
    warn $biblio->biblionumber;
    my $record = $biblio->metadata->record;
    my @prev_links = $record->field(773);
    warn Data::Dumper::Dumper( @prev_links );
    $record->delete_fields( @prev_links ) if @prev_links;
    $record->leader("     nab a22      u 4500"); #make it a component record
    $record->insert_fields_ordered( $linking_field ); #add the link
    warn $record->as_formatted;
    C4::Biblio::ModBiblio( $record, $biblio->biblionumber, "");
}
    
