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