Lines 75-95
my $branches = GetBranches();
Link Here
|
75 |
|
75 |
|
76 |
# barcode export |
76 |
# barcode export |
77 |
if ( $op eq 'export_barcodes' ) { |
77 |
if ( $op eq 'export_barcodes' ) { |
78 |
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); |
78 |
if ( $data->{'privacy'} < 2) { |
79 |
my @barcodes = |
79 |
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); |
80 |
map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues}; |
80 |
my @barcodes = |
81 |
my $borrowercardnumber = |
81 |
map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues}; |
82 |
GetMember( borrowernumber => $borrowernumber )->{'cardnumber'}; |
82 |
my $borrowercardnumber = |
83 |
my $delimiter = "\n"; |
83 |
GetMember( borrowernumber => $borrowernumber )->{'cardnumber'}; |
84 |
binmode( STDOUT, ":encoding(UTF-8)" ); |
84 |
my $delimiter = "\n"; |
85 |
print $input->header( |
85 |
binmode( STDOUT, ":encoding(UTF-8)" ); |
86 |
-type => 'application/octet-stream', |
86 |
print $input->header( |
87 |
-charset => 'utf-8', |
87 |
-type => 'application/octet-stream', |
88 |
-attachment => "$today-$borrowercardnumber-checkinexport.txt" |
88 |
-charset => 'utf-8', |
89 |
); |
89 |
-attachment => "$today-$borrowercardnumber-checkinexport.txt" |
90 |
my $content = join $delimiter, uniq(@barcodes); |
90 |
); |
91 |
print $content; |
91 |
|
92 |
exit; |
92 |
my $content = join $delimiter, uniq(@barcodes); |
|
|
93 |
print $content; |
94 |
exit; |
95 |
} |
93 |
} |
96 |
} |
94 |
|
97 |
|
95 |
if ( $data->{'category_type'} eq 'C') { |
98 |
if ( $data->{'category_type'} eq 'C') { |
Lines 123-128
$template->param(%$data);
Link Here
|
123 |
$template->param( |
126 |
$template->param( |
124 |
readingrecordview => 1, |
127 |
readingrecordview => 1, |
125 |
borrowernumber => $borrowernumber, |
128 |
borrowernumber => $borrowernumber, |
|
|
129 |
privacy => $data->{'privacy'}, |
126 |
categoryname => $data->{description}, |
130 |
categoryname => $data->{description}, |
127 |
roadtype => $roadtype, |
131 |
roadtype => $roadtype, |
128 |
is_child => ( $data->{category_type} eq 'C' ), |
132 |
is_child => ( $data->{category_type} eq 'C' ), |
129 |
- |
|
|