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 997-1002
sub UpdateGuarantees {
Link Here
|
997 |
$sth->execute($data{'address'},$data{'fax'},$data{'B_city'},$data{'mobile'},$data{'city'},$data{'phone'},$guarantee->{'borrowernumber'}); |
995 |
$sth->execute($data{'address'},$data{'fax'},$data{'B_city'},$data{'mobile'},$data{'city'},$data{'phone'},$guarantee->{'borrowernumber'}); |
998 |
} |
996 |
} |
999 |
} |
997 |
} |
|
|
998 |
|
1000 |
=head2 GetPendingIssues |
999 |
=head2 GetPendingIssues |
1001 |
|
1000 |
|
1002 |
my $issues = &GetPendingIssues(@borrowernumber); |
1001 |
my $issues = &GetPendingIssues(@borrowernumber); |
Lines 1010-1016
The keys include C<biblioitems> fields except marc and marcxml.
Link Here
|
1010 |
|
1009 |
|
1011 |
=cut |
1010 |
=cut |
1012 |
|
1011 |
|
1013 |
#' |
|
|
1014 |
sub GetPendingIssues { |
1012 |
sub GetPendingIssues { |
1015 |
my @borrowernumbers = @_; |
1013 |
my @borrowernumbers = @_; |
1016 |
|
1014 |
|
Lines 1890-1915
sub GetTitles {
Link Here
|
1890 |
} |
1888 |
} |
1891 |
} |
1889 |
} |
1892 |
|
1890 |
|
1893 |
=head2 GetPatronImage |
|
|
1894 |
|
1895 |
my ($imagedata, $dberror) = GetPatronImage($borrowernumber); |
1896 |
|
1897 |
Returns the mimetype and binary image data of the image for the patron with the supplied borrowernumber. |
1898 |
|
1899 |
=cut |
1900 |
|
1901 |
sub GetPatronImage { |
1902 |
my ($borrowernumber) = @_; |
1903 |
warn "Borrowernumber passed to GetPatronImage is $borrowernumber" if $debug; |
1904 |
my $dbh = C4::Context->dbh; |
1905 |
my $query = 'SELECT mimetype, imagefile FROM patronimage WHERE borrowernumber = ?'; |
1906 |
my $sth = $dbh->prepare($query); |
1907 |
$sth->execute($borrowernumber); |
1908 |
my $imagedata = $sth->fetchrow_hashref; |
1909 |
warn "Database error!" if $sth->errstr; |
1910 |
return $imagedata, $sth->errstr; |
1911 |
} |
1912 |
|
1913 |
=head2 GetHideLostItemsPreference |
1891 |
=head2 GetHideLostItemsPreference |
1914 |
|
1892 |
|
1915 |
$hidelostitemspref = &GetHideLostItemsPreference($borrowernumber); |
1893 |
$hidelostitemspref = &GetHideLostItemsPreference($borrowernumber); |