|
Lines 77-84
BEGIN {
Link Here
|
| 77 |
&GetSortDetails |
77 |
&GetSortDetails |
| 78 |
&GetTitles |
78 |
&GetTitles |
| 79 |
|
79 |
|
| 80 |
&GetPatronImage |
|
|
| 81 |
|
| 82 |
&GetHideLostItemsPreference |
80 |
&GetHideLostItemsPreference |
| 83 |
|
81 |
|
| 84 |
&IsMemberBlocked |
82 |
&IsMemberBlocked |
|
Lines 1002-1007
sub UpdateGuarantees {
Link Here
|
| 1002 |
$sth->execute($data{'address'},$data{'fax'},$data{'B_city'},$data{'mobile'},$data{'city'},$data{'phone'},$guarantee->{'borrowernumber'}); |
1000 |
$sth->execute($data{'address'},$data{'fax'},$data{'B_city'},$data{'mobile'},$data{'city'},$data{'phone'},$guarantee->{'borrowernumber'}); |
| 1003 |
} |
1001 |
} |
| 1004 |
} |
1002 |
} |
|
|
1003 |
|
| 1005 |
=head2 GetPendingIssues |
1004 |
=head2 GetPendingIssues |
| 1006 |
|
1005 |
|
| 1007 |
my $issues = &GetPendingIssues(@borrowernumber); |
1006 |
my $issues = &GetPendingIssues(@borrowernumber); |
|
Lines 1015-1021
The keys include C<biblioitems> fields except marc and marcxml.
Link Here
|
| 1015 |
|
1014 |
|
| 1016 |
=cut |
1015 |
=cut |
| 1017 |
|
1016 |
|
| 1018 |
#' |
|
|
| 1019 |
sub GetPendingIssues { |
1017 |
sub GetPendingIssues { |
| 1020 |
my @borrowernumbers = @_; |
1018 |
my @borrowernumbers = @_; |
| 1021 |
|
1019 |
|
|
Lines 1895-1920
sub GetTitles {
Link Here
|
| 1895 |
} |
1893 |
} |
| 1896 |
} |
1894 |
} |
| 1897 |
|
1895 |
|
| 1898 |
=head2 GetPatronImage |
|
|
| 1899 |
|
| 1900 |
my ($imagedata, $dberror) = GetPatronImage($borrowernumber); |
| 1901 |
|
| 1902 |
Returns the mimetype and binary image data of the image for the patron with the supplied borrowernumber. |
| 1903 |
|
| 1904 |
=cut |
| 1905 |
|
| 1906 |
sub GetPatronImage { |
| 1907 |
my ($borrowernumber) = @_; |
| 1908 |
warn "Borrowernumber passed to GetPatronImage is $borrowernumber" if $debug; |
| 1909 |
my $dbh = C4::Context->dbh; |
| 1910 |
my $query = 'SELECT mimetype, imagefile FROM patronimage WHERE borrowernumber = ?'; |
| 1911 |
my $sth = $dbh->prepare($query); |
| 1912 |
$sth->execute($borrowernumber); |
| 1913 |
my $imagedata = $sth->fetchrow_hashref; |
| 1914 |
warn "Database error!" if $sth->errstr; |
| 1915 |
return $imagedata, $sth->errstr; |
| 1916 |
} |
| 1917 |
|
| 1918 |
=head2 GetHideLostItemsPreference |
1896 |
=head2 GetHideLostItemsPreference |
| 1919 |
|
1897 |
|
| 1920 |
$hidelostitemspref = &GetHideLostItemsPreference($borrowernumber); |
1898 |
$hidelostitemspref = &GetHideLostItemsPreference($borrowernumber); |