|
Lines 21-26
use strict;
Link Here
|
| 21 |
use warnings; |
21 |
use warnings; |
| 22 |
|
22 |
|
| 23 |
use CGI; |
23 |
use CGI; |
|
|
24 |
use C4::Auth; |
| 24 |
use Graphics::Magick; |
25 |
use Graphics::Magick; |
| 25 |
use XML::Simple; |
26 |
use XML::Simple; |
| 26 |
use POSIX qw(ceil); |
27 |
use POSIX qw(ceil); |
|
Lines 34-39
use C4::Patroncards 1.000000;
Link Here
|
| 34 |
|
35 |
|
| 35 |
my $cgi = new CGI; |
36 |
my $cgi = new CGI; |
| 36 |
|
37 |
|
|
|
38 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ |
| 39 |
template_name => "labels/label-home.tt", |
| 40 |
query => $cgi, |
| 41 |
type => "intranet", |
| 42 |
authnotrequired => 0, |
| 43 |
flagsrequired => { tools => 'label_creator' }, |
| 44 |
debug => 1, |
| 45 |
}); |
| 46 |
|
| 47 |
|
| 37 |
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'); |
| 38 |
my $template_id = $cgi->param('template_id') || undef; |
49 |
my $template_id = $cgi->param('template_id') || undef; |
| 39 |
my $layout_id = $cgi->param('layout_id') || undef; |
50 |
my $layout_id = $cgi->param('layout_id') || undef; |
| 40 |
- |
|
|