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 |
- |
|
|