| Lines 60-65
          WHERE bo.dateenrolled >= ?|;
      
      
        Link Here | 
        
          | 60 |     $sql .= " AND categorycode = ?" if $category; | 60 |     $sql .= " AND categorycode = ?" if $category; | 
        
          | 61 |     my $sth = $dbh->prepare($sql); | 61 |     my $sth = $dbh->prepare($sql); | 
        
          | 62 |     $sth->execute($since, $category || () ); | 62 |     $sth->execute($since, $category || () ); | 
            
              |  |  | 63 |     my $cnt = 0; | 
        
          | 63 |     while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { | 64 |     while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { | 
        
          | 64 |         print "$borrowernumber: $categorycode\n"; | 65 |         print "$borrowernumber: $categorycode\n"; | 
        
          | 65 |         next unless $doit; | 66 |         next unless $doit; | 
  
    | Lines 67-74
          WHERE bo.dateenrolled >= ?|;
      
      
        Link Here | 
        
          | 67 |             borrowernumber => $borrowernumber, | 68 |             borrowernumber => $borrowernumber, | 
        
          | 68 |             categorycode   => $categorycode, | 69 |             categorycode   => $categorycode, | 
        
          | 69 |         } ); | 70 |         } ); | 
            
              |  |  | 71 |         $cnt++; | 
        
          | 70 |     } | 72 |     } | 
        
          | 71 |     $dbh->commit(); | 73 |     $dbh->commit(); | 
            
              |  |  | 74 |     print "Total borrowers updated: $cnt\n" if $doit; | 
        
          | 72 | } | 75 | } | 
        
          | 73 |  | 76 |  | 
        
          | 74 |  | 77 |  | 
            
              | 75 | -  |  |  |