Bugzilla – Attachment 65695 Details for
Bug 19040
Change prototype of C4::Biblio::GetMarcBiblio
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 19040: print STDERRs to develop test plan
Bug-19040-print-STDERRs-to-develop-test-plan.patch (text/plain), 50.70 KB, created by
Mark Tompsett
on 2017-08-09 02:28:59 UTC
(
hide
)
Description:
Bug 19040: print STDERRs to develop test plan
Filename:
MIME Type:
Creator:
Mark Tompsett
Created:
2017-08-09 02:28:59 UTC
Size:
50.70 KB
patch
obsolete
>From cf4e7cfeaf2990aead2d33d946cecbdd659b8340 Mon Sep 17 00:00:00 2001 >From: Mark Tompsett <mtompset@hotmail.com> >Date: Tue, 8 Aug 2017 22:08:07 -0400 >Subject: [PATCH] Bug 19040: print STDERRs to develop test plan > >--- > C4/AuthoritiesMarc.pm | 1 + > C4/Biblio.pm | 7 +++++++ > C4/HoldsQueue.pm | 1 + > C4/ILSDI/Services.pm | 1 + > C4/Items.pm | 1 + > C4/Labels/Label.pm | 2 ++ > C4/Record.pm | 1 + > C4/Search.pm | 1 + > C4/Serials.pm | 1 + > C4/ShelfBrowser.pm | 1 + > Koha/Biblio.pm | 1 + > Koha/BiblioUtils.pm | 2 ++ > Koha/Exporter/Record.pm | 1 + > Koha/OAI/Server/Repository.pm | 1 + > basket/basket.pl | 1 + > basket/downloadcart.pl | 1 + > basket/sendbasket.pl | 1 + > catalogue/ISBDdetail.pl | 1 + > catalogue/MARCdetail.pl | 1 + > catalogue/detail.pl | 1 + > catalogue/export.pl | 1 + > catalogue/labeledMARCdetail.pl | 1 + > catalogue/moredetail.pl | 1 + > catalogue/showmarc.pl | 1 + > cataloguing/addbiblio.pl | 1 + > cataloguing/additem.pl | 3 +++ > cataloguing/linkitem.pl | 1 + > cataloguing/merge.pl | 3 +++ > cataloguing/value_builder/marc21_linking_section.pl | 1 + > cataloguing/value_builder/unimarc_field_4XX.pl | 1 + > circ/branchoverdues.pl | 1 + > circ/reserveratios.pl | 1 + > circ/transferstoreceive.pl | 1 + > circ/waitingreserves.pl | 1 + > misc/batchRebuildBiblioTables.pl | 1 + > misc/batchRebuildItemsTables.pl | 1 + > misc/batchRepairMissingBiblionumbers.pl | 1 + > misc/cronjobs/build_browser_and_cloud.pl | 1 + > misc/cronjobs/check-url-quick.pl | 1 + > misc/cronjobs/check-url.pl | 1 + > misc/link_bibs_to_authorities.pl | 1 + > misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl | 1 + > misc/maintenance/process_record_through_filter.pl | 1 + > misc/maintenance/remove_items_from_biblioitems.pl | 1 + > misc/maintenance/sanitize_records.pl | 1 + > misc/maintenance/touch_all_biblios.pl | 1 + > misc/migration_tools/buildEDITORS.pl | 1 + > misc/migration_tools/create_analytical_rel.pl | 1 + > misc/migration_tools/import_lexile.pl | 1 + > misc/migration_tools/rebuild_zebra.pl | 1 + > misc/migration_tools/switch_marc21_series_info.pl | 1 + > misc/migration_tools/upgradeitems.pl | 1 + > opac/opac-ISBDdetail.pl | 1 + > opac/opac-MARCdetail.pl | 1 + > opac/opac-basket.pl | 1 + > opac/opac-detail.pl | 1 + > opac/opac-downloadcart.pl | 1 + > opac/opac-downloadshelf.pl | 1 + > opac/opac-export.pl | 1 + > opac/opac-reserve.pl | 2 ++ > opac/opac-search.pl | 1 + > opac/opac-sendbasket.pl | 1 + > opac/opac-sendshelf.pl | 1 + > opac/opac-shelves.pl | 1 + > opac/opac-showmarc.pl | 1 + > opac/opac-showreviews.pl | 1 + > opac/opac-tags.pl | 1 + > opac/opac-user.pl | 1 + > serials/subscription-add.pl | 1 + > svc/bib | 3 +++ > svc/checkouts | 1 + > svc/holds | 1 + > svc/new_bib | 2 ++ > svc/records/preview | 1 + > tags/list.pl | 1 + > tools/batch_delete_records.pl | 1 + > tools/batch_record_modification.pl | 1 + > tools/showdiffmarc.pl | 1 + > virtualshelves/downloadshelf.pl | 1 + > virtualshelves/sendshelf.pl | 1 + > virtualshelves/shelves.pl | 1 + > 81 files changed, 97 insertions(+) > >diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm >index 8b9c6c1..b510858 100644 >--- a/C4/AuthoritiesMarc.pm >+++ b/C4/AuthoritiesMarc.pm >@@ -1475,6 +1475,7 @@ sub merge { > > my $counteditedbiblio = 0; > foreach my $biblionumber ( @biblionumbers ) { >+ print STDERR "C4/AuthoritiesMarc: 1\n"; > my $marcrecord = GetMarcBiblio({ biblionumber => $biblionumber }); > next if !$marcrecord; > my $update = 0; >diff --git a/C4/Biblio.pm b/C4/Biblio.pm >index 54a6731..196a42b 100644 >--- a/C4/Biblio.pm >+++ b/C4/Biblio.pm >@@ -293,6 +293,7 @@ sub ModBiblio { > } > > if ( C4::Context->preference("CataloguingLog") ) { >+ print STDERR "C4/Biblio: 1\n"; > my $newrecord = GetMarcBiblio({ biblionumber => $biblionumber }); > logaction( "CATALOGUING", "MODIFY", $biblionumber, "biblio BEFORE=>" . $newrecord->as_formatted ); > } >@@ -1170,11 +1171,13 @@ OpacHiddenItems to be applied. > sub GetMarcBiblio { > my ($params) = @_; > >+ print STDERR "C4/Biblio: 2\n"; > if (not defined $params) { > carp 'GetMarcBiblio called without parameters'; > return; > } > >+ print STDERR "C4/Biblio: 3\n"; > my $biblionumber = $params->{biblionumber}; > my $embeditems = $params->{embed_items} || 0; > my $opac = $params->{opac} || 0; >@@ -2194,6 +2197,7 @@ sub PrepHostMarcField { > my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_; > $marcflavour ||="MARC21"; > >+ print STDERR "C4/Biblio: 4\n"; > require C4::Items; > my $hostrecord = GetMarcBiblio({ biblionumber => $hostbiblionumber }); > my $item = C4::Items::GetItem($hostitemnumber); >@@ -2844,6 +2848,7 @@ sub ModZebra { > ); > if ( $op eq 'specialUpdate' ) { > unless ($record) { >+ print STDERR "C4/Biblio: 5\n"; > $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >@@ -3459,6 +3464,7 @@ Generate the host item entry for an analytic child entry > sub prepare_host_field { > my ( $hostbiblio, $marcflavour ) = @_; > $marcflavour ||= C4::Context->preference('marcflavour'); >+ print STDERR "C4/Biblio: 6\n"; > my $host = GetMarcBiblio({ biblionumber => $hostbiblio }); > # unfortunately as_string does not 'do the right thing' > # if field returns undef >@@ -3597,6 +3603,7 @@ sub UpdateTotalIssues { > my ($biblionumber, $increase, $value) = @_; > my $totalissues; > >+ print STDERR "C4/Biblio: 7\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > unless ($record) { > carp "UpdateTotalIssues could not get biblio record"; >diff --git a/C4/HoldsQueue.pm b/C4/HoldsQueue.pm >index ce525ba..05e67f1 100755 >--- a/C4/HoldsQueue.pm >+++ b/C4/HoldsQueue.pm >@@ -146,6 +146,7 @@ sub GetHoldsQueueItems { > $sth->execute(@bind_params); > my $items = []; > while ( my $row = $sth->fetchrow_hashref ){ >+ print STDERR "C4/HoldsQueue: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $row->{biblionumber} }); > if ($record){ > $row->{subtitle} = [ map { $_->{subfield} } @{ GetRecordValue( 'subtitle', $record, '' ) } ]; >diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm >index 816f1ed..5d23015 100644 >--- a/C4/ILSDI/Services.pm >+++ b/C4/ILSDI/Services.pm >@@ -214,6 +214,7 @@ sub GetRecords { > } > > my $embed_items = 1; >+ print STDERR "C4/ILSDI/Services: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => $embed_items }); >diff --git a/C4/Items.pm b/C4/Items.pm >index 18debb5..25a9d11 100644 >--- a/C4/Items.pm >+++ b/C4/Items.pm >@@ -1321,6 +1321,7 @@ references on array of itemnumbers. > > sub get_hostitemnumbers_of { > my ($biblionumber) = @_; >+ print STDERR "C4/Items: 1\n"; > my $marcrecord = GetMarcBiblio({ biblionumber => $biblionumber }); > > return unless $marcrecord; >diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm >index 8fe725f..6615a12 100644 >--- a/C4/Labels/Label.pm >+++ b/C4/Labels/Label.pm >@@ -396,6 +396,7 @@ sub draw_label_text { > my $font = $self->{'font'}; > my $item = _get_label_item($self->{'item_number'}); > my $label_fields = _get_text_fields($self->{'format_string'}); >+ print STDERR "C4/Labels/Label: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $item->{'biblionumber'} }); > # FIXME - returns all items, so you can't get data from an embedded holdings field. > # TODO - add a GetMarcBiblio1item(bibnum,itemnum) or a GetMarcItem(itemnum). >@@ -601,6 +602,7 @@ sub csv_data { > my $self = shift; > my $label_fields = _get_text_fields($self->{'format_string'}); > my $item = _get_label_item($self->{'item_number'}); >+ print STDERR "C4/Labels/Label: 2\n"; > my $bib_record = GetMarcBiblio({ biblionumber => $item->{biblionumber} }); > my @csv_data = (map { _get_barcode_data($_->{'code'},$item,$bib_record) } @$label_fields); > return \@csv_data; >diff --git a/C4/Record.pm b/C4/Record.pm >index af619ac..bf743ab 100644 >--- a/C4/Record.pm >+++ b/C4/Record.pm >@@ -471,6 +471,7 @@ sub marcrecord2csv { > my $output; > > # Getting the record >+ print STDERR "C4/Record: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblio }); > return unless $record; > C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblio, $itemnumbers ); >diff --git a/C4/Search.pm b/C4/Search.pm >index 9278f26..577a168 100644 >--- a/C4/Search.pm >+++ b/C4/Search.pm >@@ -2008,6 +2008,7 @@ sub searchResults { > my $hostbiblionumber = $hostfield->subfield("0"); > my $linkeditemnumber = $hostfield->subfield("9"); > if(!$hostbiblionumber eq undef){ >+ print STDERR "C4/Search: 1\n"; > my $hostbiblio = GetMarcBiblio({ > biblionumber => $hostbiblionumber, > embed_items => 1 }); >diff --git a/C4/Serials.pm b/C4/Serials.pm >index d79c0a5..45ac674 100644 >--- a/C4/Serials.pm >+++ b/C4/Serials.pm >@@ -1485,6 +1485,7 @@ sub NewSubscription { > #set serial flag on biblio if not already set. > my $biblio = Koha::Biblios->find( $biblionumber ); > if ( $biblio and !$biblio->serial ) { >+ print STDERR "C4/Serials: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > my ( $tag, $subf ) = GetMarcFromKohaField( 'biblio.serial', $biblio->frameworkcode ); > if ($tag) { >diff --git a/C4/ShelfBrowser.pm b/C4/ShelfBrowser.pm >index ee551d2..8e3994e 100644 >--- a/C4/ShelfBrowser.pm >+++ b/C4/ShelfBrowser.pm >@@ -223,6 +223,7 @@ sub GetShelfInfo { > my $this_biblio = GetBibData($item->{biblionumber}); > next unless defined $this_biblio; > $item->{'title'} = $this_biblio->{'title'}; >+ print STDERR "C4/ShelfBrowser: 1\n"; > my $this_record = GetMarcBiblio({ biblionumber => $this_biblio->{'biblionumber'} }); > $item->{'browser_normalized_upc'} = GetNormalizedUPC($this_record,$marcflavour); > $item->{'browser_normalized_oclc'} = GetNormalizedOCLCNumber($this_record,$marcflavour); >diff --git a/Koha/Biblio.pm b/Koha/Biblio.pm >index f4e5e2f..bc26e76 100644 >--- a/Koha/Biblio.pm >+++ b/Koha/Biblio.pm >@@ -58,6 +58,7 @@ Keyword to MARC mapping for subtitle must be set for this method to return any p > sub subtitles { > my ( $self ) = @_; > >+ print STDERR "Koha/Biblio: 1\n"; > return map { $_->{subfield} } @{ > C4::Biblio::GetRecordValue( > 'subtitle', >diff --git a/Koha/BiblioUtils.pm b/Koha/BiblioUtils.pm >index 73fc12a..599b5b6 100644 >--- a/Koha/BiblioUtils.pm >+++ b/Koha/BiblioUtils.pm >@@ -121,6 +121,7 @@ sub get_all_biblios_iterator { > while (1) { > my $row = $rs->next(); > return if !$row; >+ print STDERR "Koha/BiblioUtils: 1\n"; > my $marc = C4::Biblio::GetMarcBiblio({ > biblionumber => $row->biblionumber, > embed_items => 1 }); >@@ -160,6 +161,7 @@ If set to true, item data is embedded in the record. Default is to not do this. > sub get_marc_biblio { > my ($class, $bibnum, %options) = @_; > >+ print STDERR "Koha/BiblioUtils: 2\n"; > return C4::Biblio::GetMarcBiblio({ > biblionumber => $bibnum, > embed_items => ($options{item_data} ? 1 : 0 ) }); >diff --git a/Koha/Exporter/Record.pm b/Koha/Exporter/Record.pm >index f9d62df..ab73cef 100644 >--- a/Koha/Exporter/Record.pm >+++ b/Koha/Exporter/Record.pm >@@ -65,6 +65,7 @@ sub _get_biblio_for_export { > my $export_items = $params->{export_items} // 1; > my $only_export_items_for_branch = $params->{only_export_items_for_branch}; > >+ print STDERR "Koha/Exporter/Record: 1\n"; > my $record = eval { C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); }; > > return if $@ or not defined $record; >diff --git a/Koha/OAI/Server/Repository.pm b/Koha/OAI/Server/Repository.pm >index da136cd..35f90cf 100644 >--- a/Koha/OAI/Server/Repository.pm >+++ b/Koha/OAI/Server/Repository.pm >@@ -160,6 +160,7 @@ sub get_biblio_marcxml { > if ( my $conf = $self->{conf} ) { > $with_items = $conf->{format}->{$format}->{include_items}; > } >+ print STDERR "Koha/OAI/Server/Repository: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => $with_items, >diff --git a/basket/basket.pl b/basket/basket.pl >index 1db9ed7..9f7e68b 100755 >--- a/basket/basket.pl >+++ b/basket/basket.pl >@@ -63,6 +63,7 @@ foreach my $biblionumber ( @bibs ) { > > my $dat = &GetBiblioData($biblionumber); > next unless $dat; >+ print STDERR "basket/basket: 1\n"; > my $record = &GetMarcBiblio({ biblionumber => $biblionumber }); > my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); > my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); >diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl >index 4653449..5da1baa 100755 >--- a/basket/downloadcart.pl >+++ b/basket/downloadcart.pl >@@ -65,6 +65,7 @@ if ($bib_list && $format) { > > foreach my $biblio (@bibs) { > >+ print STDERR "basket/downloadcart: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblio, > embed_items => 1 }); >diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl >index 224db2d..592265c 100755 >--- a/basket/sendbasket.pl >+++ b/basket/sendbasket.pl >@@ -73,6 +73,7 @@ if ( $email_add ) { > > my $dat = GetBiblioData($biblionumber); > next unless $dat; >+ print STDERR "basket/sendcart: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl >index f58e1a9..37d872a 100755 >--- a/catalogue/ISBDdetail.pl >+++ b/catalogue/ISBDdetail.pl >@@ -78,6 +78,7 @@ if ( not defined $biblionumber ) { > exit; > } > >+print STDERR "catalogue/ISBDdetail: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl >index 6474f3e..df56894 100755 >--- a/catalogue/MARCdetail.pl >+++ b/catalogue/MARCdetail.pl >@@ -88,6 +88,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( > } > ); > >+print STDERR "catalogue/MARCdetail: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/catalogue/detail.pl b/catalogue/detail.pl >index 1e18a1d..3de7011 100755 >--- a/catalogue/detail.pl >+++ b/catalogue/detail.pl >@@ -63,6 +63,7 @@ my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user( > > my $biblionumber = $query->param('biblionumber'); > $biblionumber = HTML::Entities::encode($biblionumber); >+print STDERR "catalogue/detail: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > > if ( not defined $record ) { >diff --git a/catalogue/export.pl b/catalogue/export.pl >index c10686c..32ee9f4 100755 >--- a/catalogue/export.pl >+++ b/catalogue/export.pl >@@ -28,6 +28,7 @@ if ($op eq "export") { > my $biblionumber = $query->param("bib"); > if ($biblionumber){ > >+ print STDERR "catalogue/export: 1\n"; > my $marc = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/catalogue/labeledMARCdetail.pl b/catalogue/labeledMARCdetail.pl >index d84c75f..f567e1c 100755 >--- a/catalogue/labeledMARCdetail.pl >+++ b/catalogue/labeledMARCdetail.pl >@@ -56,6 +56,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( > } > ); > >+print STDERR "catalogue/labeledMARCdetail: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > if ( not defined $record ) { > # biblionumber invalid -> report and exit >diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl >index 5bc1d2f..705e889 100755 >--- a/catalogue/moredetail.pl >+++ b/catalogue/moredetail.pl >@@ -100,6 +100,7 @@ for my $itm (@all_items) { > ($itemnumber != $itm->{itemnumber})); > } > >+print "catalogue/moredetail: 1\n"; > my $record=GetMarcBiblio({ biblionumber => $biblionumber }); > > my $hostrecords; >diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl >index 11c4f39..0fa0459 100755 >--- a/catalogue/showmarc.pl >+++ b/catalogue/showmarc.pl >@@ -46,6 +46,7 @@ if ($importid) { > $record = C4::ImportBatch::GetRecordFromImportBiblio( $importid, 'embed_items' ); > } > else { >+ print STDERR "catalogue/showmarc: 1\n"; > $record =GetMarcBiblio({ biblionumber => $biblionumber }); > } > if(!ref $record) { >diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl >index b72d71f..74efcfe 100755 >--- a/cataloguing/addbiblio.pl >+++ b/cataloguing/addbiblio.pl >@@ -770,6 +770,7 @@ my ( > ); > > if (($biblionumber) && !($breedingid)){ >+ print STDERR "cataloguing/addbiblio: 1\n"; > $record = GetMarcBiblio({ biblionumber => $biblionumber }); > } > if ($breedingid) { >diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl >index eb18cc3..68c9df8 100755 >--- a/cataloguing/additem.pl >+++ b/cataloguing/additem.pl >@@ -411,6 +411,7 @@ $restrictededition = 0 if ($restrictededition != 0 && C4::Context->IsSuperLibra > $restrictededition = 0 if ($restrictededition != 0 && $frameworkcode eq 'FA' && haspermission($uid, {'editcatalogue' => 'fast_cataloging'})); > > my $tagslib = &GetMarcStructure(1,$frameworkcode); >+print STDERR "cataloguing/additem: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > my $oldrecord = TransformMarcToKoha($record); > my $itemrecord; >@@ -724,6 +725,7 @@ if ($op eq "additem") { > #------------------------------------------------------------------------------- > > # now, build existiing item list >+print STDERR "cataloguing/additem: 2\n"; > my $temp = GetMarcBiblio({ biblionumber => $biblionumber }); > #my @fields = $record->fields(); > >@@ -748,6 +750,7 @@ if ( C4::Context->preference('EasyAnalyticalRecords') ) { > foreach my $hostfield ($temp->field($analyticfield)){ > my $hostbiblionumber = $hostfield->subfield('0'); > if ($hostbiblionumber){ >+print STDERR "cataloguing/additem: 3\n"; > my $hostrecord = GetMarcBiblio({ > biblionumber => $hostbiblionumber, > embed_items => 1 }); >diff --git a/cataloguing/linkitem.pl b/cataloguing/linkitem.pl >index e23ff25..c0503a2 100755 >--- a/cataloguing/linkitem.pl >+++ b/cataloguing/linkitem.pl >@@ -45,6 +45,7 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user( > } > ); > >+print STDERR "cataloguing/linkitem: 1\n"; > my $biblio = GetMarcBiblio({ biblionumber => $biblionumber }); > my $marcflavour = C4::Context->preference("marcflavour"); > $marcflavour ||="MARC21"; >diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl >index 4594671..e726b01 100755 >--- a/cataloguing/merge.pl >+++ b/cataloguing/merge.pl >@@ -78,6 +78,7 @@ if ($merge) { > } > > # Rewriting the leader >+ print STDERR "cataloguing/merge: 1\n"; > $record->leader(GetMarcBiblio({ biblionumber => $ref_biblionumber })->leader()); > > my $frameworkcode = $input->param('frameworkcode'); >@@ -115,6 +116,7 @@ if ($merge) { > my $report_header = {}; > foreach my $biblionumber ($ref_biblionumber, @biblionumbers) { > # build report >+print STDERR "cataloguing/merge: 2\n"; > my $marcrecord = GetMarcBiblio({ biblionumber => $biblionumber }); > my %report_record = ( > biblionumber => $biblionumber, >@@ -202,6 +204,7 @@ if ($merge) { > # Creating a loop for display > my @records; > foreach my $biblionumber (@biblionumbers) { >+print STDERR "cataloguing/merge: 3\n"; > my $marcrecord = GetMarcBiblio({ biblionumber => $biblionumber }); > my $frameworkcode = GetFrameworkCode($biblionumber); > my $recordObj = new Koha::MetadataRecord({'record' => $marcrecord, schema => $marcflavour}); >diff --git a/cataloguing/value_builder/marc21_linking_section.pl b/cataloguing/value_builder/marc21_linking_section.pl >index 0fb9b7b..6141ef1 100755 >--- a/cataloguing/value_builder/marc21_linking_section.pl >+++ b/cataloguing/value_builder/marc21_linking_section.pl >@@ -85,6 +85,7 @@ my $launcher = sub { > ); > > #get marc record >+ print STDERR "cataloguing/value_builder/marc21_linking_section: 1\n"; > $marcrecord = GetMarcBiblio({ biblionumber => $biblionumber }); > > my $subfield_value_9 = $biblionumber; >diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl >index c514349..0b6c65e 100755 >--- a/cataloguing/value_builder/unimarc_field_4XX.pl >+++ b/cataloguing/value_builder/unimarc_field_4XX.pl >@@ -96,6 +96,7 @@ sub plugin { > ); > > #get marc record >+ print STDERR "cataloguing/value_builder/unimarc_field_4XX: 1\n"; > $marcrecord = GetMarcBiblio({ biblionumber => $biblionumber }); > > my $subfield_value_9 = $biblionumber; >diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl >index 5f4f01f..4af0d63 100755 >--- a/circ/branchoverdues.pl >+++ b/circ/branchoverdues.pl >@@ -110,6 +110,7 @@ if ($tagslib->{$tag}->{$subfield}->{authorised_value}) { > # now display infos > foreach my $num (@getoverdues) { > my %overdueforbranch; >+ print STDERR "circ/branchoverdues: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $num->{biblionumber} }); > if ($record){ > $overdueforbranch{'subtitle'} = GetRecordValue('subtitle',$record,'')->[0]->{subfield}; >diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl >index e7c28c7..4cc50a5 100755 >--- a/circ/reserveratios.pl >+++ b/circ/reserveratios.pl >@@ -144,6 +144,7 @@ while ( my $data = $sth->fetchrow_hashref ) { > my $thisratio = $data->{reservecount} / $data->{itemcount}; > my $ratiocalc = ($thisratio / $ratio); > ($thisratio / $ratio) >= 1 or next; # TODO: tighter targeting -- get ratio limit into SQL using HAVING clause >+ print STDERR "circ/reserveratios: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $data->{biblionumber} }); > $data->{subtitle} = GetRecordValue('subtitle', $record, GetFrameworkCode($data->{biblionumber})); > push( >diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl >index 0929ed3..372cc14 100755 >--- a/circ/transferstoreceive.pl >+++ b/circ/transferstoreceive.pl >@@ -109,6 +109,7 @@ while ( my $library = $libraries->next ) { > itemcallnumber => $item->itemcallnumber, > ); > >+ print STDERR "circ/transferstoreceive: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblio->biblionumber }); > $getransf{'subtitle'} = GetRecordValue('subtitle', $record, $biblio->frameworkcode); > >diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl >index 55c5c07..b7d060a 100755 >--- a/circ/waitingreserves.pl >+++ b/circ/waitingreserves.pl >@@ -113,6 +113,7 @@ foreach my $num (@getreserves) { > > $getreserv{'itemtype'} = $itemtype->description; # FIXME Should not it be translated_description? > $getreserv{'title'} = $biblio->title; >+ print STDERR "circ/waitingreserves: 1\n"; > $getreserv{'subtitle'} = GetRecordValue( > 'subtitle', > GetMarcBiblio({ biblionumber => $biblio->biblionumber }), >diff --git a/misc/batchRebuildBiblioTables.pl b/misc/batchRebuildBiblioTables.pl >index 5db801b..00612cd 100755 >--- a/misc/batchRebuildBiblioTables.pl >+++ b/misc/batchRebuildBiblioTables.pl >@@ -61,6 +61,7 @@ $sth->execute; > my @errors; > while (my ($biblionumber)= $sth->fetchrow) { > #now, parse the record, extract the item fields, and store them in somewhere else. >+ print STDERR "misc/batchRebuildBiblioTables: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > if (not defined $record) { > push @errors, $biblionumber; >diff --git a/misc/batchRebuildItemsTables.pl b/misc/batchRebuildItemsTables.pl >index e0499c0..43c80d0 100755 >--- a/misc/batchRebuildItemsTables.pl >+++ b/misc/batchRebuildItemsTables.pl >@@ -68,6 +68,7 @@ $sth->execute(); > while ( my ( $biblionumber, $biblioitemnumber, $frameworkcode ) = $sth->fetchrow ) { > $count++; > warn $count unless $count % 1000; >+ print STDERR "misc/batchRebuildItemsTables: 1\n"; > my $record = GetMarcBiblio({ > biblionummber => $biblionumber, > embed_items => 1 }); >diff --git a/misc/batchRepairMissingBiblionumbers.pl b/misc/batchRepairMissingBiblionumbers.pl >index ca8064c..15140ed 100755 >--- a/misc/batchRepairMissingBiblionumbers.pl >+++ b/misc/batchRepairMissingBiblionumbers.pl >@@ -24,6 +24,7 @@ my $sth=$dbh->prepare("SELECT biblio.biblionumber, biblioitemnumber, frameworkco > $sth->execute(); > > while (my ($biblionumber,$biblioitemnumber,$frameworkcode)=$sth->fetchrow ){ >+ print STDERR "misc/batchRepairMissingBiblionumbers: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > C4::Biblio::_koha_marc_update_bib_ids($record, $frameworkcode, $biblionumber, $biblioitemnumber); > my $biblionumber = eval {ModBiblioMarc( $record, $biblionumber, $frameworkcode )}; >diff --git a/misc/cronjobs/build_browser_and_cloud.pl b/misc/cronjobs/build_browser_and_cloud.pl >index d5e0d1a..ff47294 100755 >--- a/misc/cronjobs/build_browser_and_cloud.pl >+++ b/misc/cronjobs/build_browser_and_cloud.pl >@@ -91,6 +91,7 @@ while ((my ($biblionumber)= $sth->fetchrow)) { > #now, parse the record, extract the item fields, and store them in somewhere else. > my $Koharecord; > eval{ >+ print STDERR "misc/cronjobs/build_browser_and_cloud: 1\n"; > $Koharecord = GetMarcBiblio({ biblionumber => $biblionumber }); > }; > if($@){ >diff --git a/misc/cronjobs/check-url-quick.pl b/misc/cronjobs/check-url-quick.pl >index f9b1c32..4bcd97b 100755 >--- a/misc/cronjobs/check-url-quick.pl >+++ b/misc/cronjobs/check-url-quick.pl >@@ -90,6 +90,7 @@ sub check_all_url { > cb => sub { > return if $count > $maxconn; > while ( my ($biblionumber) = $sth->fetchrow ) { >+ print STDERR "misc/cronjobs/check-url-quick: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > for my $tag (@tags) { > foreach my $field ( $record->field($tag) ) { >diff --git a/misc/cronjobs/check-url.pl b/misc/cronjobs/check-url.pl >index 5c0957b..e8a12fd 100755 >--- a/misc/cronjobs/check-url.pl >+++ b/misc/cronjobs/check-url.pl >@@ -105,6 +105,7 @@ sub check_biblio { > my $host = $self->{ host_default }; > my $bad_url = $self->{ bad_url }; > >+ print STDERR "misc/cronjobs/check-url: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > return unless $record->field('856'); > >diff --git a/misc/link_bibs_to_authorities.pl b/misc/link_bibs_to_authorities.pl >index b139a76..7f8e84b 100755 >--- a/misc/link_bibs_to_authorities.pl >+++ b/misc/link_bibs_to_authorities.pl >@@ -187,6 +187,7 @@ sub process_bib { > my $linker = shift; > my $biblionumber = shift; > >+ print STDERR "misc/link_bibs_to_authorities: 1\n"; > my $bib = GetMarcBiblio({ biblionumber => $biblionumber }); > unless ( defined $bib ) { > print >diff --git a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl b/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl >index a46dc7b..4c90e23 100755 >--- a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl >+++ b/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl >@@ -87,6 +87,7 @@ my $sth_prepared; > > sub updateMarc { > my $id = shift; >+ print STDERR "misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio: 1\n"; > my $biblio = GetMarcBiblio({ biblionumber => $id }); > > unless ($biblio) { >diff --git a/misc/maintenance/process_record_through_filter.pl b/misc/maintenance/process_record_through_filter.pl >index baf137a..f39ca44 100755 >--- a/misc/maintenance/process_record_through_filter.pl >+++ b/misc/maintenance/process_record_through_filter.pl >@@ -10,6 +10,7 @@ use Koha::RecordProcessor; > use Data::Dumper; > use C4::Biblio; > >+print STDERR "misc/maintenance/process_record_through_filter: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $ARGV[0] }); > > print "Before: " . $record->as_formatted() . "\n"; >diff --git a/misc/maintenance/remove_items_from_biblioitems.pl b/misc/maintenance/remove_items_from_biblioitems.pl >index 597195e..fbc671d 100755 >--- a/misc/maintenance/remove_items_from_biblioitems.pl >+++ b/misc/maintenance/remove_items_from_biblioitems.pl >@@ -49,6 +49,7 @@ while (my $biblionumber = $query->fetchrow){ > $count++; > print "." unless $silent; > print "\r$count" unless ($silent or ($count % 100)); >+ print STDERR "misc/maintenance/remove_items_from_biblioitems: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > > if ($record) { >diff --git a/misc/maintenance/sanitize_records.pl b/misc/maintenance/sanitize_records.pl >index 7079ea0..20810ba 100755 >--- a/misc/maintenance/sanitize_records.pl >+++ b/misc/maintenance/sanitize_records.pl >@@ -108,6 +108,7 @@ for my $biblionumber (@biblionumbers) { > say " skipping. ERROR: Invalid biblionumber." if $verbose; > next; > } >+ print STDERR "misc/maintenance/sanitize_records: 1\n"; > my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); > unless ($record) { > say " skipping. ERROR: Invalid record." if $verbose; >diff --git a/misc/maintenance/touch_all_biblios.pl b/misc/maintenance/touch_all_biblios.pl >index d091089..7817a83 100755 >--- a/misc/maintenance/touch_all_biblios.pl >+++ b/misc/maintenance/touch_all_biblios.pl >@@ -78,6 +78,7 @@ $sth1->execute(); > > # fetch info from the search > while (my ($biblionumber, $frameworkcode) = $sth1->fetchrow_array){ >+ print STDERR "misc/maintenance/touch_all_biblios: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > > my $modok = ModBiblio($record, $biblionumber, $frameworkcode); >diff --git a/misc/migration_tools/buildEDITORS.pl b/misc/migration_tools/buildEDITORS.pl >index f5e1a71..df6ea9b 100755 >--- a/misc/migration_tools/buildEDITORS.pl >+++ b/misc/migration_tools/buildEDITORS.pl >@@ -70,6 +70,7 @@ my %alreadydone; > my $counter; > my %hash; > while (my ($bibid) = $sth->fetchrow) { >+ print STDERR "misc/migration_tools/buildEDITORS: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $bibid }); > my $isbnField = $record->field('010'); > next unless $isbnField; >diff --git a/misc/migration_tools/create_analytical_rel.pl b/misc/migration_tools/create_analytical_rel.pl >index a06305f..3de8d7a 100755 >--- a/misc/migration_tools/create_analytical_rel.pl >+++ b/misc/migration_tools/create_analytical_rel.pl >@@ -81,6 +81,7 @@ _SUMMARY_ > sub process_bib { > my $biblionumber = shift; > >+ print STDERR "misc/migration_tools/create_analytical_rel: 1\n"; > my $bib = GetMarcBiblio({ biblionumber => $biblionumber }); > unless (defined $bib) { > print "\nCould not retrieve bib $biblionumber from the database - record is corrupt.\n"; >diff --git a/misc/migration_tools/import_lexile.pl b/misc/migration_tools/import_lexile.pl >index 131db44..da4f6b8 100755 >--- a/misc/migration_tools/import_lexile.pl >+++ b/misc/migration_tools/import_lexile.pl >@@ -152,6 +152,7 @@ while ( my $row = $csv->getline_hr($fh) ) { > > foreach my $biblionumber (@biblionumbers) { > $counter++; >+ print STDERR "misc/migration_tools/import_lexile: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > > if ($verbose) { >diff --git a/misc/migration_tools/rebuild_zebra.pl b/misc/migration_tools/rebuild_zebra.pl >index 5e43cd6..b426dc1 100755 >--- a/misc/migration_tools/rebuild_zebra.pl >+++ b/misc/migration_tools/rebuild_zebra.pl >@@ -675,6 +675,7 @@ sub get_raw_marc_record { > > my $marc; > if ($record_type eq 'biblio') { >+ print STDERR "misc/migration_tools/rebuild_index: 1\n"; > eval { $marc = GetMarcBiblio({ biblionumber => $record_number, embed_items => 1 }); }; > if ($@ || !$marc) { > # here we do warn since catching an exception >diff --git a/misc/migration_tools/switch_marc21_series_info.pl b/misc/migration_tools/switch_marc21_series_info.pl >index ef05f0a..6e38e90 100755 >--- a/misc/migration_tools/switch_marc21_series_info.pl >+++ b/misc/migration_tools/switch_marc21_series_info.pl >@@ -139,6 +139,7 @@ while ( my ( $biblionumber ) = $bibs_sth->fetchrow ) { > my ( @newfields ); > > # Get biblio marc >+ print STDERR "misc/migration_tools/switch_marc21_series_info: 1\n"; > my $biblio = GetMarcBiblio({ biblionumber => $biblionumber }); > > foreach my $field ( $biblio->field( '440' ) ) { >diff --git a/misc/migration_tools/upgradeitems.pl b/misc/migration_tools/upgradeitems.pl >index e3f11d6..c9f0e6a 100755 >--- a/misc/migration_tools/upgradeitems.pl >+++ b/misc/migration_tools/upgradeitems.pl >@@ -18,6 +18,7 @@ my $rqitemnumber=$dbh->prepare("SELECT itemnumber, biblionumber from items where > $rqbiblios->execute; > $|=1; > while (my ($biblionumber)= $rqbiblios->fetchrow_array){ >+ print STDERR "misc/migration_tools/upgradeitems: 1\n"; > my $record=GetMarcBiblio({ biblionumber => $biblionumber }); > foreach my $itemfield ($record->field('995')){ > my $marcitem=MARC::Record->new(); >diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl >index a3cb1a9..9458adf 100755 >--- a/opac/opac-ISBDdetail.pl >+++ b/opac/opac-ISBDdetail.pl >@@ -93,6 +93,7 @@ if (scalar @items >= 1) { > } > } > >+print STDERR "opac/opac-ISBDdetail: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl >index 9605cdd..5ed23af 100755 >--- a/opac/opac-MARCdetail.pl >+++ b/opac/opac-MARCdetail.pl >@@ -71,6 +71,7 @@ if ( ! $biblionumber ) { > exit; > } > >+print STDERR "opac/opac-MARCdetail: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl >index f842587..8f9f251 100755 >--- a/opac/opac-basket.pl >+++ b/opac/opac-basket.pl >@@ -65,6 +65,7 @@ foreach my $biblionumber ( @bibs ) { > my $dat = &GetBiblioData($biblionumber); > next unless $dat; > >+ print STDERR "opac/opac-basket: 1\n"; > my $record = &GetMarcBiblio({ biblionumber => $biblionumber }); > my $framework = &GetFrameworkCode( $biblionumber ); > $record_processor->options({ >diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl >index 8252e50..49e766c 100755 >--- a/opac/opac-detail.pl >+++ b/opac/opac-detail.pl >@@ -90,6 +90,7 @@ if (scalar @all_items >= 1) { > } > } > >+print STDERR "opac/opac-detail: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > if ( ! $record ) { > print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early >diff --git a/opac/opac-downloadcart.pl b/opac/opac-downloadcart.pl >index 76fa095..cc7a16b 100755 >--- a/opac/opac-downloadcart.pl >+++ b/opac/opac-downloadcart.pl >@@ -68,6 +68,7 @@ if ($bib_list && $format) { > }); > foreach my $biblio (@bibs) { > >+ print STDERR "opac/opac-downloadcart: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblio, > embed_items => 1 }); >diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl >index 007dd5f..9d80c01 100755 >--- a/opac/opac-downloadshelf.pl >+++ b/opac/opac-downloadshelf.pl >@@ -81,6 +81,7 @@ if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) { > while ( my $content = $contents->next ) { > my $biblionumber = $content->biblionumber; > >+ print STDERR "opac/opac-downloadshelf: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/opac/opac-export.pl b/opac/opac-export.pl >index 6023d78..07e732d 100755 >--- a/opac/opac-export.pl >+++ b/opac/opac-export.pl >@@ -36,6 +36,7 @@ $biblionumber = int($biblionumber); > my $error = q{}; > > my $include_items = ($format =~ /bibtex/) ? 0 : 1; >+print STDERR "opac/opac-export: 1\n"; > my $marc = $biblionumber > ? GetMarcBiblio({ > biblionumber => $biblionumber, >diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl >index 95204b3..4e11385 100755 >--- a/opac/opac-reserve.pl >+++ b/opac/opac-reserve.pl >@@ -159,6 +159,7 @@ foreach my $biblioNumber (@biblionumbers) { > > my @itemInfos = GetItemsInfo($biblioNumber); > >+ print STDERR "opac/opac-reserve: 1\n"; > my $marcrecord= GetMarcBiblio({ biblionumber => $biblioNumber }); > > # flag indicating existence of at least one item linked via a host record >@@ -401,6 +402,7 @@ $template->param('item_level_itypes' => $itemLevelTypes); > foreach my $biblioNum (@biblionumbers) { > > my @not_available_at = (); >+print STDERR "opac/opac-reserve: 2\n"; > my $record = GetMarcBiblio({ biblionumber => $biblioNum }); > # Init the bib item with the choices for branch pickup > my %biblioLoopIter; >diff --git a/opac/opac-search.pl b/opac/opac-search.pl >index c10e958..6106b35 100755 >--- a/opac/opac-search.pl >+++ b/opac/opac-search.pl >@@ -659,6 +659,7 @@ for (my $i=0;$i<@servers;$i++) { > } > > if (C4::Context->preference('COinSinOPACResults')) { >+ print STDERR "opac/opac-search: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $res->{'biblionumber'} }); > $res->{coins} = GetCOinSBiblio($record); > } >diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl >index c51e8c4..fde99ed 100755 >--- a/opac/opac-sendbasket.pl >+++ b/opac/opac-sendbasket.pl >@@ -87,6 +87,7 @@ if ( $email_add ) { > > my $dat = GetBiblioData($biblionumber); > next unless $dat; >+ print STDERR "opac/opac-sendbasket: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl >index 3c19e61..3ba97c5 100755 >--- a/opac/opac-sendshelf.pl >+++ b/opac/opac-sendshelf.pl >@@ -90,6 +90,7 @@ if ( $email ) { > my $biblionumber = $content->biblionumber; > my $fw = GetFrameworkCode($biblionumber); > my $dat = GetBiblioData($biblionumber); >+ print STDERR "opac/opac-sendshelf: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/opac/opac-shelves.pl b/opac/opac-shelves.pl >index e5b9cc6..2b51372 100755 >--- a/opac/opac-shelves.pl >+++ b/opac/opac-shelves.pl >@@ -270,6 +270,7 @@ if ( $op eq 'view' ) { > while ( my $content = $contents->next ) { > my $biblionumber = $content->biblionumber; > my $this_item = GetBiblioData($biblionumber); >+ print STDERR "opac/opac-shelves: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > my $framework = GetFrameworkCode( $biblionumber ); > $record_processor->options({ >diff --git a/opac/opac-showmarc.pl b/opac/opac-showmarc.pl >index 1eced61..4a47e3e 100755 >--- a/opac/opac-showmarc.pl >+++ b/opac/opac-showmarc.pl >@@ -47,6 +47,7 @@ if ($importid) { > $record = MARC::Record->new_from_usmarc($marc); > } > else { >+ print STDERR "opac/opac-showmarc: 1\n"; > $record = GetMarcBiblio({ biblionumber => $biblionumber }); > my $framework = GetFrameworkCode($biblionumber); > $record_processor->options({ >diff --git a/opac/opac-showreviews.pl b/opac/opac-showreviews.pl >index b844167..cc70864 100755 >--- a/opac/opac-showreviews.pl >+++ b/opac/opac-showreviews.pl >@@ -91,6 +91,7 @@ for my $result (@$reviews){ > my $biblionumber = $result->{biblionumber}; > my $biblio = Koha::Biblios->find( $biblionumber ); > my $biblioitem = $biblio->biblioitem; >+ print STDERR "opac/opac-showreviews: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > my $frameworkcode = GetFrameworkCode($biblionumber); > my $borr = Koha::Patrons->find( $result->{borrowernumber} )->unblessed; >diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl >index 267c3c0..59a2d1b 100755 >--- a/opac/opac-tags.pl >+++ b/opac/opac-tags.pl >@@ -232,6 +232,7 @@ if ($loggedinuser) { > my $my_approved_tags = get_approval_rows({ approved => 1 }); > foreach my $tag (@$my_tags) { > my $biblio = Koha::Biblios->find( $tag->{biblionumber} ); >+ print STDERR "opac/opac-tags: 1\n"; > my $record = &GetMarcBiblio({ biblionumber => $tag->{biblionumber} }); > $tag->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $tag->{biblionumber} ) ); > $tag->{title} = $biblio->title; >diff --git a/opac/opac-user.pl b/opac/opac-user.pl >index bc39c80..c026acb 100755 >--- a/opac/opac-user.pl >+++ b/opac/opac-user.pl >@@ -204,6 +204,7 @@ if ($issues){ > } > $issue->{'charges'} = $charges; > $issue->{'rentalfines'} = $rentalfines; >+ print STDERR "opac/opac-user: 1\n"; > my $marcrecord = GetMarcBiblio({ biblionumber => $issue->{'biblionumber'} }); > $issue->{'subtitle'} = GetRecordValue('subtitle', $marcrecord, GetFrameworkCode($issue->{'biblionumber'})); > # check if item is renewable >diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl >index 1849ed7..82216d4 100755 >--- a/serials/subscription-add.pl >+++ b/serials/subscription-add.pl >@@ -439,6 +439,7 @@ sub redirect_mod_subscription { > > sub insert_additional_fields { > my ( $additional_fields, $biblionumber, $subscriptionid ) = @_; >+ print STDERR "serials/subscription-add: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/svc/bib b/svc/bib >index 2e5f38d..1515ddc 100755 >--- a/svc/bib >+++ b/svc/bib >@@ -66,6 +66,7 @@ exit 0; > sub fetch_bib { > my $query = shift; > my $biblionumber = shift; >+ print STDERR "svc/bib: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => $query->url_param('items') }); >@@ -80,6 +81,7 @@ sub fetch_bib { > sub update_bib { > my $query = shift; > my $biblionumber = shift; >+ print STDERR "svc/bib: 2\n"; > my $old_record = GetMarcBiblio({ biblionumber => $biblionumber }); > unless (defined $old_record) { > print $query->header(-type => 'text/xml', -status => '404 Not Found'); >@@ -115,6 +117,7 @@ sub update_bib { > } > > ModBiblio( $record, $biblionumber, '' ); >+ print STDERR "svc/bib: 3\n"; > my $new_record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => $query->url_param('items') }); >diff --git a/svc/checkouts b/svc/checkouts >index 98251b5..e457b17 100755 >--- a/svc/checkouts >+++ b/svc/checkouts >@@ -165,6 +165,7 @@ while ( my $c = $sth->fetchrow_hashref() ) { > my $av = Koha::AuthorisedValues->search({ category => 'DAMAGED', authorised_value => $c->{damaged} }); > $damaged = $av->count ? $av->next->lib : ''; > } >+ print STDERR "svc/checkouts: 1\n"; > my $checkout = { > DT_RowId => $c->{itemnumber} . '-' . $c->{borrowernumber}, > title => $c->{title}, >diff --git a/svc/holds b/svc/holds >index 5c0ed35..d21c97b 100755 >--- a/svc/holds >+++ b/svc/holds >@@ -84,6 +84,7 @@ while ( my $h = $holds_rs->next() ) { > for my $library ( @$libraries ) { > $library->{selected} = 1 if $library->{branchcode} eq $h->branchcode(); > } >+ print STDERR "svc/holds: 1\n"; > my $hold = { > DT_RowId => $h->reserve_id(), > biblionumber => $biblionumber, >diff --git a/svc/new_bib b/svc/new_bib >index fc9be48..3e5c647 100755 >--- a/svc/new_bib >+++ b/svc/new_bib >@@ -75,6 +75,7 @@ sub add_bib { > $record->delete_field($field); > } > my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' ); >+ print STDERR "svc/new_bib: 1\n"; > my $new_record = GetMarcBiblio({ biblionumber => $biblionumber }); > if ( $query->url_param('items') ) { > foreach my $field ( $fullrecord->field($itemtag) ) { >@@ -84,6 +85,7 @@ sub add_bib { > } > } > >+ print STDERR "svc/new_bib: 2\n"; > $new_record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => $query->url_param('items') }); >diff --git a/svc/records/preview b/svc/records/preview >index e4855c7..c93baca 100755 >--- a/svc/records/preview >+++ b/svc/records/preview >@@ -32,6 +32,7 @@ my $mmtid = $query->param('mmtid'); # Marc modification template id > > my $record; > if ( $record_type eq 'biblio' ) { >+ print STDERR "svc/records/preview: 1\n"; > $record = GetMarcBiblio({ biblionumber => $record_id }); > } else { > my $authority = Koha::MetadataRecord::Authority->get_from_authid( $record_id ); >diff --git a/tags/list.pl b/tags/list.pl >index 9e90670..623d03f 100755 >--- a/tags/list.pl >+++ b/tags/list.pl >@@ -62,6 +62,7 @@ else { > my $taglist = get_tag_rows( { term => $tag } ); > for ( @{$taglist} ) { > my $dat = &GetBiblioData( $_->{biblionumber} ); >+ print STDERR "tags/list: 1\n"; > my $record = &GetMarcBiblio({ biblionumber => $_->{biblionumber} }); > $dat->{'subtitle'} = > GetRecordValue( 'subtitle', $record, >diff --git a/tools/batch_delete_records.pl b/tools/batch_delete_records.pl >index a9ca2b3..ae9426d 100755 >--- a/tools/batch_delete_records.pl >+++ b/tools/batch_delete_records.pl >@@ -80,6 +80,7 @@ if ( $op eq 'form' ) { > } > my $holds_count = $biblio->holds->count; > $biblio = $biblio->unblessed; >+ print STDERR "tools/batch_delete_records: 1\n"; > my $record = &GetMarcBiblio({ biblionumber => $record_id }); > $biblio->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $record_id ) ); > $biblio->{itemnumbers} = C4::Items::GetItemnumbersForBiblio( $record_id ); >diff --git a/tools/batch_record_modification.pl b/tools/batch_record_modification.pl >index bfdb758..911d81a 100755 >--- a/tools/batch_record_modification.pl >+++ b/tools/batch_record_modification.pl >@@ -191,6 +191,7 @@ if ( $op eq 'form' ) { > > # Finally, modify the biblio > my $error = eval { >+ print STDERR "tools/batch_record_modification: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > ModifyRecordWithTemplate( $mmtid, $record ); > my $frameworkcode = C4::Biblio::GetFrameworkCode( $biblionumber ); >diff --git a/tools/showdiffmarc.pl b/tools/showdiffmarc.pl >index ba050a2..ece4375 100755 >--- a/tools/showdiffmarc.pl >+++ b/tools/showdiffmarc.pl >@@ -59,6 +59,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( > } > ); > >+print STDERR "tools/showdiffmarc: 1\n"; > $recordBiblionumber = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 'embed_items' }); >diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl >index b8b37fb..e3738f1 100755 >--- a/virtualshelves/downloadshelf.pl >+++ b/virtualshelves/downloadshelf.pl >@@ -71,6 +71,7 @@ if ($shelfid && $format) { > else { #Other formats > while ( my $content = $contents->next ) { > my $biblionumber = $content->biblionumber; >+ print STDERR "virtualshelves/downloadshelf: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl >index 9880efd..c745a82 100755 >--- a/virtualshelves/sendshelf.pl >+++ b/virtualshelves/sendshelf.pl >@@ -80,6 +80,7 @@ if ($email) { > my $biblionumber = $content->biblionumber; > my $fw = GetFrameworkCode($biblionumber); > my $dat = GetBiblioData($biblionumber); >+ print STDERR "virtualshelves/sendshelf: 1\n"; > my $record = GetMarcBiblio({ > biblionumber => $biblionumber, > embed_items => 1 }); >diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl >index d3aea7e..a8498d5 100755 >--- a/virtualshelves/shelves.pl >+++ b/virtualshelves/shelves.pl >@@ -237,6 +237,7 @@ if ( $op eq 'view' ) { > while ( my $content = $contents->next ) { > my $this_item; > my $biblionumber = $content->biblionumber; >+ print STDERR "virtualshelves/shelves: 1\n"; > my $record = GetMarcBiblio({ biblionumber => $biblionumber }); > > if ( $xslfile ) { >-- >2.1.4
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 19040
:
65531
|
65695
|
66101
|
66145
|
66457
|
66458
|
66477