cataloguing/value_builder/unimarc_field_010.pl

   1 #!/usr/bin/perl
   2
   3
   4 # Copyright 2008 Biblibre SARL
   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 C4::Auth qw( get_template_and_user );
  23 use CGI qw ( -utf8 );
  24 use C4::Context;
  25 use C4::Output qw( output_html_with_http_headers );
  26
  27
  28 sub plugin_javascript {
  29     my ($dbh,$record,$tagslib,$field_number) = @_;
  30     my $res="
  31     <script>
  32         function Blur$field_number() {
  33                 var isbn = document.getElementById('$field_number');
  34                 var url = '../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_010.pl&isbn=' + isbn.value;
  35                 var req = \$.get(url);
  36                 req.done(function(resp){
  37                         var elems = document.getElementsByTagName('input');
  38                         for( i = 0 ; elems[i] ; i++ )
  39                         {
  40                             if(elems[i].id.match(/^tag_210_subfield_c/)) {
  41                                 elems[i].value = resp;
  42                                 return 1;
  43                             }
  44                         }
  45                 });
  46                 return 1;
  47         }
  48
  49     </script>
  50     ";
  51
  52     return ($field_number,$res);
  53 }
  54
  55 sub plugin {
  56     my ($input) = @_;
  57     my $isbn = $input->param('isbn');
  58
  59     my ($template, $loggedinuser, $cookie)
  60             = get_template_and_user({template_name => "cataloguing/value_builder/ajax.tt",
  61                                     query => $input,
  62                                     type => "intranet",
  63                                     flagsrequired => {editcatalogue => '*'},
  64                                     });
  65
  66
  67     my $dbh = C4::Context->dbh;
  68     my $len = 0;
  69     my $sth = $dbh->prepare('SELECT publishercode FROM biblioitems WHERE REPLACE(isbn, "-", "") LIKE ? OR isbn LIKE ? LIMIT 1');
  70
  71     $isbn =~ s/-//g;
  72     if (length ($isbn) == 13){
  73         $isbn = substr($isbn, 3, length($isbn)-3);
  74     }
  75
  76     if(length($isbn) <= 10){
  77
  78         $len = 5;
  79         if ( substr( $isbn, 0, 1 ) <= 7 ){
  80             $len = 1;
  81         }elsif ( substr( $isbn, 0, 2 ) <= 94 ){
  82             $len = 2;
  83         }elsif ( substr( $isbn, 0, 3 ) <= 995 ){
  84             $len = 3;
  85         }elsif ( substr( $isbn, 0, 4 ) <= 9989 ){
  86             $len = 4 ;
  87         }
  88
  89         my $x = substr( $isbn, $len );
  90         my $seg2 = "";
  91
  92         if ( substr( $x, 0, 2 ) <= 19 ) {
  93             $seg2 = substr( $x, 0, 2 );
  94         }
  95         elsif ( substr( $x, 0, 3 ) <= 699 ) {
  96             $seg2 = substr( $x, 0, 3 );
  97         }
  98         elsif ( substr( $x, 0, 4 ) <= 8399 ) {
  99             $seg2 = substr( $x, 0, 4 );
 100         }
 101         elsif ( substr( $x, 0, 5 ) <= 89999 ) {
 102             $seg2 = substr( $x, 0, 5 );
 103         }
 104         elsif ( substr( $x, 0, 6 ) <= 9499999 ) {
 105             $seg2 = substr( $x, 0, 6 );
 106         }
 107         else {
 108             $seg2 = substr( $x, 0, 7 );
 109         }
 110
 111         while($len--){
 112             $seg2 = "_".$seg2;
 113         }
 114
 115         $len = 10 -length($seg2);
 116
 117         while($len--){
 118             $seg2 .= "_";
 119         }
 120
 121         $sth->execute($seg2, "978$seg2");
 122     }
 123
 124     if( (my $publishercode) = $sth->fetchrow )
 125     {
 126         $template->param(return => $publishercode);
 127     }
 128     output_html_with_http_headers $input, $cookie, $template->output;
 129 }