Lines 17-24
Link Here
|
17 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
17 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
19 |
|
19 |
|
20 |
use strict; |
20 |
use Modern::Perl; |
21 |
use warnings; |
|
|
22 |
use C4::Auth; |
21 |
use C4::Auth; |
23 |
use CGI; |
22 |
use CGI; |
24 |
use C4::Context; |
23 |
use C4::Context; |
Lines 42-48
sub plugin_parameters {
Link Here
|
42 |
|
41 |
|
43 |
sub plugin_javascript { |
42 |
sub plugin_javascript { |
44 |
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; |
43 |
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; |
45 |
my $res=" |
44 |
my $res = qq{ |
46 |
<script type='text/javascript'> |
45 |
<script type='text/javascript'> |
47 |
function Focus$field_number() { |
46 |
function Focus$field_number() { |
48 |
return 1; |
47 |
return 1; |
Lines 54-72
sub plugin_javascript {
Link Here
|
54 |
|
53 |
|
55 |
function Clic$field_number() { |
54 |
function Clic$field_number() { |
56 |
var code = document.getElementById('$field_number'); |
55 |
var code = document.getElementById('$field_number'); |
57 |
var url = '../cataloguing/plugin_launcher.pl?plugin_name=stocknumberam123.pl&code=' + code.value; |
56 |
\$.ajax({ |
58 |
var blurcallbackstocknumber = { |
57 |
url: '/cgi-bin/koha/cataloguing/plugin_launcher.pl', |
59 |
success: function(o) { |
58 |
type: 'POST', |
|
|
59 |
data: { |
60 |
'plugin_name': 'stocknumberam123.pl', |
61 |
'code' : code.value, |
62 |
}, |
63 |
success: function(data){ |
60 |
var field = document.getElementById('$field_number'); |
64 |
var field = document.getElementById('$field_number'); |
61 |
field.value = o.responseText; |
65 |
field.value = data; |
62 |
return 1; |
66 |
return 1; |
63 |
} |
67 |
} |
64 |
} |
68 |
}); |
65 |
var transaction = YAHOO.util.Connect.asyncRequest('GET',url, blurcallbackstocknumber, null); |
|
|
66 |
return 1; |
67 |
} |
69 |
} |
68 |
</script> |
70 |
</script> |
69 |
"; |
71 |
}; |
70 |
|
72 |
|
71 |
return ($field_number,$res); |
73 |
return ($field_number,$res); |
72 |
} |
74 |
} |
Lines 88-93
sub plugin {
Link Here
|
88 |
my $dbh = C4::Context->dbh; |
90 |
my $dbh = C4::Context->dbh; |
89 |
|
91 |
|
90 |
# If a prefix is submited, we look for the highest stocknumber with this prefix, and return it incremented |
92 |
# If a prefix is submited, we look for the highest stocknumber with this prefix, and return it incremented |
|
|
93 |
$code =~ s/ *$//g; |
91 |
if ( $code =~ m/^[A-Z]+$/ ) { |
94 |
if ( $code =~ m/^[A-Z]+$/ ) { |
92 |
my $sth = $dbh->prepare("SELECT lib FROM authorised_values WHERE category='INVENTORY' AND authorised_value=?"); |
95 |
my $sth = $dbh->prepare("SELECT lib FROM authorised_values WHERE category='INVENTORY' AND authorised_value=?"); |
93 |
$sth->execute( $code); |
96 |
$sth->execute( $code); |
94 |
- |
|
|