X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=circ%2Fypattrodue-attr-search-authvalue.pl;h=517c8c050f81e0cf00969ad4cb9b67a3b3bbf066;hb=de03c263f0579d28a735e3b1261121e439263a82;hp=f8d77c57349c076d838426fec96870a8dcecb837;hpb=c8df6bdcc9fe2523a77c839270b31304d8e13ee5;p=koha_fer diff --git a/circ/ypattrodue-attr-search-authvalue.pl b/circ/ypattrodue-attr-search-authvalue.pl index f8d77c5734..517c8c050f 100755 --- a/circ/ypattrodue-attr-search-authvalue.pl +++ b/circ/ypattrodue-attr-search-authvalue.pl @@ -2,6 +2,7 @@ # This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html) +# Parts copyright 2012 Athens County Public Libraries # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it under the @@ -25,7 +26,7 @@ use C4::Auth qw/check_cookie_auth/; use C4::Debug; my $input = new CGI; -my $query = $input->param('query'); +my $query = $input->param('term'); my $attrcode = $input->path_info || ''; $attrcode =~ s|^/||; @@ -45,8 +46,14 @@ my $sql = qq(SELECT authorised_value, lib description AND v.lib like ?); my $sth = $dbh->prepare($sql); $sth->execute( $attrcode, "$query%" ); + +print "["; +my $i = 0; while ( my $rec = $sth->fetchrow_hashref ) { print STDERR ">> attrcode=$attrcode match '$query' ==> $rec->{description} ($rec->{authorised_value})\n" if $debug; - print "$rec->{description}\t$rec->{authorised_value}\n"; + print "{\"description\":\"" . $rec->{description} . "\",\"" . + "authorised_value\":\"" . $rec->{authorised_value} . "\"" . + "}"; + $i++; } - +print "]"; \ No newline at end of file