[Koha-patches] [PATCH] Fixing more warnings
Joe Atzberger
joe.atzberger at liblime.com
Wed May 13 16:21:27 CEST 2009
FYI, I believe I have very similar changes coming in a big patch bomb for
granular permissions in Cataloging/Authorities. You should say that from me
soon (today).
--Joe
On Tue, May 12, 2009 at 3:30 AM, Chris Cormack <chris at bigballofwax.co.nz>wrote:
> ---
> opac/opac-authorities-home.pl | 1 +
> opac/opac-search.pl | 23 ++++++++++++++++-------
> 2 files changed, 17 insertions(+), 7 deletions(-)
>
> diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl
> index b1674f1..f06965d 100755
> --- a/opac/opac-authorities-home.pl
> +++ b/opac/opac-authorities-home.pl
> @@ -83,6 +83,7 @@ if ( $op eq "do_search" ) {
> # multi page display gestion
> my $displaynext = 0;
> my $displayprev = $startfrom;
> + $total ||= 0;
> if ( ( $total - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 ) {
> $displaynext = 1;
> }
> diff --git a/opac/opac-search.pl b/opac/opac-search.pl
> index c2e9250..029ef1e 100755
> --- a/opac/opac-search.pl
> +++ b/opac/opac-search.pl
> @@ -3,6 +3,7 @@
> # Mostly copied from search.pl, see POD there
> use strict; # always use
> use warnings;
> +
> ## STEP 1. Load things that are used in both search page and
> # results page and decide which template to load, operations
> # to perform, etc.
> @@ -180,7 +181,7 @@ if (!$advanced_search_types or $advanced_search_types
> eq 'itemtypes') {
> # $template->param(itypeloop=>\@itype_loop,);
>
> # The following should only be loaded if we're bringing up the advanced
> search template
> -if ( $template_type eq 'advsearch' ) {
> +if ( $template_type && $template_type eq 'advsearch' ) {
>
> # load the servers (used for searching -- to do federated searching,
> etc.)
> my $primary_servers_loop;# = displayPrimaryServers();
> @@ -281,7 +282,8 @@ my @operators;
>
> # indexes are query qualifiers, like 'title', 'author', etc. They
> # can be single or multiple parameters separated by comma:
> kw,right-Truncation
> -my @indexes = exists($params->{'idx'}) ? split("\0",$params->{'idx'}) :
> ();
> +my @indexes;
> + at indexes = split("\0",$params->{'idx'}) if $params->{'idx'};
>
> # if a simple index (only one) display the index used in the top search
> box
> if ($indexes[0] && !$indexes[1]) {
> @@ -442,9 +444,12 @@ for (my $i=0;$i<=@servers;$i++) {
> }
> }
> foreach (@newresults) {
> - $_->{coins} = GetCOinSBiblio($_->{'biblionumber'});
> + $_->{coins} = GetCOinSBiblio($_->{'biblionumber'});
> }
> - $total = $total + $results_hashref->{$server}->{"hits"} if
> $results_hashref->{$server}->{"hits"};
> + }
> + if ($results_hashref->{$server}->{"hits"}){
> + $total = $total + $results_hashref->{$server}->{"hits"};
> + }
> ## If there's just one result, redirect to the detail page
> if ($total == 1) {
> my $biblionumber=$newresults[0]->{biblionumber};
> @@ -607,9 +612,13 @@ if ( C4::Context->preference("kohaspsuggest") ) {
> # VI. BUILD THE TEMPLATE
> # NOTE: not using application/atom+xml or application/rss+xml beccause of
> Internet Explorer 6;
> # see bug 2078.
> -my $content_type = ($cgi->param('format') && $cgi->param('format') =~
> /rss|atom/) ? "application/xml" :
> - "text/html";
> -
> +my $content_type;
> +if ($cgi->param('format') && $cgi->param('format') =~ /rss|atom/ ){
> + $content_type = "application/xml";
> +}
> +else {
> + $content_type = "text/html";
> +}
> # Build drop-down list for 'Add To:' menu...
> my $session = get_session($cgi->cookie("CGISESSID"));
> my @addpubshelves;
> --
> 1.5.6.3
>
> _______________________________________________
> Koha-patches mailing list
> Koha-patches at lists.koha.org
> http://lists.koha.org/mailman/listinfo/koha-patches
>
--
Joe Atzberger
LibLime - Open Source Library Solutions
-------------- next part --------------
An HTML attachment was scrubbed...
URL: </pipermail/koha-patches/attachments/20090513/61cdfd2a/attachment.htm>
More information about the Koha-patches
mailing list