View | Details | Raw Unified | Return to bug 30678
Collapse All | Expand All

(-)a/opac/opac-ISBDdetail.pl (-2 / +2 lines)
Lines 65-70 use Koha::ItemTypes; Link Here
65
use Koha::Patrons;
65
use Koha::Patrons;
66
use Koha::RecordProcessor;
66
use Koha::RecordProcessor;
67
use Koha::Biblios;
67
use Koha::Biblios;
68
use Koha::Util::MARC;
68
69
69
my $query = CGI->new();
70
my $query = CGI->new();
70
my $biblionumber = $query->param('biblionumber');
71
my $biblionumber = $query->param('biblionumber');
Lines 201-208 my $issn = $marcissns->[0] || ''; Link Here
201
if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
202
if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
202
    $dat->{title} =~ s/\/+$//; # remove trailing slash
203
    $dat->{title} =~ s/\/+$//; # remove trailing slash
203
    $dat->{title} =~ s/\s+$//; # remove trailing space
204
    $dat->{title} =~ s/\s+$//; # remove trailing space
204
    my $oclc_no = $record->subfield('035','a') // q{};
205
    my $oclc_no =  Koha::Util::MARC::oclc_number( $record );
205
    $oclc_no =~ s/\([^)]*\)//;
206
    $search_for_title = parametrized_url(
206
    $search_for_title = parametrized_url(
207
        $search_for_title,
207
        $search_for_title,
208
        {
208
        {
(-)a/opac/opac-MARCdetail.pl (-2 / +2 lines)
Lines 70-75 use Koha::ItemTypes; Link Here
70
use Koha::Patrons;
70
use Koha::Patrons;
71
use Koha::RecordProcessor;
71
use Koha::RecordProcessor;
72
use Koha::DateUtils qw( output_pref );
72
use Koha::DateUtils qw( output_pref );
73
use Koha::Util::MARC;
73
74
74
my $query = CGI->new();
75
my $query = CGI->new();
75
76
Lines 352-359 my $issn = $marcissns->[0] || ''; Link Here
352
if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
353
if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
353
    $dat->{title} =~ s/\/+$//; # remove trailing slash
354
    $dat->{title} =~ s/\/+$//; # remove trailing slash
354
    $dat->{title} =~ s/\s+$//; # remove trailing space
355
    $dat->{title} =~ s/\s+$//; # remove trailing space
355
    my $oclc_no = $record->subfield('035','a') // q{};
356
    my $oclc_no = Koha::Util::MARC::oclc_number( $record );
356
    $oclc_no =~ s/\([^)]*\)//;
357
    $search_for_title = parametrized_url(
357
    $search_for_title = parametrized_url(
358
        $search_for_title,
358
        $search_for_title,
359
        {
359
        {
(-)a/opac/opac-detail.pl (-3 / +2 lines)
Lines 85-90 use Koha::Recalls; Link Here
85
use Koha::Reviews;
85
use Koha::Reviews;
86
use Koha::SearchEngine::Search;
86
use Koha::SearchEngine::Search;
87
use Koha::SearchEngine::QueryBuilder;
87
use Koha::SearchEngine::QueryBuilder;
88
use Koha::Util::MARC;
88
89
89
use JSON qw( decode_json );
90
use JSON qw( decode_json );
90
91
Lines 1179-1186 my $issn = $marcissns->[0] || ''; Link Here
1179
if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
1180
if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
1180
    $dat->{title} =~ s/\/+$//; # remove trailing slash
1181
    $dat->{title} =~ s/\/+$//; # remove trailing slash
1181
    $dat->{title} =~ s/\s+$//; # remove trailing space
1182
    $dat->{title} =~ s/\s+$//; # remove trailing space
1182
    my $oclc_no = $record->subfield('035','a') // q{};
1183
    my $oclc_no = Koha::Util::MARC::oclc_number( $record );
1183
    $oclc_no =~ s/\([^)]*\)//;
1184
    $search_for_title = parametrized_url(
1184
    $search_for_title = parametrized_url(
1185
        $search_for_title,
1185
        $search_for_title,
1186
        {
1186
        {
1187
- 

Return to bug 30678