cataloguing/value_builder/marc21_field_008_authorities.pl

   1 #!/usr/bin/perl
   2
   3
   4 # Copyright 2000-2002 Katipo Communications
   5 #
   6 # This file is part of Koha.
   7 #
   8 # Koha is free software; you can redistribute it and/or modify it under the
   9 # terms of the GNU General Public License as published by the Free Software
  10 # Foundation; either version 2 of the License, or (at your option) any later
  11 # version.
  12 #
  13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  15 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License along
  18 # with Koha; if not, write to the Free Software Foundation, Inc.,
  19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  20
  21 use strict;
  22 #use warnings; FIXME - Bug 2505
  23 use C4::Auth;
  24 use CGI;
  25 use C4::Context;
  26
  27 use C4::Search;
  28 use C4::Output;
  29
  30 use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
  31 use constant PREF_008 => 'MARCAuthorityControlField008';
  32
  33 =head1 DESCRIPTION
  34
  35 plugin_parameters : other parameters added when the plugin is called by the dopop function
  36
  37 =cut
  38
  39 # find today's date
  40 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  41
  42 $year +=1900; $mon +=1;
  43 my $dateentered = substr($year,2,2).sprintf ("%0.2d", $mon).sprintf ("%0.2d",$mday);
  44 my $defaultval = Field008();
  45
  46 sub plugin_parameters {
  47     my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
  48     return "";
  49 }
  50
  51 sub plugin_javascript {
  52     my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
  53     my $function_name= $field_number;
  54     my $res="
  55 <script type=\"text/javascript\">
  56 //<![CDATA[
  57
  58 function Focus$function_name(subfield_managed) {
  59     if (!document.getElementById(\"$field_number\").value) {
  60     var authtype=document.forms['f'].elements['authtypecode'].value;
  61     var fieldval='$dateentered$defaultval';
  62     if(authtype && (authtype == 'TOPIC_TERM' || authtype == 'GENRE/FORM' || authtype == 'CHRON_TERM')) {
  63       fieldval= fieldval.substr(0,14)+'b'+fieldval.substr(15);
  64     }
  65         document.getElementById(\"$field_number\").value=fieldval;
  66     }
  67     return 1;
  68 }
  69
  70 function Blur$function_name(subfield_managed) {
  71     return 1;
  72 }
  73
  74 function Clic$function_name(i) {
  75     var authtype=document.forms['f'].elements['authtypecode'].value;
  76     defaultvalue=document.getElementById(\"$field_number\").value;
  77     newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=marc21_field_008_authorities.pl&index=$field_number&result=\"+defaultvalue+\"&authtypecode=\"+authtype,\"tag_editor\",'width=1000,height=600,toolbar=false,scrollbars=yes');
  78
  79 }
  80 //]]>
  81 </script>
  82 ";
  83
  84     return ($function_name,$res);
  85 }
  86 sub plugin {
  87     my ($input) = @_;
  88     my $index= $input->param('index');
  89     my $result= $input->param('result');
  90     my $authtype= $input->param('authtypecode')||'';
  91     substr($defaultval,14-6,1)='b' if $authtype=~ /TOPIC_TERM|GENRE.FORM|CHRON_TERM/;
  92
  93     my $dbh = C4::Context->dbh;
  94
  95     my ($template, $loggedinuser, $cookie)
  96     = get_template_and_user({template_name => "cataloguing/value_builder/marc21_field_008_authorities.tt",
  97                  query => $input,
  98                  type => "intranet",
  99                  authnotrequired => 0,
 100                  flagsrequired => {editcatalogue => '*'},
 101                  debug => 1,
 102                  });
 103     $result = "$dateentered$defaultval" unless $result;
 104     my @f;
 105     for(0,6..17,28,29,31..33,38,39) {
 106         $f[$_]=substr($result,$_,$_==0?6:1);
 107     }
 108     $template->param(index => $index);
 109
 110     $f[0]= $dateentered if !$f[0] || $f[0]=~/\s/;
 111     $template->param(f1 => $f[0]);
 112
 113     for(6..17,28,29,31..33,38,39) {
 114         $template->param(
 115             "f$_" => $f[$_],
 116             "f$_".($f[$_] eq '|'? 'pipe': $f[$_]) => $f[$_],
 117         );
 118     }
 119     output_html_with_http_headers $input, $cookie, $template->output;
 120 }
 121
 122 sub Field008 {
 123   my $pref= C4::Context->preference(PREF_008);
 124   if(!$pref) {
 125     return FIXLEN_DATA_ELTS;
 126   }
 127   elsif(length($pref)<34) {
 128     warn "marc21_field_008_authorities.pl: Syspref ".PREF_008." should be 34 characters long ";
 129     return FIXLEN_DATA_ELTS;
 130   }
 131   return substr($pref,0,34);  #ignore remainder
 132 }
 133
 134 1;