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