| 
      
            Lines 1080-1089
          sub get_marc_notes {
      
      
        Link Here
      
     | 
  
        
          | 1080 | 
                      push @marcnotes, { marcnote => $field->as_string($othersub) }; | 
          1080 | 
                      push @marcnotes, { marcnote => $field->as_string($othersub) }; | 
        
        
          | 1081 | 
                      foreach my $sub ( $field->subfield('u') ) { | 
          1081 | 
                      foreach my $sub ( $field->subfield('u') ) { | 
        
        
          | 1082 | 
                          $sub =~ s/^\s+|\s+$//g; # trim  | 
          1082 | 
                          $sub =~ s/^\s+|\s+$//g; # trim  | 
        
          
            
              | 1083 | 
                              push @marcnotes, { marcnote => $sub }; | 
              1083 | 
                              push @marcnotes, { marcnote => $sub, tag => $tag }; | 
            
        
          | 1084 | 
                      }  | 
          1084 | 
                      }  | 
        
        
          | 1085 | 
                  } else { | 
          1085 | 
                  } else { | 
        
          
            
              | 1086 | 
                          push @marcnotes, { marcnote => $field->as_string() }; | 
              1086 | 
                          push @marcnotes, { marcnote => $field->as_string(), tag => $tag }; | 
            
        
          | 1087 | 
                  }  | 
          1087 | 
                  }  | 
        
        
          | 1088 | 
              }  | 
          1088 | 
              }  | 
        
        
          | 1089 | 
              return \@marcnotes;  | 
          1089 | 
              return \@marcnotes;  |