Attachment #53228 for bug #14138

View | Details | Raw Unified | Return to bug 14138
Collapse All | Expand All




                                                                     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 $items = undef; # items = cards
my $new_page = 0;

# Wrap pdf creation part into an eval, some vars need scope outside eval
my $pdf_ok;
my $pdf;
my $pdf_file;
                  );

eval {
    $pdf_file = (@label_ids || @borrower_numbers ? "card_single_" . scalar(@label_ids || @borrower_numbers) : "card_batch_$batch_id");
my $pc_template = C4::Patroncards::Template->retrieve(template_id => $template_id, profile_id => 1);
my $layout = C4::Patroncards::Layout->retrieve(layout_id => $layout_id);

    $pdf = C4::Creators::PDF->new(InitVars => 0);
    my $batch = C4::Patroncards::Batch->retrieve(batch_id => $batch_id);
    my $pc_template = C4::Patroncards::Template->retrieve(template_id => $template_id, profile_id => 1);
    my $layout = C4::Patroncards::Layout->retrieve(layout_id => $layout_id);

    $| = 1;
my $lower_left_x  = 0;
my $lower_left_y  = 0;
my $upper_right_x = $pc_template->get_attr('page_width');
my $upper_right_y = $pc_template->get_attr('page_height');

    # set the paper size
    my $lower_left_x  = 0;
    my $lower_left_y  = 0;
    my $upper_right_x = $pc_template->get_attr('page_width');
    my $upper_right_y = $pc_template->get_attr('page_height');

    $pdf->Compress(1); # comment this out to debug pdf files, but be sure to uncomment it in production or you may be very sorry...
    $pdf->Mbox($lower_left_x, $lower_left_y, $upper_right_x, $upper_right_y);

    my ($llx, $lly) = 0,0;
    (undef, undef, $llx, $lly) = $pc_template->get_label_position($start_card);

    if (@label_ids) {
    my $batch_items = $batch->get_attr('items');
        grep {
            my $label_id = $_;
            push(@{$items}, grep{$_->{'label_id'} == $label_id;} @{$batch_items});
         } @label_ids;
    }
    elsif (@borrower_numbers) {
        grep {
            push(@{$items}, {borrower_number => $_});
        } @borrower_numbers;
    }
    elsif ( $patronlist_id  ) {
        my ($list) = GetPatronLists( { patron_list_id => $patronlist_id } );
        my @borrowerlist = $list->patron_list_patrons()->search_related('borrowernumber')
        ->get_column('borrowernumber')->all();
        grep {
            push(@{$items}, {borrower_number => $_});
        } @borrowerlist;
    }
    else {
        $items = $batch->get_attr('items');
    }

    my $layout_xml = XMLin($layout->get_attr('layout_xml'), ForceArray => 1);

    if ($layout_xml->{'page_side'} eq 'B') { # rearrange items on backside of page to swap columns
        my $even = 1;
        my $odd = 0;
        my @swap_array = ();
        while ($even <= (scalar(@{$items})+1)) {
            push (@swap_array, @{$items}[$even]);
            push (@swap_array, @{$items}[$odd]);
            $even += 2;
            $odd += 2;
        }
        @{$items} = @swap_array;
    }
    @{$items} = @swap_array;
}

    CARD_ITEMS:
    foreach my $item (@{$items}) {
        if ($item) {
            my $borrower_number = $item->{'borrower_number'};
            my $card_number = GetMember(borrowernumber => $borrower_number)->{'cardnumber'};

    #       Set barcode data
            $layout_xml->{'barcode'}->[0]->{'data'} = $card_number if $layout_xml->{'barcode'};

    #       Create a new patroncard object
            my $patron_card = C4::Patroncards::Patroncard->new(
                    batch_id                => 1,
                    borrower_number         => $borrower_number,
                    llx                     => $llx, # lower left corner of the card
                    lly                     => $lly,
                    height                  => $pc_template->get_attr('label_height'), # of the card
                    width                   => $pc_template->get_attr('label_width'),
                    layout                  => $layout_xml,
                    text_wrap_cols          => 30, #FIXME: hardcoded,
            );

            $patron_card->draw_guide_box($pdf) if $layout_xml->{'guide_box'};
            $patron_card->draw_barcode($pdf) if $layout_xml->{'barcode'};

    #       Do image foo and place binary image data into layout hash
            my $image_data = {};
            my $error = undef;
            my $images = $layout_xml->{'images'};
            PROCESS_IMAGES:
            foreach (keys %{$images}) {
                if (grep{m/source/} keys(%{$images->{$_}->{'data_source'}->[0]})) {
                    if ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'none') {
                        next PROCESS_IMAGES;
                    }
                    elsif ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'patronimages') {
                        my $patron_image = Koha::Patron::Images->find($borrower_number);
                        if ($patron_image) {
                            $image_data->{'imagefile'} = $patron_image->imagefile;
                        }
                        else {
                            warn sprintf('No image exists for borrower number %s.', $borrower_number);
                        }
                        next PROCESS_IMAGES unless $patron_image;
                    }
                    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 = \'$images->{$_}->{'data_source'}->[0]->{'image_name'}\'");
                        warn sprintf('Database returned the following error: %s.', $error) if $error;
                        warn sprintf('Image does not exists in db table %s.', $images->{$_}->{'data_source'}->[0]->{'image_name'}) if !$image_data;
                        next PROCESS_IMAGES if !$image_data;
                    }
                    else {
                        warn sprintf('No retrieval method for image source %s.', $images->{$_}->{'data_source'}->[0]->{'image_source'});
                        next PROCESS_IMAGES;
                    }
                    next PROCESS_IMAGES unless $patron_image;
                }
                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 = \'$images->{$_}->{'data_source'}->[0]->{'image_name'}\'");
                    warn sprintf('Database returned the following error: %s.', $error) if $error;
                    warn sprintf('Image does not exists in db table %s.', $images->{$_}->{'data_source'}->[0]->{'image_name'}) if !$image_data;
                    next PROCESS_IMAGES if !$image_data;
                }
                else {
                    warn sprintf("Unrecognized image data source: %s", $images->{$_}->{'data_source'});
                    next PROCESS_IMAGES;
                }
            }
            else {
                warn sprintf("Unrecognized image data source: %s", $images->{$_}->{'data_source'});
                next PROCESS_IMAGES;
            }

            my $binary_data = $image_data->{'imagefile'};

    #       invoke the display image object...
            my $image = Graphics::Magick->new;
            $image->BlobToImage($binary_data);

    #       invoke the alt (aka print) image object...
            my $alt_image = Graphics::Magick->new;
            $alt_image->BlobToImage($binary_data);
            $alt_image->Set(magick => 'jpg', quality => 100);

            #To avoid pixelation have the image 5 times bigger and
            #scale it down in PDF itself
            my $oversize_factor = 8;
            my $pdf_scale_factor = 1 / $oversize_factor;

            my $alt_width = ceil($image->Get('width')); # the rounding up is important: Adobe reader does not handle long decimal numbers well
            my $alt_height = ceil($image->Get('height'));
            my $ratio = $alt_width / $alt_height;
            my $display_height = ceil($images->{$_}->{'Dx'});
            my $display_width = ceil($ratio * $display_height);


            $image->Resize(width => $oversize_factor * $display_width, height => $oversize_factor * $display_height);
            $image->Set(magick => 'jpg', quality => 100);

    #       Write param for downsizing in pdf
                $images->{$_}->{'scale'} = $pdf_scale_factor;

    #       Write params for alt image...
                $images->{$_}->{'alt'}->{'Sx'} = $oversize_factor * $alt_width;
                $images->{$_}->{'alt'}->{'Sy'} = $oversize_factor * $alt_height;
                $images->{$_}->{'alt'}->{'data'} = $alt_image->ImageToBlob();

    #       Write params for display image...
                $images->{$_}->{'Sx'} = $oversize_factor * $display_width;
                $images->{$_}->{'Sy'} = $oversize_factor * $display_height;
                $images->{$_}->{'data'} = $image->ImageToBlob();

                my $err = $patron_card->draw_image($pdf);
                warn sprintf ("Error encountered while attempting to draw image %s, %s", $_, $err) if $err;
            }
            $patron_card->draw_text($pdf);
        }
        ($llx, $lly, $new_page) = $pc_template->get_next_label_pos();
        $pdf->Page() if $new_page;
    }
    # No errors occured within eval, we can issue the pdf
    $pdf_ok = 1;
}; # end of eval block

