View | Details | Raw Unified | Return to bug 15635
Collapse All | Expand All

(-)a/C4/Members.pm (-21 lines)
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);
(-)a/tools/picture-upload.pl (-4 / +6 lines)
Lines 160-168 elsif ( ( $op eq 'Upload' ) && !$uploadfile ) { Link Here
160
    $template->param( filetype   => $filetype );
160
    $template->param( filetype   => $filetype );
161
}
161
}
162
elsif ( $op eq 'Delete' ) {
162
elsif ( $op eq 'Delete' ) {
163
    my $dberror = RmPatronImage($borrowernumber);
163
    my $deleted = eval {
164
    $debug and warn "Patron image deleted for $borrowernumber";
164
        Koha::Patron::Images->find( $borrowernumber )->delete;
165
    warn "Database returned $dberror" if $dberror;
165
    };
166
    if ( $@ or not $deleted ) {
167
        warn "Image for patron '$borrowernumber' has not been deleted";
168
    }
166
}
169
}
167
if ( $borrowernumber && !%errors && !$template->param('ERRORS') ) {
170
if ( $borrowernumber && !%errors && !$template->param('ERRORS') ) {
168
    print $input->redirect(
171
    print $input->redirect(
169
- 

Return to bug 15635