adding 'gettext' as this is requred by the translation utility
[koha.git] / labels / label-edit-profile.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use CGI;
5 use C4::Auth;
6 use C4::Context;
7 use C4::Output;
8 use C4::Labels;
9 use HTML::Template::Pro;
10 use POSIX;
11
12 my $DEBUG = 0;
13 my $dbh       = C4::Context->dbh;
14 my $query     = new CGI;
15
16 my $op          = $query->param('op');
17 my $prof_id     = $query->param('prof_id');
18 my $offset_horz = $query->param('offset_horz');
19 my $offset_vert = $query->param('offset_vert');
20 my $creep_horz  = $query->param('creep_horz');
21 my $creep_vert  = $query->param('creep_vert');
22 my $units       = $query->param('unit');
23
24 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
25     {
26         template_name   => "labels/label-edit-profile.tmpl",
27         query           => $query,
28         type            => "intranet",
29         authnotrequired => 1,
30         flagsrequired   => { catalogue => 1 },
31         debug           => 1,
32     }
33 );
34
35 if ($op eq '' || undef) {
36     my $prof = GetSinglePrinterProfile($prof_id);
37
38     my $tmpl = GetSingleLabelTemplate($prof->{'tmpl_id'});
39
40     if ( $DEBUG ) {
41         use Data::Dumper;
42         warn Dumper($prof);
43         warn Dumper($tmpl);
44     }       
45
46     my @units = (
47         { unit => 'INCH',  desc => 'Inches' },
48         { unit => 'CM',    desc => 'Centimeters' },
49         { unit => 'MM',    desc => 'Millimeters' },
50         { unit => 'POINT', desc => 'Postscript Points' },
51     );
52
53     foreach my $unit (@units) {
54         if ( $unit->{'unit'} eq $prof->{'unit'} ) {
55             $unit->{'selected'} = 1;
56         }
57     }
58
59     $template->param(
60
61         units => \@units,
62
63         prof_id      => $prof->{'prof_id'},
64         printername  => $prof->{'printername'},
65         paper_bin    => $prof->{'paper_bin'},
66         tmpl_code    => $tmpl->{'tmpl_code'},
67         prof_code    => $prof->{'prof_code'},
68         offset_horz  => $prof->{'offset_horz'},
69         offset_vert  => $prof->{'offset_vert'},
70         creep_horz   => $prof->{'creep_horz'},
71         creep_vert   => $prof->{'creep_vert'},
72     );
73 }
74
75 elsif ($op eq 'Save') {
76     warn "Units are now $units";
77
78     SaveProfile( $prof_id,   $offset_horz,   $offset_vert,   $creep_horz,    $creep_vert,    $units );
79     print $query->redirect("./label-profiles.pl");
80     exit;
81 }
82
83 elsif ($op eq 'Cancel') {
84     print $query->redirect("./label-profiles.pl");
85     exit;
86 }
87
88 output_html_with_http_headers $query, $cookie, $template->output;