X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=patroncards%2Fedit-template.pl;h=1c7a2cd41131cbda44141b8f328f803687e44fec;hb=bb5d95749bd597953fad17ba4cc3f5262d538ff2;hp=8ac1e487b03994466a07b783175b8da9831b38f1;hpb=638786e719fb297ae976061b09a71f3d788416f4;p=koha-ffzg.git diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl index 8ac1e487b0..1c7a2cd411 100755 --- a/patroncards/edit-template.pl +++ b/patroncards/edit-template.pl @@ -23,19 +23,18 @@ use Modern::Perl; use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); -use C4::Auth qw(get_template_and_user); -use C4::Output qw(output_html_with_http_headers); -use C4::Creators; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Creators qw( get_all_profiles get_unit_values ); use C4::Patroncards; -my $cgi = new CGI; +my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { template_name => "patroncards/edit-template.tt", query => $cgi, type => "intranet", - flagsrequired => { catalogue => 1 }, - debug => 1, + flagsrequired => { tools => 'label_creator' }, } ); @@ -48,10 +47,10 @@ my $units = get_unit_values(); if ($op eq 'edit') { $card_template = C4::Patroncards::Template->retrieve(template_id => $template_id); - $profile_list = get_all_profiles({ fields => [ qw( profile_id printer_name paper_bin ) ], filters => {template_id => [ $template_id, '' ]} } ); + $profile_list = get_all_profiles({ fields => [ qw( profile_id printer_name paper_bin ) ], filters => {template_id => [ $template_id, 0 ], creator => 'Patroncards'} } ); } elsif ($op eq 'save') { - my @params = ( profile_id => scalar $cgi->param('profile_id') || '', + my @params = ( profile_id => scalar $cgi->param('profile_id') || 0, template_code => scalar $cgi->param('template_code'), template_desc => scalar $cgi->param('template_desc'), page_width => scalar $cgi->param('page_width'),