Bug 10468: (followup) fix indentation
[koha.git] / cataloguing / value_builder / stocknumberAV.pl
blob8860060c41c074401e88dd501dade3cae3a1cb43
1 #!/usr/bin/perl
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
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
20 use Modern::Perl;
21 use C4::Auth;
22 use CGI qw ( -utf8 );
23 use C4::Context;
24 use C4::Output;
26 =head1 DESCRIPTION
28 This plugin is based on authorised values INVENTORY.
29 It is used for stocknumber computation.
31 If the user send an empty string, we return a simple incremented stocknumber.
32 If a prefix is submited, we look for the highest stocknumber with this prefix, and return it incremented.
33 In this case, a stocknumber has this form : "PREFIX 0009678570".
34 - PREFIX is an upercase word
35 - a space separator
36 - 10 digits, with leading 0s if needed
38 =cut
40 sub plugin_javascript {
41 my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
42 my $res = qq{
43 <script type='text/javascript'>
44 function Clic$field_number() {
45 var code = document.getElementById('$field_number');
46 \$.ajax({
47 url: '/cgi-bin/koha/cataloguing/plugin_launcher.pl',
48 type: 'POST',
49 data: {
50 'plugin_name': 'stocknumberAV.pl',
51 'code' : code.value,
53 success: function(data){
54 var field = document.getElementById('$field_number');
55 field.value = data;
56 return 1;
58 });
60 </script>
63 return ($field_number,$res);
66 sub plugin {
67 my ($input) = @_;
68 my $code = $input->param('code');
70 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
71 { template_name => "cataloguing/value_builder/ajax.tt",
72 query => $input,
73 type => "intranet",
74 authnotrequired => 0,
75 flagsrequired => { editcatalogue => '*' },
76 debug => 1,
80 my $dbh = C4::Context->dbh;
82 # If a prefix is submited, we look for the highest stocknumber with this prefix, and return it incremented
83 $code =~ s/ *$//g;
84 if ( $code =~ m/^[A-Z]+$/ ) {
85 my $sth = $dbh->prepare("SELECT lib FROM authorised_values WHERE category='INVENTORY' AND authorised_value=?");
86 $sth->execute( $code);
88 if ( my $valeur = $sth->fetchrow ) {
89 $template->param( return => $code . ' ' . sprintf( '%010s', ( $valeur + 1 ) ), );
90 my $sth2 = $dbh->prepare("UPDATE authorised_values SET lib=? WHERE category='INVENTORY' AND authorised_value=?");
91 $sth2->execute($valeur+1,$code);
92 } else {
93 $template->param( return => "There is no defined value for $code");
95 # The user entered a custom value, we don't touch it, this could be handled in js
96 } else {
97 $template->param( return => $code, );
100 output_html_with_http_headers $input, $cookie, $template->output;