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

(-)a/C4/Members.pm (-23 / +10 lines)
Lines 1813-1840 The routine returns 1 for success, undef for failure. Link Here
1813
1813
1814
sub MoveMemberToDeleted {
1814
sub MoveMemberToDeleted {
1815
    my ($member) = shift or return;
1815
    my ($member) = shift or return;
1816
    my $dbh = C4::Context->dbh;
1816
1817
    my $query = qq|SELECT * 
1817
    my $schema       = Koha::Database->new()->schema();
1818
          FROM borrowers 
1818
    my $borrowers_rs = $schema->resultset('Borrower');
1819
          WHERE borrowernumber=?|;
1819
    $borrowers_rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
1820
    my $sth = $dbh->prepare($query);
1820
    my $borrower = $borrowers_rs->find($member);
1821
    $sth->execute($member);
1821
    return unless $borrower;
1822
    my $data = $sth->fetchrow_hashref;
1822
1823
    return if !$data;  # probably bad borrowernumber
1823
    my $deleted = $schema->resultset('Deletedborrower')->create($borrower);
1824
1824
1825
    #now construct a insert query that does not depend on the same order of
1825
    return $deleted ? 1 : undef;
1826
    #columns in borrowers and deletedborrowers (see BZ 13084)
1827
    my $insertq = "INSERT INTO deletedborrowers (";
1828
    my @values;
1829
    foreach my $key ( keys %$data ) {
1830
        $insertq.= $key.",";
1831
        push @values, $data->{$key};
1832
    }
1833
    $insertq =~ s/,$//; #remove last comma
1834
    $insertq .= ") VALUES (" . ( "?," x ( scalar(@values) - 1 ) ) . "?)";
1835
    $sth = $dbh->prepare( $insertq );
1836
    $sth->execute(@values);
1837
    return $sth->err? undef: 1;
1838
}
1826
}
1839
1827
1840
=head2 DelMember
1828
=head2 DelMember
1841
- 

Return to bug 13084