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