Lines 1778-1783
sub MoveMemberToDeleted {
Link Here
|
1778 |
my $borrower = $borrowers_rs->find($member); |
1778 |
my $borrower = $borrowers_rs->find($member); |
1779 |
return unless $borrower; |
1779 |
return unless $borrower; |
1780 |
|
1780 |
|
|
|
1781 |
delete $borrower->{updated_on}; |
1782 |
|
1781 |
my $deleted = $schema->resultset('Deletedborrower')->create($borrower); |
1783 |
my $deleted = $schema->resultset('Deletedborrower')->create($borrower); |
1782 |
|
1784 |
|
1783 |
return $deleted ? 1 : undef; |
1785 |
return $deleted ? 1 : undef; |
1784 |
- |
|
|