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;
  23 use CGI qw ( -utf8 );
  24 use C4::Context;
  25 use C4::Output;
  26
  27
  28 sub plugin_javascript {
  29     my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
  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                                     debug => 1,
  65                                     });
  66
  67
  68     my $dbh = C4::Context->dbh;
  69     my $len = 0;
  70     my $sth = $dbh->prepare('SELECT publishercode FROM biblioitems WHERE REPLACE(isbn, "-", "") LIKE ? OR isbn LIKE ? LIMIT 1');
  71
  72     $isbn =~ s/-//g;
  73     if (length ($isbn) == 13){
  74         $isbn = substr($isbn, 3, length($isbn)-3);
  75     }
  76
  77     if(length($isbn) <= 10){
  78
  79         $len = 5;
  80         if ( substr( $isbn, 0, 1 ) <= 7 ){
  81             $len = 1;
  82         }elsif ( substr( $isbn, 0, 2 ) <= 94 ){
  83             $len = 2;
  84         }elsif ( substr( $isbn, 0, 3 ) <= 995 ){
  85             $len = 3;
  86         }elsif ( substr( $isbn, 0, 4 ) <= 9989 ){
  87             $len = 4 ;
  88         }
  89
  90         my $x = substr( $isbn, $len );
  91         my $seg2 = "";
  92
  93         if ( substr( $x, 0, 2 ) <= 19 ) {
  94             $seg2 = substr( $x, 0, 2 );
  95         }
  96         elsif ( substr( $x, 0, 3 ) <= 699 ) {
  97             $seg2 = substr( $x, 0, 3 );
  98         }
  99         elsif ( substr( $x, 0, 4 ) <= 8399 ) {
 100             $seg2 = substr( $x, 0, 4 );
 101         }
 102         elsif ( substr( $x, 0, 5 ) <= 89999 ) {
 103             $seg2 = substr( $x, 0, 5 );
 104         }
 105         elsif ( substr( $x, 0, 6 ) <= 9499999 ) {
 106             $seg2 = substr( $x, 0, 6 );
 107         }
 108         else {
 109             $seg2 = substr( $x, 0, 7 );
 110         }
 111
 112         while($len--){
 113             $seg2 = "_".$seg2;
 114         }
 115
 116         $len = 10 -length($seg2);
 117
 118         while($len--){
 119             $seg2 .= "_";
 120         }
 121
 122         $sth->execute($seg2, "978$seg2");
 123     }
 124
 125     if( (my $publishercode) = $sth->fetchrow )
 126     {
 127         $template->param(return => $publishercode);
 128     }
 129     output_html_with_http_headers $input, $cookie, $template->output;
 130 }