Attachment #133870 for bug #28269

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




    my $title = $params{title};
    my $author = $params{author};
    my $isbn   = $params{isbn};
    my $issn   = $params{issn};
    my $ean    = $params{ean};
    my $name = $params{name};
    my $internalnote = $params{internalnote};

        }
    }

    #get variation of issn
    my @issn_params;
    my @issns;
    if ($issn){
        if ( C4::Context->preference("SearchWithISSNVariations") ){
            @issns = C4::Koha::GetVariationsOfISSN( $issn );
            push @issn_params, ('?') x @issns;
        }
        unless (@issns){
            push @issns, $issn;
            push @issn_params, '?';
        }
    }

    my $dbh   = C4::Context->dbh;
    my $query ="
        SELECT

        }
    }

    if ( @issns ) {
        $query .= " AND ( biblioitems.issn LIKE " . join (" OR biblioitems.issn LIKE ", @issn_params ) . ")";
        foreach my $isn (@issns){
            push @query_params, "%$isn%";
        }
    }

    if ( $ean ) {
        $query .= " AND biblioitems.ean = ? ";
        push @query_params, "$ean";

Lines 75-80 my $filters = { Link Here

(-)a/acqui/histsearch.pl (+1 lines)
75	title => scalar $input->param('title'),	75	title => scalar $input->param('title'),
76	author => scalar $input->param('author'),	76	author => scalar $input->param('author'),
77	isbn => scalar $input->param('isbn'),	77	isbn => scalar $input->param('isbn'),
		78	issn => scalar $input->param('issn'),
78	name => scalar $input->param('name'),	79	name => scalar $input->param('name'),
79	internalnote => scalar $input->param('internalnote'),	80	internalnote => scalar $input->param('internalnote'),
80	vendornote => scalar $input->param('vendornote'),	81	vendornote => scalar $input->param('vendornote'),

Lines 6-11 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/filter-orders.inc (-1 / +1 lines)
6	<li><label for="title">Title: </label> <input type="text" name="title" id="title" value="[% filters.title \| html %]" /></li>	6	<li><label for="title">Title: </label> <input type="text" name="title" id="title" value="[% filters.title \| html %]" /></li>
7	<li><label for="author">Author: </label> <input type="text" name="author" id="author" value="[% filters.author \| html %]" /></li>	7	<li><label for="author">Author: </label> <input type="text" name="author" id="author" value="[% filters.author \| html %]" /></li>
8	<li><label for="isbn">ISBN: </label> <input type="text" name="isbn" id="isbn" value="[% filters.isbn \| html %]" /></li>	8	<li><label for="isbn">ISBN: </label> <input type="text" name="isbn" id="isbn" value="[% filters.isbn \| html %]" /></li>
		9	<li><label for="isbn">ISSN: </label> <input type="text" name="issn" id="issn" value="[% filters.issn \| html %]" /></li>
9	[% IF Koha.Preference('marcflavour') == 'UNIMARC' %]	10	[% IF Koha.Preference('marcflavour') == 'UNIMARC' %]
10	<li><label for="ean">EAN: </label> <input type="text" name="ean" id="ean" value="[% filters.ean \| html %]" /></li>	11	<li><label for="ean">EAN: </label> <input type="text" name="ean" id="ean" value="[% filters.ean \| html %]" /></li>
11	[% END %]	12	[% END %]
12	-

Return to bug 28269

Lines 2083-2088 sub GetHistory { Link Here

(-)a/C4/Acquisition.pm (+22 lines)
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";