labels/label-save-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 #use Data::Dumper;
  13 #use Smart::Comments;
  14
  15
  16 my $dbh   = C4::Context->dbh;
  17 my $query = new CGI;
  18
  19 my $prof_id     = $query->param('prof_id');
  20 my $offset_horz = $query->param('offset_horz');
  21 my $offset_vert = $query->param('offset_vert');
  22 my $creep_horz  = $query->param('creep_horz');
  23 my $creep_vert  = $query->param('creep_vert');
  24 my $units       = $query->param('unit');
  25
  26 SaveProfile(
  27     $prof_id,   $offset_horz,   $offset_vert,   $creep_horz,    $creep_vert,    $units
  28 );
  29
  30
  31  print $query->redirect("./label-profiles.pl");
  32
  33