# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
if ($op eq 'edit') {
$profile = C4::Labels::Profile->retrieve(profile_id => $profile_id);
- $template_list = get_all_templates(table_name => 'creator_templates', field_list => 'template_id,template_code, profile_id');
+ $template_list = get_all_templates( { fields => [ qw( template_id template_code profile_id) ] } );
}
elsif ($op eq 'save') {
my @params = (
- printer_name => $cgi->param('printer_name') || 'DEFAULT PRINTER',
- paper_bin => $cgi->param('paper_bin') || 'Tray 1',
- offset_horz => $cgi->param('offset_horz') || 0,
- offset_vert => $cgi->param('offset_vert') || 0,
- creep_horz => $cgi->param('creep_horz') || 0,
- creep_vert => $cgi->param('creep_vert') || 0,
- units => $cgi->param('units') || 'POINT',
+ printer_name => scalar $cgi->param('printer_name') || 'DEFAULT PRINTER',
+ paper_bin => scalar $cgi->param('paper_bin') || 'Tray 1',
+ offset_horz => scalar $cgi->param('offset_horz') || 0,
+ offset_vert => scalar $cgi->param('offset_vert') || 0,
+ creep_horz => scalar $cgi->param('creep_horz') || 0,
+ creep_vert => scalar $cgi->param('creep_vert') || 0,
+ units => scalar $cgi->param('units') || 'POINT',
);
if ($profile_id) { # if a label_id was passed in, this is an update to an existing layout
$profile = C4::Labels::Profile->retrieve(profile_id => $profile_id);