| Lines 224-229
          for my $field852 (@field852s) {
      
      
        Link Here | 
        
          | 224 |         my @subfieldc = $field852->subfield('c'); | 224 |         my @subfieldc = $field852->subfield('c'); | 
        
          | 225 |         $noitemloc{'noitemloc'} .= ' (' . join('/', @subfieldc) . ')'; | 225 |         $noitemloc{'noitemloc'} .= ' (' . join('/', @subfieldc) . ')'; | 
        
          | 226 |     } | 226 |     } | 
            
              |  |  | 227 |     if ($field852->subfield('j')) { | 
            
              | 228 |         my @subfieldj = $field852->subfield('j'); | 
            
              | 229 |         $noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldj); | 
            
              | 230 |     } elsif ($field852->subfield('i')) { | 
            
              | 231 |         my @subfieldi = $field852->subfield('i'); | 
            
              | 232 |         $noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldi); | 
            
              | 233 |     } elsif ($field852->subfield('p')) { | 
            
              | 234 |         my @subfieldp = $field852->subfield('p'); | 
            
              | 235 |         $noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldp); | 
            
              | 236 |     } elsif ($field852->subfield('l')) { | 
            
              | 237 |         my @subfieldl = $field852->subfield('l'); | 
            
              | 238 |         $noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldl); | 
            
              | 239 |     } | 
        
          | 227 |     push(@noitemlocations, \%noitemloc); | 240 |     push(@noitemlocations, \%noitemloc); | 
        
          | 228 | } | 241 | } | 
        
          | 229 |  | 242 |  | 
            
              | 230 | -  |  |  |