|
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 |
|
| 1822 |
my $data = $sth->fetchrow_hashref; |
1822 |
my $deleted = $schema->resultset('Deletedborrower')->create($borrower); |
| 1823 |
return if !$data; # probably bad borrowernumber |
1823 |
|
| 1824 |
|
1824 |
return $deleted ? 1 : undef; |
| 1825 |
#now construct a insert query that does not depend on the same order of |
|
|
| 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 |
} |
1825 |
} |
| 1839 |
|
1826 |
|
| 1840 |
=head2 DelMember |
1827 |
=head2 DelMember |
| 1841 |
- |
|
|