10 use Data::Dump qw(dump);
13 my $dbh = C4::Context->dbh;
27 date_due as issuedate,
30 join borrowers on borrowers.borrowernumber = issues.borrowernumber
31 join items on issues.itemnumber = items.itemnumber
32 join biblioitems on items.biblioitemnumber = biblioitems.biblioitemnumber
33 join biblio on biblioitems.biblionumber = biblio.biblionumber
38 if ( my $nick = $query->param('nick') ) {
39 push @where, 'userid = ?';
43 if ( my $jmbag = $query->param('jmbag') ) {
44 push @where, 'cardnumber = ?';
45 push @data, 'S' . sprintf("%010d",$jmbag);
48 die 'need nick=? and/or jmbag=?' unless @data;
50 $sql .= ' where ' . join(' or ', @where);
51 warn "# SQL: $sql ",dump(@data);
52 my $sth = $dbh->prepare($sql);
56 while ( my $row = $sth->fetchrow_hashref ) {
60 print "Content-type: application/json\r\n\r\n", to_json(\@rows, { utf8 => 1 });