projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Revert "Bug 9951: Followup for Tools"
[koha.git]
/
patroncards
/
create-pdf.pl
diff --git
a/patroncards/create-pdf.pl
b/patroncards/create-pdf.pl
index
5604f17
..
6a1b67a
100755
(executable)
--- a/
patroncards/create-pdf.pl
+++ b/
patroncards/create-pdf.pl
@@
-21,6
+21,7
@@
use strict;
use warnings;
use CGI;
use warnings;
use CGI;
+use C4::Auth;
use Graphics::Magick;
use XML::Simple;
use POSIX qw(ceil);
use Graphics::Magick;
use XML::Simple;
use POSIX qw(ceil);
@@
-29,11
+30,21
@@
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Debug;
use C4::Context;
use autouse 'C4::Members' => qw(GetPatronImage GetMember);
use C4::Debug;
use C4::Context;
use autouse 'C4::Members' => qw(GetPatronImage GetMember);
-use C4::Creators
1.000000
;
-use C4::Patroncards
1.000000
;
+use C4::Creators;
+use C4::Patroncards;
my $cgi = new CGI;
my $cgi = new CGI;
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
+ template_name => "labels/label-home.tt",
+ query => $cgi,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { tools => 'label_creator' },
+ debug => 1,
+ });
+
+
my $batch_id = $cgi->param('batch_id') if $cgi->param('batch_id');
my $template_id = $cgi->param('template_id') || undef;
my $layout_id = $cgi->param('layout_id') || undef;
my $batch_id = $cgi->param('batch_id') if $cgi->param('batch_id');
my $template_id = $cgi->param('template_id') || undef;
my $layout_id = $cgi->param('layout_id') || undef;
@@
-141,13
+152,13
@@
foreach my $item (@{$items}) {
elsif ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'creator_images') {
my $dbh = C4::Context->dbh();
$dbh->{LongReadLen} = 1000000; # allows us to read approx 1MB
elsif ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'creator_images') {
my $dbh = C4::Context->dbh();
$dbh->{LongReadLen} = 1000000; # allows us to read approx 1MB
- $image_data = $dbh->selectrow_hashref("SELECT imagefile FROM creator_images WHERE image_name = \'$
$layout_xml{'images'}{$_}{'data_source'}
{'image_name'}\'");
+ $image_data = $dbh->selectrow_hashref("SELECT imagefile FROM creator_images WHERE image_name = \'$
images->{$_}->{'data_source'}->[0]->
{'image_name'}\'");
warn sprintf('Database returned the following error: %s.', $error) if $error;
warn sprintf('Database returned the following error: %s.', $error) if $error;
- warn sprintf('Image does not exists in db table %s.', $
$layout_xml{'images'}{$_}{'data_source'}{'image_sourc
e'}) if !$image_data;
+ warn sprintf('Image does not exists in db table %s.', $
images->{$_}->{'data_source'}->[0]->{'image_nam
e'}) if !$image_data;
next PROCESS_IMAGES if !$image_data;
}
else {
next PROCESS_IMAGES if !$image_data;
}
else {
- warn sprintf('No retrieval method for image source %s.', $
$layout_xml{'images'}{$_}{'data_source'}
{'image_source'});
+ warn sprintf('No retrieval method for image source %s.', $
images->{$_}->{'data_source'}->[0]->
{'image_source'});
next PROCESS_IMAGES;
}
}
next PROCESS_IMAGES;
}
}