Koha/cataloguing/value_builder/stocknumberam123.pl
Owen Leonard a90a72c62d Bug 9773 - Replace YUI AJAX calls in cataloging plugins with jQuery
Several cataloging plugins make some simple AJAX GET calls via the YUI
AJAX feature. This code can be easily converted to jQuery.

To test, link each plugin to the relelvant field by editing your MARC
stucture. Confirm that functionality is unchanged.

For callnumber.pl and callnumber-KU.pl, test by linking to 952o.
callnumber.pl is triggered on blur of (when you focus on and click away
from) the 952o entry field. callnumber-KU.pl is triggered by clicking
the "..." link.

stocknumberam123.pl should be linked to 952i. If your data doesn't
already have information stored for inventory number, modify at least
one record to add one. The plugin is triggered on blur of the 952i
field. It should increment the highest value inventory number stored in
your system.

unimarc_field_010.pl is UNIMARC-specific, so I'm guessing about its
functionality. I tested it by linking the plugin to MARC21 field 020a.
The plugin is triggered on blur of the affected field (020a in my test).
You can confirm that the plugin returns valid data by using a tool like
Firebug to view the XHR response. Or if you're not using UNIMARC you can
hack the plugin to update a different field instead (line 57,
/^tag_210_subfield_c/ ). I tried "245_subfield_c" instead of
"210c_subfield_c." Nonsensical, but useful for testing.

Signed-off-by: Mirko Tietgen <mirko@abunchofthings.net>
Tried the 3 MARC21 plugins. Did not try the Unimarc one, but it's exactly the same code change.

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
2013-05-29 08:30:32 -07:00

114 lines
3.5 KiB
Perl
Executable file

#!/usr/bin/perl
# 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 2 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use C4::Auth;
use CGI;
use C4::Context;
=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
sub plugin_parameters {
}
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
my $res="
<script type='text/javascript'>
function Focus$field_number() {
return 1;
}
function Blur$field_number() {
var code = document.getElementById('$field_number');
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;
}
function Clic$field_number() {
return 1;
}
</script>
";
return ($field_number,$res);
}
sub plugin {
my ($input) = @_;
my $code = $input->param('code');
my ($template, $loggedinuser, $cookie) = get_template_and_user({
template_name => "cataloguing/value_builder/ajax.tmpl",
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-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;
}
1;