|
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 |
|