Bug 31028: Add catalog concern management page to staff

[koha-ffzg.git] / members / printslip.pl

diff --git a/members/printslip.pl b/members/printslip.pl
index 3fcaf21..368d84c 100755 (executable)
--- a/members/printslip.pl
+++ b/members/printslip.pl
@@ -35,11 +35,9 @@
 use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Context;
-use C4::Auth qw/:DEFAULT get_session/;
-use C4::Output;
-use C4::Members;
-use C4::Koha;
-use Koha::DateUtils;
+use C4::Auth qw( get_session get_template_and_user );
+use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
+use C4::Members qw( IssueSlip );
 
 my $input = CGI->new;
 my $sessionID = $input->cookie("CGISESSID");
@@ -73,11 +71,11 @@ if ( $print eq 'checkinslip' ) {
     my $checkinslip_branch = $session->param('branch') ? $session->param('branch') : $branch;
 
     # get today's checkins
-    my @itemnumbers = $patron->old_checkouts->search( { branchcode => $checkinslip_branch } )
-      ->filter_by_todays_checkins->get_column('itemnumber');
+    my @issue_ids = $patron->old_checkouts->search( { branchcode => $checkinslip_branch } )
+      ->filter_by_todays_checkins->get_column('issue_id');
 
     my %loops = (
-        old_issues => \@itemnumbers,
+        old_issues => \@issue_ids,
     );
 
     my $letter = C4::Letters::GetPreparedLetter(