|
Lines 1772-1783
sub GetSortDetails {
Link Here
|
| 1772 |
$result = &MoveMemberToDeleted($borrowernumber); |
1772 |
$result = &MoveMemberToDeleted($borrowernumber); |
| 1773 |
|
1773 |
|
| 1774 |
Copy the record from borrowers to deletedborrowers table. |
1774 |
Copy the record from borrowers to deletedborrowers table. |
|
|
1775 |
The routine returns 1 for success, undef for failure. |
| 1775 |
|
1776 |
|
| 1776 |
=cut |
1777 |
=cut |
| 1777 |
|
1778 |
|
| 1778 |
# FIXME: should do it in one SQL statement w/ subquery |
|
|
| 1779 |
# Otherwise, we should return the @data on success |
| 1780 |
|
| 1781 |
sub MoveMemberToDeleted { |
1779 |
sub MoveMemberToDeleted { |
| 1782 |
my ($member) = shift or return; |
1780 |
my ($member) = shift or return; |
| 1783 |
my $dbh = C4::Context->dbh; |
1781 |
my $dbh = C4::Context->dbh; |
|
Lines 1786-1798
sub MoveMemberToDeleted {
Link Here
|
| 1786 |
WHERE borrowernumber=?|; |
1784 |
WHERE borrowernumber=?|; |
| 1787 |
my $sth = $dbh->prepare($query); |
1785 |
my $sth = $dbh->prepare($query); |
| 1788 |
$sth->execute($member); |
1786 |
$sth->execute($member); |
| 1789 |
my @data = $sth->fetchrow_array; |
1787 |
my $data = $sth->fetchrow_hashref; |
| 1790 |
(@data) or return; # if we got a bad borrowernumber, there's nothing to insert |
1788 |
return if !$data; # probably bad borrowernumber |
| 1791 |
$sth = |
1789 |
|
| 1792 |
$dbh->prepare( "INSERT INTO deletedborrowers VALUES (" |
1790 |
#now construct a insert query that does not depend on the same order of |
| 1793 |
. ( "?," x ( scalar(@data) - 1 ) ) |
1791 |
#columns in borrowers and deletedborrowers (see BZ 13084) |
| 1794 |
. "?)" ); |
1792 |
my $insertq = "INSERT INTO deletedborrowers ("; |
| 1795 |
$sth->execute(@data); |
1793 |
my @values; |
|
|
1794 |
foreach my $key ( keys %$data ) { |
| 1795 |
$insertq.= $key.","; |
| 1796 |
push @values, $data->{$key}; |
| 1797 |
} |
| 1798 |
$insertq =~ s/,$//; #remove last comma |
| 1799 |
$insertq .= ") VALUES (" . ( "?," x ( scalar(@values) - 1 ) ) . "?)"; |
| 1800 |
$sth = $dbh->prepare( $insertq ); |
| 1801 |
$sth->execute(@values); |
| 1802 |
return $sth->err? undef: 1; |
| 1796 |
} |
1803 |
} |
| 1797 |
|
1804 |
|
| 1798 |
=head2 DelMember |
1805 |
=head2 DelMember |
| 1799 |
- |
|
|