|
Lines 78-84
BEGIN {
Link Here
|
| 78 |
&GetTitles |
78 |
&GetTitles |
| 79 |
|
79 |
|
| 80 |
&GetPatronImage |
80 |
&GetPatronImage |
| 81 |
&RmPatronImage |
|
|
| 82 |
|
81 |
|
| 83 |
&GetHideLostItemsPreference |
82 |
&GetHideLostItemsPreference |
| 84 |
|
83 |
|
|
Lines 1916-1941
sub GetPatronImage {
Link Here
|
| 1916 |
return $imagedata, $sth->errstr; |
1915 |
return $imagedata, $sth->errstr; |
| 1917 |
} |
1916 |
} |
| 1918 |
|
1917 |
|
| 1919 |
=head2 RmPatronImage |
|
|
| 1920 |
|
| 1921 |
my ($dberror) = RmPatronImage($borrowernumber); |
| 1922 |
|
| 1923 |
Removes the image for the patron with the supplied borrowernumber. |
| 1924 |
|
| 1925 |
=cut |
| 1926 |
|
| 1927 |
sub RmPatronImage { |
| 1928 |
my ($borrowernumber) = @_; |
| 1929 |
warn "Borrowernumber passed to GetPatronImage is $borrowernumber" if $debug; |
| 1930 |
my $dbh = C4::Context->dbh; |
| 1931 |
my $query = "DELETE FROM patronimage WHERE borrowernumber = ?;"; |
| 1932 |
my $sth = $dbh->prepare($query); |
| 1933 |
$sth->execute($borrowernumber); |
| 1934 |
my $dberror = $sth->errstr; |
| 1935 |
warn "Database error!" if $sth->errstr; |
| 1936 |
return $dberror; |
| 1937 |
} |
| 1938 |
|
| 1939 |
=head2 GetHideLostItemsPreference |
1918 |
=head2 GetHideLostItemsPreference |
| 1940 |
|
1919 |
|
| 1941 |
$hidelostitemspref = &GetHideLostItemsPreference($borrowernumber); |
1920 |
$hidelostitemspref = &GetHideLostItemsPreference($borrowernumber); |