X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=members%2Freadingrec.pl;h=ed58f1c448e0f5f56d78ef5a9983b21f647819de;hb=0b2393cd655eb43e2d9893b40fb48abf1e786618;hp=611078bc6a53d360e391d2673c203d6d684c5cc4;hpb=52c933c41393dd1b3f3888ce98bda3e4091c1e01;p=koha.git diff --git a/members/readingrec.pl b/members/readingrec.pl index 611078bc6a..ed58f1c448 100755 --- a/members/readingrec.pl +++ b/members/readingrec.pl @@ -7,52 +7,42 @@ # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . use strict; +use warnings; + +use CGI qw ( -utf8 ); + use C4::Auth; use C4::Output; -use CGI; use C4::Members; -use C4::Branch; +use List::MoreUtils qw/any uniq/; +use Koha::DateUtils; +use C4::Members::Attributes qw(GetBorrowerAttributes); +use Koha::Patron::Images; -use C4::Dates qw/format_date/; -my $input=new CGI; +use Koha::Patron::Categories; +my $input = CGI->new; -my $borrowernumber=$input->param('borrowernumber'); #get borrower details -my $data=GetMember($borrowernumber,'borrowernumber'); -my $order=$input->param('order'); -my $order2=$order; -if ($order2 eq ''){ - $order2="date_due desc"; -} -my $limit=$input->param('limit'); - -if ($limit){ - if ($limit eq 'full'){ - $limit=0; - } -} -else { - $limit=50; -} -my ($count,$issues)=GetAllIssues($borrowernumber,$order2,$limit); +my $data = undef; +my $borrowernumber = undef; +my $cardnumber = undef; -my ($template, $loggedinuser, $cookie) -= get_template_and_user({template_name => "members/readingrec.tmpl", +my ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => "members/readingrec.tt", query => $input, type => "intranet", authnotrequired => 0, @@ -60,57 +50,85 @@ my ($template, $loggedinuser, $cookie) debug => 1, }); -my @loop_reading; - -for (my $i=0;$i<$count;$i++){ - my %line; - if($i%2){ - $line{'toggle'} = 1; - } - $line{biblionumber}=$issues->[$i]->{'biblionumber'}; - $line{title}=$issues->[$i]->{'title'}; - $line{author}=$issues->[$i]->{'author'}; - $line{classification} = $issues->[$i]->{'classification'}; - $line{date_due}=format_date($issues->[$i]->{'date_due'}); - $line{returndate}=format_date($issues->[$i]->{'returndate'}); - $line{volumeddesc}=$issues->[$i]->{'volumeddesc'}; - push(@loop_reading,\%line); +my $op = $input->param('op') || ''; +if ($input->param('cardnumber')) { + $cardnumber = $input->param('cardnumber'); + $data = GetMember(cardnumber => $cardnumber); + $borrowernumber = $data->{'borrowernumber'}; # we must define this as it is used to retrieve other data about the patron +} +if ($input->param('borrowernumber')) { + $borrowernumber = $input->param('borrowernumber'); + $data = GetMember(borrowernumber => $borrowernumber); +} + +my $order = 'date_due desc'; +my $limit = 0; +my $issues = (); +# Do not request the old issues of anonymous patron +if ( $borrowernumber eq C4::Context->preference('AnonymousPatron') ){ + # use of 'eq' in the above comparison is intentional -- the + # system preference value could be blank + $template->param( is_anonymous => 1 ); +} else { + $issues = GetAllIssues($borrowernumber,$order,$limit); +} + +# barcode export +if ( $op eq 'export_barcodes' ) { + if ( $data->{'privacy'} < 2) { + my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); + my @barcodes = + map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues}; + my $borrowercardnumber = + GetMember( borrowernumber => $borrowernumber )->{'cardnumber'}; + my $delimiter = "\n"; + binmode( STDOUT, ":encoding(UTF-8)" ); + print $input->header( + -type => 'application/octet-stream', + -charset => 'utf-8', + -attachment => "$today-$borrowercardnumber-checkinexport.txt" + ); + + my $content = join $delimiter, uniq(@barcodes); + print $content; + exit; + } +} + +if ( $data->{'category_type'} eq 'C') { + my $patron_categories = Koha::Patron::Categories->search_limited({ category_type => 'A' }, {order_by => ['categorycode']}); + $template->param( 'CATCODE_MULTI' => 1) if $patron_categories->count > 1; + $template->param( 'catcode' => $patron_categories->next ) if $patron_categories->count == 1; } $template->param( adultborrower => 1 ) if ( $data->{'category_type'} eq 'A' ); -if (! $limit){ - $limit = 'full'; +if (! $limit){ + $limit = 'full'; } -my ($picture, $dberror) = GetPatronImage($data->{'cardnumber'}); -$template->param( picture => 1 ) if $picture; +my $patron_image = Koha::Patron::Images->find($data->{borrowernumber}); +$template->param( picture => 1 ) if $patron_image; -$template->param( - readingrecordview => 1, - biblionumber => $data->{'biblionumber'}, - title => $data->{'title'}, - initials => $data->{'initials'}, - surname => $data->{'surname'}, - borrowernumber => $borrowernumber, - limit => $limit, - firstname => $data->{'firstname'}, - cardnumber => $data->{'cardnumber'}, - categorycode => $data->{'categorycode'}, - category_type => $data->{'category_type'}, - # category_description => $data->{'description'}, - categoryname => $data->{'description'}, - address => $data->{'address'}, - address2 => $data->{'address2'}, - city => $data->{'city'}, - zipcode => $data->{'zipcode'}, - phone => $data->{'phone'}, - email => $data->{'email'}, - branchcode => $data->{'branchcode'}, - is_child => ($data->{'category_type'} eq 'C'), - branchname => GetBranchName($data->{'branchcode'}), - showfulllink => ($count > 50), - loop_reading => \@loop_reading); -output_html_with_http_headers $input, $cookie, $template->output; +if (C4::Context->preference('ExtendedPatronAttributes')) { + my $attributes = GetBorrowerAttributes($borrowernumber); + $template->param( + ExtendedPatronAttributes => 1, + extendedattributes => $attributes + ); +} +$template->param(%$data); +$template->param( + readingrecordview => 1, + borrowernumber => $borrowernumber, + privacy => $data->{'privacy'}, + categoryname => $data->{description}, + is_child => ( $data->{category_type} eq 'C' ), + loop_reading => $issues, + activeBorrowerRelationship => + ( C4::Context->preference('borrowerRelationship') ne '' ), + RoutingSerials => C4::Context->preference('RoutingSerials'), +); +output_html_with_http_headers $input, $cookie, $template->output;