projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 20018: use Modern::Perl in offline_circ scripts
[koha.git]
/
offline_circ
/
enqueue_koc.pl
diff --git
a/offline_circ/enqueue_koc.pl
b/offline_circ/enqueue_koc.pl
index
3640c1d
..
0f32352
100755
(executable)
--- a/
offline_circ/enqueue_koc.pl
+++ b/
offline_circ/enqueue_koc.pl
@@
-18,8
+18,7
@@
# along with Koha; if not, see <http://www.gnu.org/licenses>.
#
# along with Koha; if not, see <http://www.gnu.org/licenses>.
#
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Output;
use CGI qw ( -utf8 );
use C4::Output;
@@
-32,8
+31,9
@@
use C4::Circulation;
use C4::Items;
use C4::Members;
use C4::Stats;
use C4::Items;
use C4::Members;
use C4::Stats;
-use Koha::UploadedFiles;
use Koha::Checkouts;
use Koha::Checkouts;
+use Koha::UploadedFiles;
+use Koha::Items;
use Date::Calc qw( Add_Delta_Days Date_to_Days );
use Date::Calc qw( Add_Delta_Days Date_to_Days );
@@
-190,10
+190,10
@@
sub _get_borrowernumber_from_barcode {
return unless $barcode;
return unless $barcode;
- my $item =
GetBiblioFromItemNumber( undef, $barcode
);
- return unless $item
->{'itemnumber'}
;
+ my $item =
Koha::Items->find({ barcode => $barcode }
);
+ return unless $item;
- my $issue = Koha::Checkouts->find( { itemnumber => $item->
{itemnumber}
} );
+ my $issue = Koha::Checkouts->find( { itemnumber => $item->
itemnumber
} );
return unless $issue;
return $issue->borrowernumber;
}
return unless $issue;
return $issue->borrowernumber;
}