Koha/cataloguing/value_builder/callnumber-KU.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

132 lines
4.4 KiB
Perl
Executable file

#!/usr/bin/perl
# Copyright 2012 CatalystIT Ltd
#
# 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
Is used for callnumber computation.
User must supply a letter prefix (unspecified length) followed by an empty space followed by a "number".
"Number" is 4 character long, and is either a number sequence which is 01 padded.
If input does not conform with this format any processing is omitted.
Some examples of legal values that trigger auto allocation:
AAA 0 - returns first unused number AAA 0xxx starting with AAA 0001
BBB 12 - returns first unused number BBB 12xx starting with BBB 1201
CCC QW - returns first unused number CCC QWxx starting with CCC QW01
=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() {
return 1;
}
function Clic$field_number() {
var code = document.getElementById('$field_number');
var url = '../cataloguing/plugin_launcher.pl?plugin_name=callnumber-KU.pl&code=' + code.value;
var req = \$.get(url);
req.done(function(resp){
code.value = resp;
return 1;
});
return 1;
}
</script>
";
return ($field_number,$res);
}
my $BASE_CALLNUMBER_RE = qr/^(\w+) (\w+)$/;
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 $ret;
my ($alpha, $num) = ($code =~ $BASE_CALLNUMBER_RE);
if (defined $num) { # otherwise no point
my ($num_alpha, $num_num) = ($num =~ m/^(\D+)?(\d+)?$/);
$num_alpha ||= '';
my $pad_len = 4 - length($num);
if ($pad_len > 0) {
my $num_padded = $num_num;
$num_padded .= "0" x ($pad_len - 1) if $pad_len > 1;
$num_padded .= "1";
my $padded = "$alpha $num_alpha" . $num_padded;
my $dbh = C4::Context->dbh;
if ( my $first = $dbh->selectrow_array("SELECT itemcallnumber
FROM items
WHERE itemcallnumber = ?", undef, $padded) ) {
my $icn = $dbh->selectcol_arrayref("SELECT DISTINCT itemcallnumber
FROM items
WHERE itemcallnumber LIKE ?
AND itemcallnumber > ?
ORDER BY itemcallnumber", undef, "$alpha $num_alpha%", $first);
my $next = $num_padded + 1;
my $len = length($num_padded);
foreach (@$icn) {
my ($num1) = ( m/(\d+)$/o );
if ($num1 > $next) { # a hole in numbering found, stop
last;
}
$next++;
}
$ret = "$alpha $num_alpha" . sprintf("%0${len}d", $next) if length($next) <= $len; # no overflow
}
else {
$ret = $padded;
}
}
}
$template->param(
return => $ret || $code
);
output_html_with_http_headers $input, $cookie, $template->output;
}
1;