X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=admin%2Fauthtypes.pl;h=c864db792adedd071cb582a161d615779add0330;hb=7df5b35a36e859f745f42b5c857cd965c83b55f3;hp=492660dbbca78df34063ba60303cae3b0e123836;hpb=a6c9bd0eb55c32d5632625144775271f20aa15f7;p=koha.git diff --git a/admin/authtypes.pl b/admin/authtypes.pl index 492660dbbc..c864db792a 100755 --- a/admin/authtypes.pl +++ b/admin/authtypes.pl @@ -1,9 +1,8 @@ #!/usr/bin/perl -# written 20/02/2002 by paul.poulain@free.fr -# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html) - +# Copyright 2002 paul.poulain@biblibre.com # Copyright 2000-2002 Katipo Communications +# Copyright 2015 Koha Development Team # # This file is part of Koha. # @@ -20,114 +19,103 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; use C4::Output; -sub StringSearch { - my $sth = C4::Context->dbh->prepare("SELECT * FROM auth_types WHERE (authtypecode like ?) ORDER BY authtypecode"); - $sth->execute((shift || '') . "%"); - return $sth->fetchall_arrayref({}); -} +use Koha::Authorities; +use Koha::Authority::Types; -my $input = new CGI; -my $script_name = "/cgi-bin/koha/admin/authtypes.pl"; -my $searchfield = $input->param('authtypecode'); # FIXME: Auth Type search not really implemented +my $input = new CGI; my $authtypecode = $input->param('authtypecode'); -my $offset = $input->param('offset') || 0; -my $op = $input->param('op') || ''; -my $pagesize = 20; -my ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "admin/authtypes.tt", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {parameters => 'parameters_remaining_permissions'}, - debug => 1, - }); - -$template->param( - script_name => $script_name, - ($op || 'else') => 1, +my $op = $input->param('op') || 'list'; +my @messages; +my ( $template, $borrowernumber, $cookie ) = get_template_and_user( + { template_name => "admin/authtypes.tt", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { parameters => 'manage_marc_frameworks' }, + debug => 1, + } ); -my $dbh = C4::Context->dbh; +if ( $op eq 'add_form' ) { + my $authority_type; + if (defined $authtypecode) { + $authority_type = Koha::Authority::Types->find($authtypecode); + } + + $template->param( authority_type => $authority_type ); +} elsif ( $op eq 'add_validate' ) { + my $authtypecode = $input->param('authtypecode'); + my $authtypetext = $input->param('authtypetext'); + my $auth_tag_to_report = $input->param('auth_tag_to_report'); + my $summary = $input->param('summary'); + my $is_a_modif = $input->param('is_a_modif'); -# called by default. Used to create form to add or modify a record -if ($op eq 'add_form') { - #---- if primkey exists, it's a modify action, so read values to modify... - if ($authtypecode) { - my $sth = $dbh->prepare("SELECT * FROM auth_types WHERE authtypecode=?"); - $sth->execute($authtypecode); - my $data = $sth->fetchrow_hashref(); - $template->param( - authtypecode => $authtypecode, - authtypetext => $data->{'authtypetext'}, - auth_tag_to_report => $data->{'auth_tag_to_report'}, - summary => $data->{'summary'}, + if ($is_a_modif) { + my $authority_type = Koha::Authority::Types->find($authtypecode); + $authority_type->authtypetext($authtypetext); + $authority_type->auth_tag_to_report($auth_tag_to_report); + $authority_type->summary($summary); + eval { $authority_type->store; }; + if ($@) { + push @messages, { type => 'error', code => 'error_on_update' }; + } else { + push @messages, { type => 'message', code => 'success_on_update' }; + } + } else { + my $authority_type = Koha::Authority::Type->new( + { authtypecode => $authtypecode, + authtypetext => $authtypetext, + auth_tag_to_report => $auth_tag_to_report, + summary => $summary, + } ); + eval { $authority_type->store; }; + if ($@) { + push @messages, { type => 'error', code => 'error_on_insert' }; + } else { + push @messages, { type => 'message', code => 'success_on_insert' }; + } } - # END $OP eq ADD_FORM -################## ADD_VALIDATE ################################## -# called by add_form, used to insert/modify data in DB -} elsif ($op eq 'add_validate') { - my $sth = $input->param('modif') ? - $dbh->prepare("UPDATE auth_types SET authtypetext=? ,auth_tag_to_report=?, summary=? WHERE authtypecode=?") : - $dbh->prepare("INSERT INTO auth_types SET authtypetext=?, auth_tag_to_report=?, summary=?, authtypecode=?") ; - $sth->execute($input->param('authtypetext'),$input->param('auth_tag_to_report'),$input->param('summary'),$input->param('authtypecode')); - print $input->redirect($script_name); # FIXME: unnecessary redirect - exit; - # END $OP eq ADD_VALIDATE -################## DELETE_CONFIRM ################################## -# called by default form, used to confirm deletion of data in DB -} elsif ($op eq 'delete_confirm') { - #start the page and read in includes - my $sth=$dbh->prepare("SELECT count(*) AS total FROM auth_tag_structure WHERE authtypecode=?"); - $sth->execute($authtypecode); - my $total = $sth->fetchrow_hashref->{total}; + $op = 'list'; - my $sth2 = $dbh->prepare("SELECT * FROM auth_types WHERE authtypecode=?"); - $sth2->execute($authtypecode); - my $data = $sth2->fetchrow_hashref; +} elsif ( $op eq 'delete_confirm' ) { + my $authority_type = Koha::Authority::Types->find($authtypecode); + my $authorities_using_it = Koha::Authorities->search( { authtypecode => $authtypecode } )->count; + $template->param( + authority_type => $authority_type, + authorities_using_it => $authorities_using_it, + ); +} elsif ( $op eq 'delete_confirmed' ) { + my $authorities_using_it = Koha::Authorities->search( { authtypecode => $authtypecode } )->count; + if ( $authorities_using_it == 0 ) { + my $authority_type = Koha::Authority::Types->find($authtypecode); + my $deleted = eval { $authority_type->delete; }; - $template->param(authtypecode => $authtypecode, - authtypetext => $data->{'authtypetext'}, - summary => $data->{'summary'}, - total => $total); - # END $OP eq DELETE_CONFIRM -################## DELETE_CONFIRMED ################################## -# called by delete_confirm, used to effectively confirm deletion of data in DB -} elsif ($op eq 'delete_confirmed') { - #start the page and read in includes - my $sth=$dbh->prepare("DELETE FROM auth_types WHERE authtypecode=?"); - $sth->execute(uc $input->param('authtypecode')); - print $input->redirect($script_name); # FIXME: unnecessary redirect - exit; - # END $OP eq DELETE_CONFIRMED -################## DEFAULT ################################## -} else { # DEFAULT - my $results = StringSearch($searchfield); - my $count = scalar @$results; - my @loop_data; - for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){ - push @loop_data, { - authtypecode => $results->[$i]{'authtypecode'}, - authtypetext => $results->[$i]{'authtypetext'}, - auth_tag_to_report => $results->[$i]{'auth_tag_to_report'}, - summary => $results->[$i]{'summary'}, - }; - } - $template->param(loop => \@loop_data); - if ($offset>0) { - my $prevpage = $offset-$pagesize; - $template->param(previous => "$script_name?offset=".$prevpage); + if ( $@ or not $deleted ) { + push @messages, { type => 'error', code => 'error_on_delete' }; + } else { + push @messages, { type => 'message', code => 'success_on_delete' }; + } + } else { + push @messages, { type => 'error', code => 'error_on_delete' }; } - if ($offset+$pagesize<$count) { - my $nextpage = $offset+$pagesize; - $template->param(next => "$script_name?offset=".$nextpage); - } -} #---- END $OP eq DEFAULT + $op = 'list'; +} + +if ( $op eq 'list' ) { + my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypecode'] } ); + $template->param( authority_types => $authority_types, ); +} + +$template->param( + messages => \@messages, + op => $op, +); + output_html_with_http_headers $input, $cookie, $template->output;