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