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

(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 2511-2517 sub _default_ind_to_space { Link Here
2511
sub TransformHtmlToMarc {
2511
sub TransformHtmlToMarc {
2512
    my ($cgi, $isbiblio) = @_;
2512
    my ($cgi, $isbiblio) = @_;
2513
2513
2514
    my @params = $cgi->param();
2514
    my @params = $cgi->multi_param();
2515
2515
2516
    # explicitly turn on the UTF-8 flag for all
2516
    # explicitly turn on the UTF-8 flag for all
2517
    # 'tag_' parameters to avoid incorrect character
2517
    # 'tag_' parameters to avoid incorrect character
(-)a/catalogue/itemsearch.pl (-2 / +2 lines)
Lines 43-49 if (defined $format and $format eq 'json') { Link Here
43
    # Map DataTables parameters with 'regular' parameters
43
    # Map DataTables parameters with 'regular' parameters
44
    $cgi->param('rows', $cgi->param('iDisplayLength'));
44
    $cgi->param('rows', $cgi->param('iDisplayLength'));
45
    $cgi->param('page', ($cgi->param('iDisplayStart') / $cgi->param('iDisplayLength')) + 1);
45
    $cgi->param('page', ($cgi->param('iDisplayStart') / $cgi->param('iDisplayLength')) + 1);
46
    my @columns = split /,/, $cgi->param('sColumns');
46
    my @columns = split /,/, $cgi->multi_param('sColumns');
47
    $cgi->param('sortby', $columns[ $cgi->param('iSortCol_0') ]);
47
    $cgi->param('sortby', $columns[ $cgi->param('iSortCol_0') ]);
48
    $cgi->param('sortorder', $cgi->param('sSortDir_0'));
48
    $cgi->param('sortorder', $cgi->param('sSortDir_0'));
49
49
Lines 102-108 if (scalar keys %params > 0) { Link Here
102
    };
102
    };
103
103
104
    foreach my $p (qw(homebranch location itype ccode issues datelastborrowed notforloan)) {
104
    foreach my $p (qw(homebranch location itype ccode issues datelastborrowed notforloan)) {
105
        if (my @q = $cgi->param($p)) {
105
        if (my @q = $cgi->multi_param($p)) {
106
            if ($q[0] ne '') {
106
            if ($q[0] ne '') {
107
                my $f = {
107
                my $f = {
108
                    field => $p,
108
                    field => $p,
(-)a/catalogue/search.pl (-5 / +5 lines)
Lines 400-410 unless (@servers) { Link Here
400
}
400
}
401
# operators include boolean and proximity operators and are used
401
# operators include boolean and proximity operators and are used
402
# to evaluate multiple operands
402
# to evaluate multiple operands
403
my @operators = map uri_unescape($_), $cgi->param('op');
403
my @operators = map uri_unescape($_), $cgi->multi_param('op');
404
404
405
# indexes are query qualifiers, like 'title', 'author', etc. They
405
# indexes are query qualifiers, like 'title', 'author', etc. They
406
# can be single or multiple parameters separated by comma: kw,right-Truncation 
406
# can be single or multiple parameters separated by comma: kw,right-Truncation 
407
my @indexes = map uri_unescape($_), $cgi->param('idx');
407
my @indexes = map uri_unescape($_), $cgi->multi_param('idx');
408
408
409
# if a simple index (only one)  display the index used in the top search box
409
# if a simple index (only one)  display the index used in the top search box
410
if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) {
410
if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) {
Lines 414-424 if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) { Link Here
414
}
414
}
415
415
416
# an operand can be a single term, a phrase, or a complete ccl query
416
# an operand can be a single term, a phrase, or a complete ccl query
417
my @operands = map uri_unescape($_), $cgi->param('q');
417
my @operands = map uri_unescape($_), $cgi->multi_param('q');
418
418
419
# limits are use to limit to results to a pre-defined category such as branch or language
419
# limits are use to limit to results to a pre-defined category such as branch or language
420
my @limits = map uri_unescape($_), $cgi->param('limit');
420
my @limits = map uri_unescape($_), $cgi->multi_param('limit');
421
my @nolimits = map uri_unescape($_), $cgi->param('nolimit');
421
my @nolimits = map uri_unescape($_), $cgi->multi_param('nolimit');
422
my %is_nolimit = map { $_ => 1 } @nolimits;
422
my %is_nolimit = map { $_ => 1 } @nolimits;
423
@limits = grep { not $is_nolimit{$_} } @limits;
423
@limits = grep { not $is_nolimit{$_} } @limits;
424
424
(-)a/opac/ilsdi.pl (-1 / +1 lines)
Lines 171-177 if ( $service and any { $service eq $_ } @services ) { Link Here
171
    my @parmsrequired = @{ $required{$service} };
171
    my @parmsrequired = @{ $required{$service} };
172
    my @parmsoptional = @{ $optional{$service} };
172
    my @parmsoptional = @{ $optional{$service} };
173
    my @parmsall      = ( @parmsrequired, @parmsoptional );
173
    my @parmsall      = ( @parmsrequired, @parmsoptional );
174
    my @names         = $cgi->param;
174
    my @names         = $cgi->multi_param;
175
    my %paramhash;
175
    my %paramhash;
176
    $paramhash{$_} = 1 for @names;
176
    $paramhash{$_} = 1 for @names;
177
177
(-)a/opac/opac-image.pl (-1 / +1 lines)
Lines 64-70 if ( C4::Context->preference("OPACLocalCoverImages") ) { Link Here
64
        $imagenumber = $data->param('imagenumber');
64
        $imagenumber = $data->param('imagenumber');
65
    }
65
    }
66
    elsif ( defined $data->param('biblionumber') ) {
66
    elsif ( defined $data->param('biblionumber') ) {
67
        my @imagenumbers = ListImagesForBiblio( $data->param('biblionumber') );
67
        my @imagenumbers = ListImagesForBiblio( scalar $data->param('biblionumber') );
68
        if (@imagenumbers) {
68
        if (@imagenumbers) {
69
            $imagenumber = $imagenumbers[0];
69
            $imagenumber = $imagenumbers[0];
70
        }
70
        }
(-)a/serials/serials-search.pl (-1 / +1 lines)
Lines 53-59 my $location = $query->param('location_filter') || ''; Link Here
53
my $expiration_date = $query->param('expiration_date_filter') || '';
53
my $expiration_date = $query->param('expiration_date_filter') || '';
54
my $routing       = $query->param('routing') || C4::Context->preference("RoutingSerials");
54
my $routing       = $query->param('routing') || C4::Context->preference("RoutingSerials");
55
my $searched      = $query->param('searched') || 0;
55
my $searched      = $query->param('searched') || 0;
56
my @subscriptionids = $query ->param('subscriptionid');
56
my @subscriptionids = $query->multi_param('subscriptionid');
57
my $op            = $query->param('op');
57
my $op            = $query->param('op');
58
58
59
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
59
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/svc/import_bib (-2 / +1 lines)
Lines 44-50 if ($query->request_method eq "POST") { Link Here
44
    $xml = $query->param('xml');
44
    $xml = $query->param('xml');
45
}
45
}
46
if ($xml) {
46
if ($xml) {
47
    my %params = map { $_ => $query->param($_) } $query->param;
47
    my %params = map { $_ => scalar $query->param($_) } $query->param;
48
    my $result = import_bib($xml, \%params );
48
    my $result = import_bib($xml, \%params );
49
    print $query->header(-type => 'text/xml');
49
    print $query->header(-type => 'text/xml');
50
    print XMLout($result, NoAttr => 1, RootName => 'response', XMLDecl => 1);
50
    print XMLout($result, NoAttr => 1, RootName => 'response', XMLDecl => 1);
51
- 

Return to bug 16154