From d419f17326fcb65474287963787e15024fed6e81 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 10 Feb 2012 11:18:48 +0100 Subject: [PATCH] Bug 6751: Adds a link "Export checkin barcodes" in readingrec Content-Type: text/plain; charset="UTF-8" to export a file containing a list of checkin barcode for the current day. Signed-off-by: Chris Cormack Signed-off-by: Jared Camins-Esakov --- .../prog/en/modules/members/readingrec.tt | 5 ++++ members/readingrec.pl | 23 +++++++++++++++++++- 2 files changed, 27 insertions(+), 1 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tt index 36f8937..245dece 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tt @@ -29,6 +29,11 @@ [% IF ( loop_reading ) %]
+

Export checkin barcodes

+
+[% INCLUDE 'table-pager.inc' perpage='20' %] +
+ diff --git a/members/readingrec.pl b/members/readingrec.pl index c4a8237..d285850 100755 --- a/members/readingrec.pl +++ b/members/readingrec.pl @@ -29,7 +29,7 @@ use C4::Auth; use C4::Output; use C4::Members; use C4::Branch; -use List::MoreUtils qw/any/; +use List::MoreUtils qw/any uniq/; use C4::Dates qw/format_date/; use C4::Members::Attributes qw(GetBorrowerAttributes); @@ -64,6 +64,9 @@ my $limit = 0; my ( $issues ) = GetAllIssues($borrowernumber,$order,$limit); my @loop_reading; +my @barcodes; +my $today = C4::Dates->new(); +$today = $today->output("iso"); foreach my $issue (@{$issues}){ my %line; @@ -80,6 +83,24 @@ foreach my $issue (@{$issues}){ $line{barcode} = $issue->{'barcode'}; $line{volumeddesc} = $issue->{'volumeddesc'}; push(@loop_reading,\%line); + if (($input->param('op') eq 'export_barcodes') and ($today eq $issue->{'returndate'})) { + push( @barcodes, $issue->{'barcode'} ); + } +} + +if ($input->param('op') eq 'export_barcodes') { + my $borrowercardnumber = GetMember( borrowernumber => $borrowernumber )->{'cardnumber'} ; + my $delimiter = ":"; + $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') { -- 1.7.2.5
Date