Permalink
Browse files

Merge pull request #156 from hgq/13_02_pt16905729_4_08

13 02 pt16905729 4 08
  • Loading branch information...
2 parents 590434c + b6ce8f5 commit 05901717272e2a7429a3c92f1ed1396d54005b59 @ctfliblime ctfliblime committed Aug 29, 2011
Showing with 3 additions and 25 deletions.
  1. +0 −20 C4/Members.pm
  2. +3 −5 circ/circulation.pl
View
@@ -1303,26 +1303,6 @@ sub GetBorNotifyAcctRecord {
return ( $total, \@acctlines, $numlines );
}
-sub GetMemberLostItems
-{
- my %g = @_;
- my $dbh = C4::Context->dbh;
- my $sth = $dbh->prepare('
- SELECT * FROM lost_items
- WHERE borrowernumber = ?
- ORDER BY date_lost DESC');
- $sth->execute($g{borrowernumber});
- my @all = ();
- while(my $row = $sth->fetchrow_hashref()) {
- next if ($g{only_claimsreturned} && !$$row{claims_returned});
- if ($g{formatdate}) {
- $$row{date_lost} = C4::Dates::format_date($$row{date_lost});
- }
- push @all, $row;
- }
- return \@all;
-}
-
sub GetLostStats {
my ( $borrowernumber, $hide_old ) = @_;
my $dbh = C4::Context->dbh;
View
@@ -35,6 +35,7 @@
use C4::Items qw();
use C4::Members;
use C4::Accounts;
+use C4::LostItems;
use C4::Biblio;
use C4::Reserves;
use Koha;
@@ -344,11 +345,8 @@ sub FormatFinesSummary {
$cookie = [$cookie, $lbb, $lbc, $lbf, $lbs];
my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrowernumber );
- my $li = C4::Members::GetMemberLostItems(
- borrowernumber => $borrowernumber,
- formatdate => 1,
- only_claimsreturned => 0,
- ) // [];
+ # deprecated: C4::Members::GetMemberLostItems
+ my $li = C4::LostItems::GetLostItems($borrowernumber) // [];
my $numlostitems = scalar @$li;
@$li = splice(@$li,0,5);
$template->param(

0 comments on commit 0590171

Please sign in to comment.