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