$pdf->End();

if ($pdf_ok) {
    #issue the pdf
    print $cgi->header( -type       => 'application/pdf',
                    -encoding   => 'utf-8',
                    -attachment => "$pdf_file.pdf",
                  );
    $pdf->End();
}
else {
    # warn user that pdf is not created
    print $cgi->redirect('/cgi-bin/koha/patroncards/manage.pl?card_element=batch&pdferror=1');
}

1;
- 

Return to bug 14138

Lines 45-52 my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ Link Here

(-)a/patroncards/create-pdf.pl (-149 / +160 lines)
45	flagsrequired => { tools => 'label_creator' },	45	flagsrequired => { tools => 'label_creator' },
46	debug => 1,	46	debug => 1,
47	});	47	});
48
49
50	my $batch_id = $cgi->param('batch_id') if $cgi->param('batch_id');	48	my $batch_id = $cgi->param('batch_id') if $cgi->param('batch_id');
51	my $template_id = $cgi->param('template_id') \|\| undef;	49	my $template_id = $cgi->param('template_id') \|\| undef;
52	my $layout_id = $cgi->param('layout_id') \|\| undef;	50	my $layout_id = $cgi->param('layout_id') \|\| undef;
Lines 58-239 my $patronlist_id = $cgi->param('patronlist_id'); Link Here
58	my $items = undef; # items = cards	56	my $items = undef; # items = cards
59	my $new_page = 0;	57	my $new_page = 0;
60		58
61	my $pdf_file = (@label_ids \|\| @borrower_numbers ? "card_single_" . scalar(@label_ids \|\| @borrower_numbers) : "card_batch_$batch_id");	59	# Wrap pdf creation part into an eval, some vars need scope outside eval
62	print $cgi->header( -type => 'application/pdf',	60	my $pdf_ok;
63	-encoding => 'utf-8',	61	my $pdf;
64	-attachment => "$pdf_file.pdf",	62	my $pdf_file;
65	);
66		63
67	my $pdf = C4::Creators::PDF->new(InitVars => 0);	64	eval {
68	my $batch = C4::Patroncards::Batch->retrieve(batch_id => $batch_id);	65	$pdf_file = (@label_ids \|\| @borrower_numbers ? "card_single_" . scalar(@label_ids \|\| @borrower_numbers) : "card_batch_$batch_id");
69	my $pc_template = C4::Patroncards::Template->retrieve(template_id => $template_id, profile_id => 1);
70	my $layout = C4::Patroncards::Layout->retrieve(layout_id => $layout_id);
71		66
72	$\| = 1;	67	$pdf = C4::Creators::PDF->new(InitVars => 0);
		68	my $batch = C4::Patroncards::Batch->retrieve(batch_id => $batch_id);
		69	my $pc_template = C4::Patroncards::Template->retrieve(template_id => $template_id, profile_id => 1);
		70	my $layout = C4::Patroncards::Layout->retrieve(layout_id => $layout_id);
73		71
74	# set the paper size	72	$\| = 1;
75	my $lower_left_x = 0;
76	my $lower_left_y = 0;
77	my $upper_right_x = $pc_template->get_attr('page_width');
78	my $upper_right_y = $pc_template->get_attr('page_height');
79		73
80	$pdf->Compress(1); # comment this out to debug pdf files, but be sure to uncomment it in production or you may be very sorry...	74	# set the paper size
81	$pdf->Mbox($lower_left_x, $lower_left_y, $upper_right_x, $upper_right_y);	75	my $lower_left_x = 0;
		76	my $lower_left_y = 0;
		77	my $upper_right_x = $pc_template->get_attr('page_width');
		78	my $upper_right_y = $pc_template->get_attr('page_height');
82		79
83	my ($llx, $lly) = 0,0;	80	$pdf->Compress(1); # comment this out to debug pdf files, but be sure to uncomment it in production or you may be very sorry...
84	(undef, undef, $llx, $lly) = $pc_template->get_label_position($start_card);	81	$pdf->Mbox($lower_left_x, $lower_left_y, $upper_right_x, $upper_right_y);
85		82
86	if (@label_ids) {	83	my ($llx, $lly) = 0,0;
		84	(undef, undef, $llx, $lly) = $pc_template->get_label_position($start_card);
		85
		86	if (@label_ids) {
87	my $batch_items = $batch->get_attr('items');	87	my $batch_items = $batch->get_attr('items');
88	grep {	88	grep {
89	my $label_id = $_;	89	my $label_id = $_;
90	push(@{$items}, grep{$_->{'label_id'} == $label_id;} @{$batch_items});	90	push(@{$items}, grep{$_->{'label_id'} == $label_id;} @{$batch_items});
91	} @label_ids;	91	} @label_ids;
92	}	92	}
93	elsif (@borrower_numbers) {	93	elsif (@borrower_numbers) {
94	grep {	94	grep {
95	push(@{$items}, {borrower_number => $_});	95	push(@{$items}, {borrower_number => $_});
96	} @borrower_numbers;	96	} @borrower_numbers;
97	}	97	}
98	elsif ( $patronlist_id ) {	98	elsif ( $patronlist_id ) {
99	my ($list) = GetPatronLists( { patron_list_id => $patronlist_id } );	99	my ($list) = GetPatronLists( { patron_list_id => $patronlist_id } );
100	my @borrowerlist = $list->patron_list_patrons()->search_related('borrowernumber')	100	my @borrowerlist = $list->patron_list_patrons()->search_related('borrowernumber')
101	->get_column('borrowernumber')->all();	101	->get_column('borrowernumber')->all();
102	grep {	102	grep {
103	push(@{$items}, {borrower_number => $_});	103	push(@{$items}, {borrower_number => $_});
104	} @borrowerlist;	104	} @borrowerlist;
105	}	105	}
106	else {	106	else {
107	$items = $batch->get_attr('items');	107	$items = $batch->get_attr('items');
108	}	108	}
109		109
110	my $layout_xml = XMLin($layout->get_attr('layout_xml'), ForceArray => 1);	110	my $layout_xml = XMLin($layout->get_attr('layout_xml'), ForceArray => 1);
111		111
112	if ($layout_xml->{'page_side'} eq 'B') { # rearrange items on backside of page to swap columns	112	if ($layout_xml->{'page_side'} eq 'B') { # rearrange items on backside of page to swap columns
113	my $even = 1;	113	my $even = 1;
114	my $odd = 0;	114	my $odd = 0;
115	my @swap_array = ();	115	my @swap_array = ();
116	while ($even <= (scalar(@{$items})+1)) {	116	while ($even <= (scalar(@{$items})+1)) {
117	push (@swap_array, @{$items}[$even]);	117	push (@swap_array, @{$items}[$even]);
118	push (@swap_array, @{$items}[$odd]);	118	push (@swap_array, @{$items}[$odd]);
119	$even += 2;	119	$even += 2;
120	$odd += 2;	120	$odd += 2;
		121	}
		122	@{$items} = @swap_array;
121	}	123	}
122	@{$items} = @swap_array;
123	}
124		124
125	CARD_ITEMS:	125	CARD_ITEMS:
126	foreach my $item (@{$items}) {	126	foreach my $item (@{$items}) {
127	if ($item) {	127	if ($item) {
128	my $borrower_number = $item->{'borrower_number'};	128	my $borrower_number = $item->{'borrower_number'};
129	my $card_number = GetMember(borrowernumber => $borrower_number)->{'cardnumber'};	129	my $card_number = GetMember(borrowernumber => $borrower_number)->{'cardnumber'};
130		130
131	# Set barcode data	131	# Set barcode data
132	$layout_xml->{'barcode'}->[0]->{'data'} = $card_number if $layout_xml->{'barcode'};	132	$layout_xml->{'barcode'}->[0]->{'data'} = $card_number if $layout_xml->{'barcode'};
133		133
134	# Create a new patroncard object	134	# Create a new patroncard object
135	my $patron_card = C4::Patroncards::Patroncard->new(	135	my $patron_card = C4::Patroncards::Patroncard->new(
136	batch_id => 1,	136	batch_id => 1,
137	borrower_number => $borrower_number,	137	borrower_number => $borrower_number,
138	llx => $llx, # lower left corner of the card	138	llx => $llx, # lower left corner of the card
139	lly => $lly,	139	lly => $lly,
140	height => $pc_template->get_attr('label_height'), # of the card	140	height => $pc_template->get_attr('label_height'), # of the card
141	width => $pc_template->get_attr('label_width'),	141	width => $pc_template->get_attr('label_width'),
142	layout => $layout_xml,	142	layout => $layout_xml,
143	text_wrap_cols => 30, #FIXME: hardcoded,	143	text_wrap_cols => 30, #FIXME: hardcoded,
144	);	144	);
145		145
146	$patron_card->draw_guide_box($pdf) if $layout_xml->{'guide_box'};	146	$patron_card->draw_guide_box($pdf) if $layout_xml->{'guide_box'};
147	$patron_card->draw_barcode($pdf) if $layout_xml->{'barcode'};	147	$patron_card->draw_barcode($pdf) if $layout_xml->{'barcode'};
148		148
149	# Do image foo and place binary image data into layout hash	149	# Do image foo and place binary image data into layout hash
150	my $image_data = {};	150	my $image_data = {};
151	my $error = undef;	151	my $error = undef;
152	my $images = $layout_xml->{'images'};	152	my $images = $layout_xml->{'images'};
153	PROCESS_IMAGES:	153	PROCESS_IMAGES:
154	foreach (keys %{$images}) {	154	foreach (keys %{$images}) {
155	if (grep{m/source/} keys(%{$images->{$_}->{'data_source'}->[0]})) {	155	if (grep{m/source/} keys(%{$images->{$_}->{'data_source'}->[0]})) {
156	if ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'none') {	156	if ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'none') {
157	next PROCESS_IMAGES;	157	next PROCESS_IMAGES;
158	}	158	}
159	elsif ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'patronimages') {	159	elsif ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'patronimages') {
160	my $patron_image = Koha::Patron::Images->find($borrower_number);	160	my $patron_image = Koha::Patron::Images->find($borrower_number);
161	if ($patron_image) {	161	if ($patron_image) {
162	$image_data->{'imagefile'} = $patron_image->imagefile;	162	$image_data->{'imagefile'} = $patron_image->imagefile;
		163	}
		164	else {
		165	warn sprintf('No image exists for borrower number %s.', $borrower_number);
		166	}
		167	next PROCESS_IMAGES unless $patron_image;
		168	}
		169	elsif ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'creator_images') {
		170	my $dbh = C4::Context->dbh();
		171	$dbh->{LongReadLen} = 1000000; # allows us to read approx 1MB
		172	$image_data = $dbh->selectrow_hashref("SELECT imagefile FROM creator_images WHERE image_name = \'$images->{$_}->{'data_source'}->[0]->{'image_name'}\'");
		173	warn sprintf('Database returned the following error: %s.', $error) if $error;
		174	warn sprintf('Image does not exists in db table %s.', $images->{$_}->{'data_source'}->[0]->{'image_name'}) if !$image_data;
		175	next PROCESS_IMAGES if !$image_data;
163	}	176	}
164	else {	177	else {
165	warn sprintf('No image exists for borrower number %s.', $borrower_number);	178	warn sprintf('No retrieval method for image source %s.', $images->{$_}->{'data_source'}->[0]->{'image_source'});
		179	next PROCESS_IMAGES;
166	}	180	}
167	next PROCESS_IMAGES unless $patron_image;
168	}
169	elsif ($images->{$_}->{'data_source'}->[0]->{'image_source'} eq 'creator_images') {
170	my $dbh = C4::Context->dbh();
171	$dbh->{LongReadLen} = 1000000; # allows us to read approx 1MB
172	$image_data = $dbh->selectrow_hashref("SELECT imagefile FROM creator_images WHERE image_name = \'$images->{$_}->{'data_source'}->[0]->{'image_name'}\'");
173	warn sprintf('Database returned the following error: %s.', $error) if $error;
174	warn sprintf('Image does not exists in db table %s.', $images->{$_}->{'data_source'}->[0]->{'image_name'}) if !$image_data;
175	next PROCESS_IMAGES if !$image_data;
176	}	181	}
177	else {	182	else {
178	warn sprintf('No retrieval method for image source %s.', $images->{$_}->{'data_source'}->[0]->{'image_source'});	183	warn sprintf("Unrecognized image data source: %s", $images->{$_}->{'data_source'});
179	next PROCESS_IMAGES;	184	next PROCESS_IMAGES;
180	}	185	}
181	}
182	else {
183	warn sprintf("Unrecognized image data source: %s", $images->{$_}->{'data_source'});
184	next PROCESS_IMAGES;
185	}
186		186
187	my $binary_data = $image_data->{'imagefile'};	187	my $binary_data = $image_data->{'imagefile'};
188		188
189	# invoke the display image object...	189	# invoke the display image object...
190	my $image = Graphics::Magick->new;	190	my $image = Graphics::Magick->new;
191	$image->BlobToImage($binary_data);	191	$image->BlobToImage($binary_data);
192		192
193	# invoke the alt (aka print) image object...	193	# invoke the alt (aka print) image object...
194	my $alt_image = Graphics::Magick->new;	194	my $alt_image = Graphics::Magick->new;
195	$alt_image->BlobToImage($binary_data);	195	$alt_image->BlobToImage($binary_data);
196	$alt_image->Set(magick => 'jpg', quality => 100);	196	$alt_image->Set(magick => 'jpg', quality => 100);
197		197
198	#To avoid pixelation have the image 5 times bigger and	198	#To avoid pixelation have the image 5 times bigger and
199	#scale it down in PDF itself	199	#scale it down in PDF itself
200	my $oversize_factor = 8;	200	my $oversize_factor = 8;
201	my $pdf_scale_factor = 1 / $oversize_factor;	201	my $pdf_scale_factor = 1 / $oversize_factor;
202		202
203	my $alt_width = ceil($image->Get('width')); # the rounding up is important: Adobe reader does not handle long decimal numbers well	203	my $alt_width = ceil($image->Get('width')); # the rounding up is important: Adobe reader does not handle long decimal numbers well
204	my $alt_height = ceil($image->Get('height'));	204	my $alt_height = ceil($image->Get('height'));
205	my $ratio = $alt_width / $alt_height;	205	my $ratio = $alt_width / $alt_height;
206	my $display_height = ceil($images->{$_}->{'Dx'});	206	my $display_height = ceil($images->{$_}->{'Dx'});
207	my $display_width = ceil($ratio * $display_height);	207	my $display_width = ceil($ratio * $display_height);
208		208
209		209
210	$image->Resize(width => $oversize_factor * $display_width, height => $oversize_factor * $display_height);	210	$image->Resize(width => $oversize_factor * $display_width, height => $oversize_factor * $display_height);
211	$image->Set(magick => 'jpg', quality => 100);	211	$image->Set(magick => 'jpg', quality => 100);
212		212
213	# Write param for downsizing in pdf	213	# Write param for downsizing in pdf
214	$images->{$_}->{'scale'} = $pdf_scale_factor;	214	$images->{$_}->{'scale'} = $pdf_scale_factor;
215		215
216	# Write params for alt image...	216	# Write params for alt image...
217	$images->{$_}->{'alt'}->{'Sx'} = $oversize_factor * $alt_width;	217	$images->{$_}->{'alt'}->{'Sx'} = $oversize_factor * $alt_width;
218	$images->{$_}->{'alt'}->{'Sy'} = $oversize_factor * $alt_height;	218	$images->{$_}->{'alt'}->{'Sy'} = $oversize_factor * $alt_height;
219	$images->{$_}->{'alt'}->{'data'} = $alt_image->ImageToBlob();	219	$images->{$_}->{'alt'}->{'data'} = $alt_image->ImageToBlob();
220		220
221	# Write params for display image...	221	# Write params for display image...
222	$images->{$_}->{'Sx'} = $oversize_factor * $display_width;	222	$images->{$_}->{'Sx'} = $oversize_factor * $display_width;
223	$images->{$_}->{'Sy'} = $oversize_factor * $display_height;	223	$images->{$_}->{'Sy'} = $oversize_factor * $display_height;
224	$images->{$_}->{'data'} = $image->ImageToBlob();	224	$images->{$_}->{'data'} = $image->ImageToBlob();
225		225
226	my $err = $patron_card->draw_image($pdf);	226	my $err = $patron_card->draw_image($pdf);
227	warn sprintf ("Error encountered while attempting to draw image %s, %s", $_, $err) if $err;	227	warn sprintf ("Error encountered while attempting to draw image %s, %s", $_, $err) if $err;
		228	}
		229	$patron_card->draw_text($pdf);
228	}	230	}
229	$patron_card->draw_text($pdf);	231	($llx, $lly, $new_page) = $pc_template->get_next_label_pos();
		232	$pdf->Page() if $new_page;
230	}	233	}
231	($llx, $lly, $new_page) = $pc_template->get_next_label_pos();	234	# No errors occured within eval, we can issue the pdf
232	$pdf->Page() if $new_page;	235	$pdf_ok = 1;
233	}	236	}; # end of eval block
234
235	$pdf->End();
236		237
237	# FIXME: Possibly do a redirect here if there were error encountered during PDF creation.	238	if ($pdf_ok) {
		239	#issue the pdf
		240	print $cgi->header( -type => 'application/pdf',
		241	-encoding => 'utf-8',
		242	-attachment => "$pdf_file.pdf",
		243	);
		244	$pdf->End();
		245	}
		246	else {
		247	# warn user that pdf is not created
		248	print $cgi->redirect('/cgi-bin/koha/patroncards/manage.pl?card_element=batch&pdferror=1');
		249	}
238		250
239	1;	251	1;
240	-