|
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 |
{ |