X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=members%2Freadingrec.pl;h=2cb9437591f944660eec02e2d1a96f5f86bb57d1;hb=d27d88f809273ad43fc75c77a65daeb8bb499a9d;hp=5e3067b6965f02919eb2927d6206e803c154034a;hpb=100e6a9808ead4ee8d951da59ead1550e75bb4c3;p=koha_fer diff --git a/members/readingrec.pl b/members/readingrec.pl index 5e3067b696..2cb9437591 100755 --- a/members/readingrec.pl +++ b/members/readingrec.pl @@ -16,42 +16,33 @@ # 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, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; +use warnings; + +use CGI; + use C4::Auth; use C4::Output; -use CGI; use C4::Members; +use C4::Branch qw(GetBranches); +use List::MoreUtils qw/any uniq/; +use Koha::DateUtils; -use C4::Date; -my $input=new CGI; +use C4::Dates qw/format_date/; +use C4::Members::Attributes qw(GetBorrowerAttributes); +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.tmpl", query => $input, type => "intranet", authnotrequired => 0, @@ -59,35 +50,105 @@ 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); } -$template->param( - biblionumber => $data->{'biblionumber'}, - title => $data->{'title'}, - initials => $data->{'initials'}, - surname => $data->{'surname'}, - borrowernumber => $borrowernumber, - limit => $limit, - firstname => $data->{'firstname'}, - cardnumber => $data->{'cardnumber'}, - showfulllink => ($count > 50), - loop_reading => \@loop_reading); -output_html_with_http_headers $input, $cookie, $template->output; +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); +} +my $branches = GetBranches(); +foreach my $issue ( @{$issues} ) { + $issue->{issuingbranch} = $branches->{ $issue->{branchcode} }->{branchname}; +} +# barcode export +if ( $op eq 'export_barcodes' ) { + my $today = C4::Dates->new(); + $today = $today->output('iso'); + 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 ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); + my $cnt = scalar(@$catcodes); + $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1; + $template->param( 'catcode' => $catcodes->[0]) if $cnt == 1; +} + +$template->param( adultborrower => 1 ) if ( $data->{'category_type'} eq 'A' ); +if (! $limit){ + $limit = 'full'; +} + + +my ($picture, $dberror) = GetPatronImage($data->{'borrowernumber'}); +$template->param( picture => 1 ) if $picture; + +if (C4::Context->preference('ExtendedPatronAttributes')) { + my $attributes = GetBorrowerAttributes($borrowernumber); + $template->param( + ExtendedPatronAttributes => 1, + extendedattributes => $attributes + ); +} + +$template->param( + readingrecordview => 1, + title => $data->{title}, + initials => $data->{initials}, + surname => $data->{surname}, + othernames => $data->{othernames}, + borrowernumber => $borrowernumber, + firstname => $data->{firstname}, + cardnumber => $data->{cardnumber}, + categorycode => $data->{categorycode}, + category_type => $data->{category_type}, + categoryname => $data->{description}, + address => $data->{address}, + address2 => $data->{address2}, + city => $data->{city}, + state => $data->{state}, + zipcode => $data->{zipcode}, + country => $data->{country}, + phone => $data->{phone}, + email => $data->{email}, + branchcode => $data->{branchcode}, + is_child => ( $data->{category_type} eq 'C' ), + branchname => $branches->{ $data->{branchcode} }->{branchname}, + loop_reading => $issues, + activeBorrowerRelationship => + ( C4::Context->preference('borrowerRelationship') ne '' ), + RoutingSerials => C4::Context->preference('RoutingSerials'), +); +output_html_with_http_headers $input, $cookie, $template->output;