admin/biblio_framework.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright 2000-2002 Katipo Communications
   4 # Copyright 2002 Paul Poulain
   5 #
   6 # This file is part of Koha.
   7 #
   8 # Koha is free software; you can redistribute it and/or modify it
   9 # under the terms of the GNU General Public License as published by
  10 # the Free Software Foundation; either version 3 of the License, or
  11 # (at your option) any later version.
  12 #
  13 # Koha is distributed in the hope that it will be useful, but
  14 # WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  16 # GNU General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU General Public License
  19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  20
  21 use Modern::Perl;
  22 use CGI qw ( -utf8 );
  23 use C4::Context;
  24 use C4::Auth;
  25 use C4::Output;
  26 use Koha::Biblios;
  27 use Koha::BiblioFramework;
  28 use Koha::BiblioFrameworks;
  29 use Koha::Cache;
  30
  31 my $input         = new CGI;
  32 my $frameworkcode = $input->param('frameworkcode') || q||;
  33 my $op            = $input->param('op') || q|list|;
  34 my $cache         = Koha::Cache->get_instance();
  35 my @messages;
  36
  37 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
  38     {   template_name   => "admin/biblio_framework.tt",
  39         query           => $input,
  40         type            => "intranet",
  41         authnotrequired => 0,
  42         flagsrequired   => { parameters => 'parameters_remaining_permissions' },
  43         debug           => 1,
  44     }
  45 );
  46
  47 my $dbh = C4::Context->dbh;
  48 if ( $op eq 'add_form' ) {
  49     my $framework;
  50     if ($frameworkcode) {
  51         $framework = Koha::BiblioFrameworks->find($frameworkcode);
  52     }
  53     $template->param( framework => $framework );
  54 } elsif ( $op eq 'add_validate' ) {
  55     my $frameworkcode = $input->param('frameworkcode');
  56     my $frameworktext = $input->param('frameworktext');
  57     my $is_a_modif    = $input->param('is_a_modif');
  58
  59     if ($is_a_modif) {
  60         my $framework = Koha::BiblioFrameworks->find($frameworkcode);
  61         $framework->frameworktext($frameworktext);
  62         eval { $framework->store; };
  63         if ($@) {
  64             push @messages, { type => 'error', code => 'error_on_update' };
  65         } else {
  66             push @messages, { type => 'message', code => 'success_on_update' };
  67         }
  68     } else {
  69         my $framework = Koha::BiblioFramework->new(
  70             {   frameworkcode => $frameworkcode,
  71                 frameworktext => $frameworktext,
  72             }
  73         );
  74         eval { $framework->store; };
  75         if ($@) {
  76             push @messages, { type => 'error', code => 'error_on_insert' };
  77         } else {
  78             push @messages, { type => 'message', code => 'success_on_insert' };
  79         }
  80     }
  81     $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
  82     $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
  83     $cache->clear_from_cache("default_value_for_mod_marc-$frameworkcode");
  84     $op = 'list';
  85 } elsif ( $op eq 'delete_confirm' ) {
  86     my $framework = Koha::BiblioFrameworks->find($frameworkcode);
  87     my $count = Koha::Biblios->search( { frameworkcode => $frameworkcode, } )->count;
  88
  89     $template->param(
  90         framework                  => $framework,
  91         biblios_use_this_framework => $count,
  92     );
  93 } elsif ( $op eq 'delete_confirmed' ) {
  94     my $framework = Koha::BiblioFrameworks->find($frameworkcode);
  95     my $deleted = eval { $framework->delete; };
  96
  97     if ( $@ or not $deleted ) {
  98         push @messages, { type => 'error', code => 'error_on_delete' };
  99     } else {
 100         eval {
 101             my $dbh = C4::Context->dbh;
 102             $dbh->do( q|DELETE FROM marc_tag_structure WHERE frameworkcode=?|,      undef, $frameworkcode );
 103             $dbh->do( q|DELETE FROM marc_subfield_structure WHERE frameworkcode=?|, undef, $frameworkcode );
 104         };
 105         if ($@) {
 106             push @messages, { type => 'error', code => 'error_on_delete_fk' };
 107         } else {
 108             push @messages, { type => 'message', code => 'success_on_delete' };
 109         }
 110     }
 111     $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
 112     $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
 113     $cache->clear_from_cache("default_value_for_mod_marc-$frameworkcode");
 114     $op = 'list';
 115 }
 116
 117 if ( $op eq 'list' ) {
 118     my $frameworks = Koha::BiblioFrameworks->search( {}, { order_by => ['frameworktext'], } );
 119     $template->param( frameworks => $frameworks, );
 120 }
 121
 122 $template->param(
 123     messages => \@messages,
 124     op       => $op,
 125 );
 126
 127 output_html_with_http_headers $input, $cookie, $template->output;
 128