Attachment #138850 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 2085-2090 sub GetHistory { Link Here

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