|
Lines 2085-2090
sub GetHistory {
Link Here
|
| 2085 |
my $title = $params{title}; |
2085 |
my $title = $params{title}; |
| 2086 |
my $author = $params{author}; |
2086 |
my $author = $params{author}; |
| 2087 |
my $isbn = $params{isbn}; |
2087 |
my $isbn = $params{isbn}; |
|
|
2088 |
my $issn = $params{issn}; |
| 2088 |
my $ean = $params{ean}; |
2089 |
my $ean = $params{ean}; |
| 2089 |
my $name = $params{name}; |
2090 |
my $name = $params{name}; |
| 2090 |
my $internalnote = $params{internalnote}; |
2091 |
my $internalnote = $params{internalnote}; |
|
Lines 2126-2131
sub GetHistory {
Link Here
|
| 2126 |
} |
2127 |
} |
| 2127 |
} |
2128 |
} |
| 2128 |
|
2129 |
|
|
|
2130 |
#get variation of issn |
| 2131 |
my @issn_params; |
| 2132 |
my @issns; |
| 2133 |
if ($issn){ |
| 2134 |
if ( C4::Context->preference("SearchWithISSNVariations") ){ |
| 2135 |
@issns = C4::Koha::GetVariationsOfISSN( $issn ); |
| 2136 |
push @issn_params, ('?') x @issns; |
| 2137 |
} |
| 2138 |
unless (@issns){ |
| 2139 |
push @issns, $issn; |
| 2140 |
push @issn_params, '?'; |
| 2141 |
} |
| 2142 |
} |
| 2143 |
|
| 2129 |
my $dbh = C4::Context->dbh; |
2144 |
my $dbh = C4::Context->dbh; |
| 2130 |
my $query =" |
2145 |
my $query =" |
| 2131 |
SELECT |
2146 |
SELECT |
|
Lines 2204-2209
sub GetHistory {
Link Here
|
| 2204 |
} |
2219 |
} |
| 2205 |
} |
2220 |
} |
| 2206 |
|
2221 |
|
|
|
2222 |
if ( @issns ) { |
| 2223 |
$query .= " AND ( biblioitems.issn LIKE " . join (" OR biblioitems.issn LIKE ", @issn_params ) . ")"; |
| 2224 |
foreach my $isn (@issns){ |
| 2225 |
push @query_params, "%$isn%"; |
| 2226 |
} |
| 2227 |
} |
| 2228 |
|
| 2207 |
if ( $ean ) { |
2229 |
if ( $ean ) { |
| 2208 |
$query .= " AND biblioitems.ean = ? "; |
2230 |
$query .= " AND biblioitems.ean = ? "; |
| 2209 |
push @query_params, "$ean"; |
2231 |
push @query_params, "$ean"; |