&GetTitles
&GetPatronImage
- &RmPatronImage
&GetHideLostItemsPreference
return $imagedata, $sth->errstr;
}
-=head2 RmPatronImage
-
- my ($dberror) = RmPatronImage($borrowernumber);
-
-Removes the image for the patron with the supplied borrowernumber.
-
-=cut
-
-sub RmPatronImage {
- my ($borrowernumber) = @_;
- warn "Borrowernumber passed to GetPatronImage is $borrowernumber" if $debug;
- my $dbh = C4::Context->dbh;
- my $query = "DELETE FROM patronimage WHERE borrowernumber = ?;";
- my $sth = $dbh->prepare($query);
- $sth->execute($borrowernumber);
- my $dberror = $sth->errstr;
- warn "Database error!" if $sth->errstr;
- return $dberror;
-}
-
=head2 GetHideLostItemsPreference
$hidelostitemspref = &GetHideLostItemsPreference($borrowernumber);
$template->param( filetype => $filetype );
}
elsif ( $op eq 'Delete' ) {
- my $dberror = RmPatronImage($borrowernumber);
- $debug and warn "Patron image deleted for $borrowernumber";
- warn "Database returned $dberror" if $dberror;
+ my $deleted = eval {
+ Koha::Patron::Images->find( $borrowernumber )->delete;
+ };
+ if ( $@ or not $deleted ) {
+ warn "Image for patron '$borrowernumber' has not been deleted";
+ }
}
if ( $borrowernumber && !%errors && !$template->param('ERRORS') ) {
print $input->redirect(