ferweb/issues.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use CGI;
   6 use JSON;
   7 use lib '..';
   8 use C4::Context;
   9
  10 use Data::Dump qw(dump);
  11
  12 my $query = new CGI;
  13 my $dbh = C4::Context->dbh;
  14
  15 my $sql = qq{
  16 select
  17         userid,
  18         cardnumber,
  19         firstname,
  20         surname,
  21         email,
  22         items.itemnumber,
  23         biblio.title,
  24         author,
  25         barcode,
  26         issuedate
  27 from issues
  28 join borrowers on borrowers.borrowernumber = issues.borrowernumber
  29 join items on issues.itemnumber = items.itemnumber
  30 join biblioitems on items.biblioitemnumber = biblioitems.biblioitemnumber
  31 join biblio on biblioitems.biblionumber = biblio.biblionumber
  32 };
  33
  34 my @where;
  35 my @data;
  36 if ( my $nick = $query->param('nick') ) {
  37         push @where, 'userid = ?';
  38         push @data, $nick;
  39 }
  40
  41 if ( my $jmbag = $query->param('jmbag') ) {
  42         push @where, 'cardnumber = ?';
  43         push @data, 'S' . sprintf("%010d",$jmbag);
  44 }
  45
  46 die 'need nick=? and/or jmbag=?' unless @data;
  47
  48 $sql .= ' where ' . join(' or ', @where);
  49 warn "# SQL: $sql ",dump(@data);
  50 my $sth = $dbh->prepare($sql);
  51 $sth->execute(@data);
  52
  53 my @rows;
  54 while ( my $row = $sth->fetchrow_hashref ) {
  55         push @rows, $row;
  56 }
  57
  58 print "Content-type: application/json\r\n\r\n", to_json(\@rows, { utf8 => 1 });
  59