# 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 Modern::Perl;
use CGI;
use JSON qw(to_json);
my $userid = $session->param('id');
unless (haspermission($userid, { circulate => 'circulate_remaining_permissions' })
- || haspermission($userid, { borrowers => '*' })) {
+ || haspermission($userid, { borrowers => 'edit_borrowers' })) {
exit 0;
}
items.itype,
biblioitems.itemtype,
+ items.ccode,
+
borrowernumber,
surname,
firstname,
barcode => $c->{barcode},
itemtype => $item_level_itypes ? $c->{itype} : $c->{itemtype},
itemtype_description => $itemtype ? $itemtype->translated_description : q{},
+ ccode => $c->{ccode},
location => $location,
homebranch => $c->{homebranch},
itemnotes => $c->{itemnotes},