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
90
90
my $query = CGI->new();
91
my $query = CGI->new();
Lines 1175-1182 my $issn = $marcissns->[0] || ''; Link Here
1175
if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
1176
if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
1176
    $dat->{title} =~ s/\/+$//; # remove trailing slash
1177
    $dat->{title} =~ s/\/+$//; # remove trailing slash
1177
    $dat->{title} =~ s/\s+$//; # remove trailing space
1178
    $dat->{title} =~ s/\s+$//; # remove trailing space
1178
    my $oclc_no = $record->subfield('035','a') // q{};
1179
    my $oclc_no = Koha::Util::MARC::oclc_number( $record );
1179
    $oclc_no =~ s/\([^)]*\)//;
1180
    $search_for_title = parametrized_url(
1180
    $search_for_title = parametrized_url(
1181
        $search_for_title,
1181
        $search_for_title,
1182
        {
1182
        {
1183
- 

Return to bug 30678