From cf4e7cfeaf2990aead2d33d946cecbdd659b8340 Mon Sep 17 00:00:00 2001 From: Mark Tompsett 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