| 
      
            Lines 907-931
          sub GetBorrowersToExpunge {
      
      
        Link Here
      
     | 
  
        
          | 907 | 
           | 
          907 | 
           | 
        
        
          | 908 | 
              my $dbh   = C4::Context->dbh;  | 
          908 | 
              my $dbh   = C4::Context->dbh;  | 
        
        
          | 909 | 
              my $query = q|  | 
          909 | 
              my $query = q|  | 
        
          
            
              | 910 | 
                      SELECT borrowers.borrowernumber,  | 
              910 | 
                      SELECT *  | 
            
            
              | 911 | 
                             MAX(old_issues.timestamp) AS latestissue,  | 
              911 | 
                      FROM (  | 
            
            
              | 912 | 
                             MAX(issues.timestamp) AS currentissue  | 
              912 | 
                          SELECT borrowers.borrowernumber,  | 
            
            
              | 913 | 
                      FROM   borrowers  | 
              913 | 
                                 MAX(old_issues.timestamp) AS latestissue,  | 
            
            
              | 914 | 
                      JOIN   categories USING (categorycode)  | 
              914 | 
                                 MAX(issues.timestamp) AS currentissue  | 
            
            
              | 915 | 
                      LEFT JOIN (  | 
              915 | 
                          FROM   borrowers  | 
            
            
              | 916 | 
                          SELECT guarantorid  | 
              916 | 
                          JOIN   categories USING (categorycode)  | 
            
            
              | 917 | 
                          FROM borrowers  | 
              917 | 
                          LEFT JOIN (  | 
            
            
              | 918 | 
                          WHERE guarantorid IS NOT NULL  | 
              918 | 
                              SELECT guarantorid  | 
            
            
              | 919 | 
                              AND guarantorid <> 0  | 
              919 | 
                              FROM borrowers  | 
            
            
              | 920 | 
                      ) as tmp ON borrowers.borrowernumber=tmp.guarantorid  | 
              920 | 
                              WHERE guarantorid IS NOT NULL  | 
            
            
              | 921 | 
                      LEFT JOIN old_issues USING (borrowernumber)  | 
              921 | 
                                  AND guarantorid <> 0  | 
            
            
              | 922 | 
                      LEFT JOIN issues USING (borrowernumber)|;  | 
              922 | 
                          ) as tmp ON borrowers.borrowernumber=tmp.guarantorid  | 
            
            
               | 
               | 
              923 | 
                          LEFT JOIN old_issues USING (borrowernumber)  | 
            
            
              | 924 | 
                          LEFT JOIN issues USING (borrowernumber)|;  | 
            
        
          | 923 | 
              if ( $filterpatronlist  ){ | 
          925 | 
              if ( $filterpatronlist  ){ | 
        
        
          | 924 | 
                  $query .= q| LEFT JOIN patron_list_patrons USING (borrowernumber)|;  | 
          926 | 
                  $query .= q| LEFT JOIN patron_list_patrons USING (borrowernumber)|;  | 
        
        
          | 925 | 
              }  | 
          927 | 
              }  | 
        
        
          | 926 | 
              $query .= q| WHERE  category_type <> 'S'  | 
          928 | 
              $query .= q| WHERE  category_type <> 'S'  | 
        
        
          | 927 | 
                  AND tmp.guarantorid IS NULL  | 
          929 | 
                  AND tmp.guarantorid IS NULL  | 
        
          
            
              | 928 | 
                 |;  | 
              930 | 
                  |;  | 
            
        
          | 929 | 
              my @query_params;  | 
          931 | 
              my @query_params;  | 
        
        
          | 930 | 
              if ( $filterbranch && $filterbranch ne "" ) { | 
          932 | 
              if ( $filterbranch && $filterbranch ne "" ) { | 
        
        
          | 931 | 
                  $query.= " AND borrowers.branchcode = ? ";  | 
          933 | 
                  $query.= " AND borrowers.branchcode = ? ";  | 
        
  
    | 
      
            Lines 947-957
          sub GetBorrowersToExpunge {
      
      
        Link Here
      
     | 
  
        
          | 947 | 
                  $query.=" AND patron_list_id = ? ";  | 
          949 | 
                  $query.=" AND patron_list_id = ? ";  | 
        
        
          | 948 | 
                  push( @query_params, $filterpatronlist );  | 
          950 | 
                  push( @query_params, $filterpatronlist );  | 
        
        
          | 949 | 
              }  | 
          951 | 
              }  | 
        
          
            
              | 950 | 
                  $query.=" GROUP BY borrowers.borrowernumber HAVING currentissue IS NULL ";  | 
              952 | 
                  $query .= " GROUP BY borrowers.borrowernumber";  | 
            
            
               | 
               | 
              953 | 
                  $query .= q|  | 
            
            
              | 954 | 
                      ) xxx WHERE currentissue IS NULL|;  | 
            
        
          | 951 | 
              if ( $filterdate ) { | 
          955 | 
              if ( $filterdate ) { | 
        
        
          | 952 | 
                  $query.=" AND ( latestissue < ? OR latestissue IS NULL ) ";  | 
          956 | 
                  $query.=" AND ( latestissue < ? OR latestissue IS NULL ) ";  | 
        
        
          | 953 | 
                  push @query_params,$filterdate;  | 
          957 | 
                  push @query_params,$filterdate;  | 
        
        
          | 954 | 
              }  | 
          958 | 
              }  | 
        
            
               | 
               | 
              959 | 
               | 
            
        
          | 955 | 
              warn $query if $debug;  | 
          960 | 
              warn $query if $debug;  | 
        
        
          | 956 | 
           | 
          961 | 
           | 
        
        
          | 957 | 
              my $sth = $dbh->prepare($query);  | 
          962 | 
              my $sth = $dbh->prepare($query);  | 
        
            
              | 958 | 
              -   | 
               | 
               |