Fridolin Somers
41a172ac4f
Cataloging value builders for inventory stocknumberAV.pl and stocknumberam123.pl use a regexp to define if entered text is a prefix or not. It actually only allows uppercase characters. A library may want to catalog with lowercase characters in inventory number and using those value builders. Note that in database the text is not case-sensitive. Test plan: 1) Configure stocknumberAV.pl value builder on an item subfield 2) Create an autorized value category 'INVENTORY' 3) Create in this category a value with code 'UC' and description '10' 4) Create in this category a value with code 'lc' and description '20' 5) Create a new item 6) Focus on stocknumber subfield 7) Enter '123' and click on value builder, the entry stays '123' 8) Enter 'UC' and click on value builder, the entry turn to 'UC 0000000011' 9) Enter 'lc' and click on value builder, the entry turn to 'lc 0000000021' Same for stocknumberam123.pl To elaborate on step #1: Go to Administration->MARC Bibliographic framework Click on the "Action" button to view the framework for the item you will be creating, view MARC structure. Search for Tag 952 (LOCATION AND ITEM INFORMATION (KOHA)) Select Actions->Subfields Edit subfield i for "Inventory Number" In the "Other options" pane, select the plugin to test. Signed-off-by: Cori Lynn Arnold <carnold@dgiinc.com> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
107 lines
3.4 KiB
Perl
Executable file
107 lines
3.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Converted to new plugin style (Bug 13437)
|
|
|
|
# Copyright 2010 BibLibre SARL
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
use CGI qw ( -utf8 );
|
|
|
|
use C4::Auth;
|
|
use C4::Context;
|
|
use C4::Output;
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This plugin is specific to AM123 but could be used as a base for similar operations.
|
|
It is used for stocknumber computation.
|
|
|
|
If the user send an empty string, we return a simple incremented stocknumber.
|
|
If a prefix is submited, we look for the highest stocknumber with this prefix, and return it incremented.
|
|
In this case, a stocknumber has this form : "PREFIX 0009678570".
|
|
- PREFIX is an upercase word
|
|
- a space separator
|
|
- 10 digits, with leading 0s if needed
|
|
|
|
=cut
|
|
|
|
my $builder = sub {
|
|
my ( $params ) = @_;
|
|
my $res="
|
|
<script type='text/javascript'>
|
|
function Blur$params->{id}() {
|
|
var code = document.getElementById('$params->{id}');
|
|
var url = '../cataloguing/plugin_launcher.pl?plugin_name=stocknumberam123.pl&code=' + code.value;
|
|
var req = \$.get(url);
|
|
req.done(function(resp){
|
|
code.value = resp;
|
|
return 1;
|
|
});
|
|
return 1;
|
|
}
|
|
</script>
|
|
";
|
|
|
|
return $res;
|
|
};
|
|
|
|
my $launcher = sub {
|
|
my ( $params ) = @_;
|
|
my $input = $params->{cgi};
|
|
my $code = $input->param('code');
|
|
|
|
my ($template, $loggedinuser, $cookie) = get_template_and_user({
|
|
template_name => "cataloguing/value_builder/ajax.tt",
|
|
query => $input,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => {editcatalogue => '*'},
|
|
debug => 1,
|
|
});
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
# If the textbox is empty, we return a simple incremented stocknumber
|
|
if ( $code eq "" ) {
|
|
my $sth = $dbh->prepare("SELECT MAX(CAST(stocknumber AS SIGNED)) FROM items");
|
|
$sth->execute;
|
|
|
|
if ( my $max = $sth->fetchrow ) {
|
|
$template->param(
|
|
return => $max+1,
|
|
);
|
|
}
|
|
# If a prefix is submited, we look for the highest stocknumber with this prefix, and return it incremented
|
|
} elsif ( $code =~ m/^[a-zA-Z]+$/ ) {
|
|
my $sth = $dbh->prepare("SELECT MAX(CAST(SUBSTRING_INDEX(stocknumber,' ',-1) AS SIGNED)) FROM items WHERE stocknumber LIKE ?");
|
|
$sth->execute($code.' %');
|
|
|
|
if ( my $max = $sth->fetchrow ) {
|
|
$template->param(
|
|
return => $code.' '.sprintf('%010s',($max+1)),
|
|
);
|
|
}
|
|
# The user entered a custom value, we don't touch it, this could be handled in js
|
|
} else {
|
|
$template->param(
|
|
return => $code,
|
|
);
|
|
}
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|
|
};
|
|
|
|
return { builder => $builder, launcher => $launcher };
|