Lines 2-7
package C4::Members;
Link Here
|
2 |
|
2 |
|
3 |
# Copyright 2000-2003 Katipo Communications |
3 |
# Copyright 2000-2003 Katipo Communications |
4 |
# Copyright 2010 BibLibre |
4 |
# Copyright 2010 BibLibre |
|
|
5 |
# Parts Copyright 2010 Catalyst IT |
5 |
# |
6 |
# |
6 |
# This file is part of Koha. |
7 |
# This file is part of Koha. |
7 |
# |
8 |
# |
Lines 352-362
sub GetMemberDetails {
Link Here
|
352 |
my $query; |
353 |
my $query; |
353 |
my $sth; |
354 |
my $sth; |
354 |
if ($borrowernumber) { |
355 |
if ($borrowernumber) { |
355 |
$sth = $dbh->prepare("select borrowers.*,category_type,categories.description from borrowers left join categories on borrowers.categorycode=categories.categorycode where borrowernumber=?"); |
356 |
$sth = $dbh->prepare("SELECT borrowers.*,category_type,categories.description,reservefee FROM borrowers LEFT JOIN categories ON borrowers.categorycode=categories.categorycode WHERE borrowernumber=?"); |
356 |
$sth->execute($borrowernumber); |
357 |
$sth->execute($borrowernumber); |
357 |
} |
358 |
} |
358 |
elsif ($cardnumber) { |
359 |
elsif ($cardnumber) { |
359 |
$sth = $dbh->prepare("select borrowers.*,category_type,categories.description from borrowers left join categories on borrowers.categorycode=categories.categorycode where cardnumber=?"); |
360 |
$sth = $dbh->prepare("SELECT borrowers.*,category_type,categories.description,reservefee FROM borrowers LEFT JOIN categories ON borrowers.categorycode=categories.categorycode WHERE cardnumber=?"); |
360 |
$sth->execute($cardnumber); |
361 |
$sth->execute($cardnumber); |
361 |
} |
362 |
} |
362 |
else { |
363 |
else { |
Lines 386-391
sub GetMemberDetails {
Link Here
|
386 |
$sth->execute( $borrower->{'categorycode'} ); |
387 |
$sth->execute( $borrower->{'categorycode'} ); |
387 |
my $enrolment = $sth->fetchrow; |
388 |
my $enrolment = $sth->fetchrow; |
388 |
$borrower->{'enrolmentperiod'} = $enrolment; |
389 |
$borrower->{'enrolmentperiod'} = $enrolment; |
|
|
390 |
|
389 |
return ($borrower); #, $flags, $accessflagshash); |
391 |
return ($borrower); #, $flags, $accessflagshash); |
390 |
} |
392 |
} |
391 |
|
393 |
|