gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 18277: Remove GetBiblionumberFromItemnumber - create_analytical_rel.pl 

I have no idea how to test this patch, see bug 5528, or simply read the
code.

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2017-03-15 12:39:01 -03:00
parent 2c9aeb9b0f
commit ed03edddbd
1 changed files with 26 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
misc/migration_tools/create_analytical_rel.pl
View File

@ -12,6 +12,7 @@ BEGIN {
use C4::Context;
use C4::Biblio;
use C4::Items;
use Koha::Items;
use Getopt::Long;
$| = 1;
@ -34,7 +35,6 @@ if (not $result or $want_help or not $do_update) {
my $num_bibs_processed = 0;
my $num_bibs_modified = 0;
my $num_nobib_foritemnumber = 0;
my $num_noitem_forbarcode = 0;
my $num_nobarcode_inhostfield =0;
my $num_hostfields_unabletomodify =0;
@ -91,36 +91,31 @@ sub process_bib {
my $analyticfield = '773';
foreach my $hostfield ( $bib->field($analyticfield) ) {
if(my $barcode = $hostfield->subfield('o')){
my $itemnumber = GetItemnumberFromBarcode($barcode);
if ($itemnumber ne undef){
my $bibnumber = GetBiblionumberFromItemnumber($itemnumber);
if ($bibnumber ne undef){
my $modif;
if ($hostfield->subfield('0') ne $bibnumber){
$hostfield->update('0', $bibnumber);
$modif = 1;
}
if ($hostfield->subfield('9') ne $itemnumber){
$hostfield->update('9', $itemnumber);
$modif=1;
}
if ($modif){
$num_bibs_modified++;
my $modresult = ModBiblio($bib, $biblionumber, '');
warn "Modifying biblio $biblionumber";
if (!$modresult){
warn "Unable to modify biblio $biblionumber with update host field";
$num_hostfields_unabletomodify++;
}
}
} else {
warn "No biblio record found corressponding to itemnumber $itemnumber";
$num_nobib_foritemnumber++;
}
} else {
warn "No item record found for barcode $barcode";
$num_noitem_forbarcode++;
}
my $item = Koha::Items->find({ barcode => $barcode });
if ($item) {
my $modif;
if ( $hostfield->subfield('0') ne $biblionumber ) {
$hostfield->update( '0', $biblionumber );
$modif = 1;
}
if ( $hostfield->subfield('9') ne $item->itemnumber ) {
$hostfield->update( '9', $item->itemnumber );
$modif = 1;
}
if ($modif) {
$num_bibs_modified++;
my $modresult = ModBiblio( $bib, $biblionumber, '' );
warn "Modifying biblio $biblionumber";
if ( !$modresult ) {
warn "Unable to modify biblio $biblionumber with update host field";
$num_hostfields_unabletomodify++;
}
}
}
else {
warn "No item record found for barcode $barcode";
$num_noitem_forbarcode++;
}
} else{
warn "No barcode in host field for biblionumber $biblionumber";
$num_nobarcode_inhostfield++;