- 

#!/usr/bin/perl

use v5.10.0;

use Modern::Perl;

#use Koha::BusinessLogic::Branch2;

#use Koha::BusinessLogic::Branchrelation;

use Koha::BusinessLogic::Borrower;

# how many SQL queries did mysql recieved before this script is executed

my (undef, $before) = split ' ',`mysql -e "show status"|grep Queries`;

my$borrowernumber='7695';

# retrieve a patron

my $borrower=Koha::BusinessLogic::Borrower->read({'borrowernumber' => $borrowernumber})->first;

# show his name

say $borrower->firstname;

say $borrower->surname;

# show the branchname, very easy !!!

say $borrower->branchcode->branchname;

# same thing with category

say $borrower->categorycode->description;

# now retrieve all items issued to this patron

# note that each line result in 3 SQL queries being done

# possible improvement => prefetch the link between  

foreach my $checkout ($borrower->issues->all) {

    # show the itemnumber

    say "Item currently checked-out:".$checkout->itemnumber->itemnumber;

    # show book title

    say "Item currently checked-out:".$checkout->itemnumber->biblioitemnumber->biblionumber->title;

}

foreach my $checkout ($borrower->old_issues->all) {

    # show the itemnumber

    say "Item previously checked-out:".$checkout->itemnumber->itemnumber;

    # show book title

    say "Item previously checked-out:".$checkout->itemnumber->biblioitemnumber->biblionumber->title;

}

#use Data::Dumper;

# get 1st categorycode

#say "Fetching 1st categorycode";

#my $branch=Koha::BusinessLogic::Branch2->read({'branchcode' => 'MAURES'})->first;

#say $branch->branchname;

#my $branchrelation = $branch->branchrelations->first;

#say "CODE".$branchrelation->categorycode->categorycode;

# this also add a SQL query, why ?

#say "BRANCH".$branchrelation->branchcode->branchcode; 

#

#say Koha::BusinessLogic::Branch2->read({'branchcode' => 'TEST'})->first->branchrelations->first->categorycode->categorycode;

# the following line add 3 queries => no caching at all

#say Koha::BusinessLogic::Branch2->read({'branchcode' => 'TEST'})->first->branchrelations->first->branchcode->branchcode;

# get all categorycodes

#say "Fetching all categorycodes";

#foreach (Koha::BusinessLogic::Branch2->read({'branchcode' => 'TEST'})->first->branchrelations->all) {

#    say $_->categorycode->categorycode;

#}

# how many SQL queries did mysql recieve after this script is executed

my (undef, $after) = split ' ',`mysql -e "show status"|grep Queries`;

# the difference between before and after tell us how many queries have been made

say "Total queries: ".($after-$before-3); # -3 is the number of queries "show status" itself requires

# testing column = it does not require any SQL query, ++ !

#my $schema = Koha::Schema->connect(

#    'dbi:mysql:dbname='.C4::Context->config("database"),

#    C4::Context->config("user"),

#    C4::Context->config("pass"),

#    { AutoCommit => 1,

#      #cursor_class => 'DBIx::Class::Cursor::Cached',

#    },

#  );

#(undef, $before) = split ' ',`mysql -e "show status"|grep Queries`;

#my @temp = $schema->source('Branch')->columns;

#say @temp;

#(undef, $after) = split ' ',`mysql -e "show status"|grep Queries`;

## the difference between before and after tell us how many queries have been made

#say "Total queries for columns: ".($after-$before-3); # -3 is the number of queries "show status" itself requires

#