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::Caches;
  30
  31 my $input         = CGI->new;
  32 my $frameworkcode = $input->param('frameworkcode') || q||;
  33 my $op            = $input->param('op') || q|list|;
  34 my $cache         = Koha::Caches->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         flagsrequired   => { parameters => 'manage_marc_frameworks' },
  42         debug           => 1,
  43     }
  44 );
  45
  46 my $dbh = C4::Context->dbh;
  47 if ( $op eq 'add_form' ) {
  48     my $framework;
  49     if ($frameworkcode) {
  50         $framework = Koha::BiblioFrameworks->find($frameworkcode);
  51     }
  52     $template->param( framework => $framework );
  53 } elsif ( $op eq 'add_validate' ) {
  54     my $frameworkcode = $input->param('frameworkcode');
  55     my $frameworktext = $input->param('frameworktext');
  56     my $is_a_modif    = $input->param('is_a_modif');
  57
  58     if ($is_a_modif) {
  59         my $framework = Koha::BiblioFrameworks->find($frameworkcode);
  60         $framework->frameworktext($frameworktext);
  61         eval { $framework->store; };
  62         if ($@) {
  63             push @messages, { type => 'error', code => 'error_on_update' };
  64         } else {
  65             push @messages, { type => 'message', code => 'success_on_update' };
  66         }
  67     } else {
  68         my $framework = Koha::BiblioFramework->new(
  69             {   frameworkcode => $frameworkcode,
  70                 frameworktext => $frameworktext,
  71             }
  72         );
  73         eval { $framework->store; };
  74         if ($@) {
  75             push @messages, { type => 'error', code => 'error_on_insert' };
  76         } else {
  77             push @messages, { type => 'message', code => 'success_on_insert' };
  78         }
  79     }
  80     $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
  81     $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
  82     $cache->clear_from_cache("default_value_for_mod_marc-");
  83     $cache->clear_from_cache("MarcSubfieldStructure-$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-");
 114     $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode");
 115     $op = 'list';
 116 }
 117
 118 if ( $op eq 'list' ) {
 119     my $frameworks = Koha::BiblioFrameworks->search( {}, { order_by => ['frameworktext'], } );
 120     $template->param( frameworks => $frameworks, );
 121 }
 122
 123 $template->param(
 124     messages => \@messages,
 125     op       => $op,
 126 );
 127
 128 output_html_with_http_headers $input, $cookie, $template->output;
 129