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 1911-1936
sub GetPatronImage {
Link Here
|
1911 |
return $imagedata, $sth->errstr; |
1910 |
return $imagedata, $sth->errstr; |
1912 |
} |
1911 |
} |
1913 |
|
1912 |
|
1914 |
=head2 RmPatronImage |
|
|
1915 |
|
1916 |
my ($dberror) = RmPatronImage($borrowernumber); |
1917 |
|
1918 |
Removes the image for the patron with the supplied borrowernumber. |
1919 |
|
1920 |
=cut |
1921 |
|
1922 |
sub RmPatronImage { |
1923 |
my ($borrowernumber) = @_; |
1924 |
warn "Borrowernumber passed to GetPatronImage is $borrowernumber" if $debug; |
1925 |
my $dbh = C4::Context->dbh; |
1926 |
my $query = "DELETE FROM patronimage WHERE borrowernumber = ?;"; |
1927 |
my $sth = $dbh->prepare($query); |
1928 |
$sth->execute($borrowernumber); |
1929 |
my $dberror = $sth->errstr; |
1930 |
warn "Database error!" if $sth->errstr; |
1931 |
return $dberror; |
1932 |
} |
1933 |
|
1934 |
=head2 GetHideLostItemsPreference |
1913 |
=head2 GetHideLostItemsPreference |
1935 |
|
1914 |
|
1936 |
$hidelostitemspref = &GetHideLostItemsPreference($borrowernumber); |
1915 |
$hidelostitemspref = &GetHideLostItemsPreference($borrowernumber); |