cataloguing/value_builder/barcode.pl

   1 #!/usr/bin/perl
   2
   3 # $Id: barcode.pl,v 1.1.2.2 2006/09/20 02:24:42 kados Exp $
   4
   5 # Copyright 2000-2002 Katipo Communications
   6 #
   7 # This file is part of Koha.
   8 #
   9 # Koha is free software; you can redistribute it and/or modify it under the
  10 # terms of the GNU General Public License as published by the Free Software
  11 # Foundation; either version 2 of the License, or (at your option) any later
  12 # version.
  13 #
  14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  16 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU General Public License along with
  19 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  20 # Suite 330, Boston, MA  02111-1307 USA
  21
  22 require Exporter;
  23 use C4::Context;
  24
  25 my $DEBUG = 0;
  26
  27 =head1
  28
  29 plugin_parameters : other parameters added when the plugin is called by the dopop function
  30
  31 =cut
  32 sub plugin_parameters {
  33 my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
  34 return "";
  35 }
  36
  37 =head1
  38
  39 plugin_javascript : the javascript function called when the user enters the subfield.
  40 contain 3 javascript functions :
  41 * one called when the field is entered (OnFocus). Named FocusXXX
  42 * one called when the field is leaved (onBlur). Named BlurXXX
  43 * one called when the ... link is clicked (<a href="javascript:function">) named ClicXXX
  44
  45 returns :
  46 * XXX
  47 * a variable containing the 3 scripts.
  48 the 3 scripts are inserted after the <input> in the html code
  49
  50 =cut
  51 sub plugin_javascript {
  52         my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
  53         my $function_name= "barcode".(int(rand(100000))+1);
  54
  55         # find today's date
  56         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
  57                                                                localtime(time);
  58         $year +=1900;
  59         $mon +=1;
  60         if (length($mon)==1) {
  61                 $mon = "0".$mon;
  62         }
  63         if (length($mday)==1) {
  64                 $mday = "0".$mday;
  65         }
  66         if (length($hour)==1) {
  67              $hour = "0".$hour;
  68         }
  69         if (length($min)==1) {
  70         $min = "0".$min;
  71         }
  72         if (length($sec)==1) {
  73         $hour = "0".$sec;
  74         }
  75
  76         my $date = "$year";
  77
  78         my ($tag,$subfield) =  GetMarcFromKohaField("items.barcode");
  79         my ($loctag,$locsubfield) =  GetMarcFromKohaField("items.homebranch");
  80
  81         my $nextnum;
  82         my $query;
  83         my $scr;
  84         my $autoBarcodeType = C4::Context->preference("autoBarcode");
  85         warn "Barcode type = $autoBarcodeType" if $DEBUG;
  86         unless ($autoBarcodeType eq 'OFF' or !$autoBarcodeType) {
  87
  88         if ($autoBarcodeType eq 'annual') {
  89                 $query = "select max(cast( substring_index(barcode, '-',-1) as signed)) from items where barcode like ?";
  90                 my $sth=$dbh->prepare($query);
  91                 $sth->execute("$year%");
  92                 while (my ($count)= $sth->fetchrow_array) {
  93                     warn "Examining Record: $count" if $DEBUG;
  94                 $nextnum = $count if $count;
  95                 }
  96                 $nextnum++;
  97                 $nextnum = sprintf("%0*d", "4",$nextnum);
  98                 $nextnum = "$year-$nextnum";
  99                 $scr = "
 100                 for (i=0 ; i<document.f.field_value.length ; i++) {
 101                         if (document.f.tag[i].value == '$tag' && document.f.subfield[i].value == '$subfield') {
 102                                 if (document.f.field_value[i].value == '') {
 103                                         document.f.field_value[i].value = '$nextnum';
 104                                 }
 105                         }
 106                 }";
 107         }
 108         elsif ($autoBarcodeType eq 'incremental') {
 109                 # not the best, two catalogers could add the same barcode easily this way :/
 110                 $query = "select max(abs(barcode)) from items";
 111         my $sth=$dbh->prepare($query);
 112                 $sth->execute();
 113                 while (my ($count)= $sth->fetchrow_array) {
 114                         $nextnum = $count;
 115                 }
 116                 $nextnum++;
 117                 $scr = "
 118                 for (i=0 ; i<document.f.field_value.length ; i++) {
 119                         if (document.f.tag[i].value == '$tag' && document.f.subfield[i].value == '$subfield') {
 120                                 if (document.f.field_value[i].value == '') {
 121                                         document.f.field_value[i].value = '$nextnum';
 122                                 }
 123                         }
 124                 }";
 125         }
 126         elsif ($autoBarcodeType eq 'hbyymmincr') {      # Generates a barcode where hb = home branch Code, yymm = year/month catalogued, incr = incremental number, reset yearly -fbcit
 127             $year = substr($year, -2);
 128             $query = "SELECT MAX(CAST(SUBSTRING(barcode,7,4) AS signed)) FROM items WHERE barcode REGEXP ?";
 129             my $sth=$dbh->prepare($query);
 130             $sth->execute("^[a-zA-Z]{1,}$year");
 131             while (my ($count)= $sth->fetchrow_array) {
 132                 $nextnum = $count if $count;
 133                 warn "Existing incremental number = $nextnum" if $DEBUG;
 134             }
 135             $nextnum++;
 136             $nextnum = sprintf("%0*d", "4",$nextnum);
 137             $nextnum = $year . $mon . $nextnum;
 138             warn "New Barcode = $nextnum" if $DEBUG;
 139             $scr = "
 140                 for (i=0 ; i<document.f.field_value.length ; i++) {
 141                         if (document.f.tag[i].value == '$loctag' && document.f.subfield[i].value == '$locsubfield') {
 142                                 fnum = i;
 143                         }
 144                 }
 145                 for (i=0 ; i<document.f.field_value.length ; i++) {
 146                         if (document.f.tag[i].value == '$tag' && document.f.subfield[i].value == '$subfield') {
 147                                 if (document.f.field_value[i].value == '') {
 148                                         document.f.field_value[i].value = document.f.field_value[fnum].value + '$nextnum';
 149                                 }
 150                         }
 151                 }";
 152         }
 153
 154
 155                 my $res  = "
 156 <script type=\"text/javascript\">
 157 //<![CDATA[
 158
 159 //function Blur$function_name(index) {
 160 //need this?
 161 //}
 162
 163 function Focus$function_name(subfield_managed) {";
 164
 165 $res .= $scr;
 166 $res .= "
 167 return 0;
 168 }
 169
 170 function Clic$function_name(subfield_managed) {";
 171
 172 $res .= $scr;
 173 $res .= "
 174 return 0;
 175 }
 176 //]]>
 177 </script>
 178 ";
 179         # don't return a value unless we have the appropriate syspref set
 180         return ($function_name,$res);
 181         }
 182         else {
 183                 return ($function_name,"<script type=\"text/javascript\">function Focus$function_name() { return 0;}</script>");
 184         }
 185 }
 186
 187 =head1
 188
 189 plugin : the true value_builded. The screen that is open in the popup window.
 190
 191 =cut
 192
 193 sub plugin {
 194 my ($input) = @_;
 195 return "";
 196 }
 197
 198 1;