9 use HTML::Template::Pro;
13 my $dbh = C4::Context->dbh;
15 my $op = $query->param('op');
16 #my $prof_code = $query->param('prof_code');
17 my $prof_id = $query->param('prof_id');
18 #my $printername = $query->param('printername');
19 #my $tmpl_id = $query->param('tmpl_id');
20 #my $paper_bin = $query->param('paper_bin');
21 #my $offset_horz = $query->param('offset_horz');
22 #my $offset_vert = $query->param('offset_vert');
23 #my $creep_horz = $query->param('creep_horz');
24 #my $creep_vert = $query->param('creep_vert');
26 # little block for displaying active layout/template/batch in templates
28 my $batch_id = $query->param('batch_id');
29 my $active_layout = get_active_layout();
30 my $active_template = GetActiveLabelTemplate();
31 my $active_layout_name = $active_layout->{'layoutname'};
32 my $active_template_name = $active_template->{'tmpl_code'};
35 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
37 template_name => "labels/label-profiles.tmpl",
41 flagsrequired => { catalogue => 1 },
48 if ( $op eq 'delete' ) {
49 my $dberror = DeleteProfile($prof_id);
50 warn "DB returned error: $dberror" if $dberror;
53 @resultsloop = GetAllPrinterProfiles();
56 batch_id => $batch_id,
57 active_layout_name => $active_layout_name,
58 active_template_name => $active_template_name,
60 resultsloop => \@resultsloop,
63 output_html_with_http_headers $query, $cookie, $template->output;