3 # Copyright 2012 BibLibre SARL
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
27 This plugin is based on authorised values INVENTORY.
28 It is used for stocknumber computation.
30 If the user send an empty string, we return a simple incremented stocknumber.
31 If a prefix is submited, we look for the highest stocknumber with this prefix, and return it incremented.
32 In this case, a stocknumber has this form : "PREFIX 0009678570".
33 - PREFIX is an upercase word
35 - 10 digits, with leading 0s if needed
39 sub plugin_parameters {
42 sub plugin_javascript {
43 my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
45 <script type='text/javascript'>
46 function Focus$field_number() {
50 function Blur$field_number() {
54 function Clic$field_number() {
55 var code = document.getElementById('$field_number');
57 url: '/cgi-bin/koha/cataloguing/plugin_launcher.pl',
60 'plugin_name': 'stocknumberAV.pl',
63 success: function(data){
64 var field = document.getElementById('$field_number');
73 return ($field_number,$res);
78 my $code = $input->param('code');
80 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
81 { template_name => "cataloguing/value_builder/ajax.tt",
85 flagsrequired => { editcatalogue => '*' },
90 my $dbh = C4::Context->dbh;
92 # If a prefix is submited, we look for the highest stocknumber with this prefix, and return it incremented
94 if ( $code =~ m/^[A-Z]+$/ ) {
95 my $sth = $dbh->prepare("SELECT lib FROM authorised_values WHERE category='INVENTORY' AND authorised_value=?");
96 $sth->execute( $code);
98 if ( my $valeur = $sth->fetchrow ) {
99 $template->param( return => $code . ' ' . sprintf( '%010s', ( $valeur + 1 ) ), );
100 my $sth2 = $dbh->prepare("UPDATE authorised_values SET lib=? WHERE category='INVENTORY' AND authorised_value=?");
101 $sth2->execute($valeur+1,$code);
103 $template->param( return => "There is no defined value for $code");
105 # The user entered a custom value, we don't touch it, this could be handled in js
107 $template->param( return => $code, );
110 output_html_with_http_headers $input, $cookie, $template->output;