Bug 17600: Standardize our EXPORT_OK

[srvgit] / cataloguing / value_builder / stocknumberam123.pl

diff --git a/cataloguing/value_builder/stocknumberam123.pl b/cataloguing/value_builder/stocknumberam123.pl
index 17d64ac..e1f54ad 100755 (executable)
--- a/cataloguing/value_builder/stocknumberam123.pl
+++ b/cataloguing/value_builder/stocknumberam123.pl
@@ -22,9 +22,9 @@
 use Modern::Perl;
 use CGI qw ( -utf8 );
 
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
 
 =head1 DESCRIPTION
 
@@ -43,7 +43,7 @@ In this case, a stocknumber has this form : "PREFIX 0009678570".
 my $builder = sub {
     my ( $params ) = @_;
     my $res="
-    <script type='text/javascript'>
+    <script>
         function Blur$params->{id}() {
                 var code = document.getElementById('$params->{id}');
                 var url = '../cataloguing/plugin_launcher.pl?plugin_name=stocknumberam123.pl&code=' + code.value;
@@ -69,9 +69,7 @@ my $launcher = sub {
         template_name   => "cataloguing/value_builder/ajax.tt",
         query           => $input,
         type            => "intranet",
-        authnotrequired => 0,
         flagsrequired   => {editcatalogue => '*'},
-        debug           => 1,
     });
 
     my $dbh = C4::Context->dbh;
@@ -86,7 +84,7 @@ my $launcher = sub {
             );
         }
     # If a prefix is submited, we look for the highest stocknumber with this prefix, and return it incremented
-    } elsif ( $code =~ m/^[A-Z]+$/ ) {
+    } 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.' %');