| 
      
            Lines 506-515
          sub getRecords {
      
      
        Link Here
      
     | 
  
        
          | 506 | 
                              for my $facet (@$facets) { | 
          506 | 
                              for my $facet (@$facets) { | 
        
        
          | 507 | 
                                  for ( my $j = 0 ; $j < $jmax ; $j++ ) { | 
          507 | 
                                  for ( my $j = 0 ; $j < $jmax ; $j++ ) { | 
        
        
          | 508 | 
           | 
          508 | 
           | 
        
          
            
              | 509 | 
                                          my $marc_record = MARC::Record->new_from_xml(  | 
              509 | 
                                          my $marc_record =  eval { MARC::Record->new_from_xml( | 
            
        
          | 510 | 
                                          $results[ $i - 1 ]->record($j)->raw(),  | 
          510 | 
                                          $results[ $i - 1 ]->record($j)->raw(),  | 
        
        
          | 511 | 
                                          'UTF-8'  | 
          511 | 
                                          'UTF-8'  | 
        
          
            
              | 512 | 
                                          );  | 
              512 | 
                                          ); };  | 
            
            
               | 
               | 
              513 | 
               | 
            
            
              | 514 | 
                                          if ( $@ ) { | 
            
            
              | 515 | 
                                              warn "ERROR DECODING RECORD - $@: " .  | 
            
            
              | 516 | 
                                                  $results[ $i - 1 ]->record($j)->raw();  | 
            
            
              | 517 | 
                                              next;  | 
            
            
              | 518 | 
                                          }  | 
            
            
              | 519 | 
               | 
            
        
          | 513 | 
                                      my @used_datas = ();  | 
          520 | 
                                      my @used_datas = ();  | 
        
        
          | 514 | 
           | 
          521 | 
           | 
        
        
          | 515 | 
                                      foreach my $tag ( @{ $facet->{tags} } ) { | 
          522 | 
                                      foreach my $tag ( @{ $facet->{tags} } ) { | 
        
            
              | 516 | 
              -   | 
               | 
               |