| 
      
            Lines 952-958
          sub BuildSummary {
      
      
        Link Here
      
     | 
  
        
          | 952 | 
                  $summary{type} = $authref->{authtypetext}; | 
          952 | 
                  $summary{type} = $authref->{authtypetext}; | 
        
        
          | 953 | 
                  $summary{summary} = $authref->{summary}; | 
          953 | 
                  $summary{summary} = $authref->{summary}; | 
        
        
          | 954 | 
              }  | 
          954 | 
              }  | 
        
          
            
              | 955 | 
                  my $marc21subfields = 'abcdfghjklmnopqrstuvxyz';  | 
              955 | 
                  my $marc21subfields = 'abcdfghjklmnopqrstuvxyz68';  | 
            
        
          | 956 | 
              my %marc21controlrefs = ( 'a' => 'earlier',  | 
          956 | 
              my %marc21controlrefs = ( 'a' => 'earlier',  | 
        
        
          | 957 | 
                  'b' => 'later',  | 
          957 | 
                  'b' => 'later',  | 
        
        
          | 958 | 
                  'd' => 'acronym',  | 
          958 | 
                  'd' => 'acronym',  | 
        
  
    | 
      
            Lines 1032-1042
          sub BuildSummary {
      
      
        Link Here
      
     | 
  
        
          | 1032 | 
          # see :  | 
          1032 | 
          # see :  | 
        
        
          | 1033 | 
                  foreach my $field ($record->field('5..')) { | 
          1033 | 
                  foreach my $field ($record->field('5..')) { | 
        
        
          | 1034 | 
                      if (($field->subfield('5')) && ($field->subfield('a')) && ($field->subfield('5') eq 'g')) { | 
          1034 | 
                      if (($field->subfield('5')) && ($field->subfield('a')) && ($field->subfield('5') eq 'g')) { | 
        
          
            
              | 1035 | 
                              push @seealso, { $field->as_string('abcdefgjxyz'), type => 'broader', field => $field->tag() }; | 
              1035 | 
                              push @seealso, { | 
            
            
               | 
               | 
              1036 | 
                                  heading => $field->as_string('abcdefgjxyz'), | 
            
            
              | 1037 | 
                                  type => 'broader',  | 
            
            
              | 1038 | 
                                  field => $field->tag(),  | 
            
            
              | 1039 | 
                                  search => $field->as_string('abcdefgjxyz'), | 
            
            
              | 1040 | 
                                  authid => $field->subfield('9') | 
            
            
              | 1041 | 
                              };  | 
            
        
          | 1036 | 
                      } elsif (($field->subfield('5')) && ($field->as_string) && ($field->subfield('5') eq 'h')){ | 
          1042 | 
                      } elsif (($field->subfield('5')) && ($field->as_string) && ($field->subfield('5') eq 'h')){ | 
        
          
            
              | 1037 | 
                              push @seealso, { heading => $field->as_string('abcdefgjxyz'), type => 'narrower', field => $field->tag() }; | 
              1043 | 
                              push @seealso, { | 
            
            
               | 
               | 
              1044 | 
                                  heading => $field->as_string('abcdefgjxyz'), | 
            
            
              | 1045 | 
                                  type => 'narrower',  | 
            
            
              | 1046 | 
                                  field => $field->tag(),  | 
            
            
              | 1047 | 
                                  search => $field->as_string('abcdefgjxyz'), | 
            
            
              | 1048 | 
                                  authid => $field->subfield('9') | 
            
            
              | 1049 | 
                              };  | 
            
        
          | 1038 | 
                      } elsif ($field->subfield('a')) { | 
          1050 | 
                      } elsif ($field->subfield('a')) { | 
        
          
            
              | 1039 | 
                              push @seealso, { heading => $field->as_string('abcdefgxyz'), type => 'seealso', field => $field->tag() }; | 
              1051 | 
                              push @seealso, { | 
            
            
               | 
               | 
              1052 | 
                                  heading => $field->as_string('abcdefgxyz'), | 
            
            
              | 1053 | 
                                  type => 'seealso',  | 
            
            
              | 1054 | 
                                  field => $field->tag(),  | 
            
            
              | 1055 | 
                                  search => $field->as_string('abcdefgjxyz'), | 
            
            
              | 1056 | 
                                  authid => $field->subfield('9') | 
            
            
              | 1057 | 
                              };  | 
            
        
          | 1040 | 
                      }  | 
          1058 | 
                      }  | 
        
        
          | 1041 | 
                  }  | 
          1059 | 
                  }  | 
        
        
          | 1042 | 
          # // form  | 
          1060 | 
          # // form  | 
        
  
    | 
      
            Lines 1088-1115
          sub BuildSummary {
      
      
        Link Here
      
     | 
  
        
          | 1088 | 
                  }  | 
          1106 | 
                  }  | 
        
        
          | 1089 | 
                  foreach my $field ($record->field('4..')) { #See From | 
          1107 | 
                  foreach my $field ($record->field('4..')) { #See From | 
        
        
          | 1090 | 
                      my $type = 'seefrom';  | 
          1108 | 
                      my $type = 'seefrom';  | 
        
          
            
              | 1091 | 
                          $type = $marc21controlrefs{substr $field->subfield('w'), 0, 1} if ($field->subfield('w')); | 
              1109 | 
                          $type = ($marc21controlrefs{substr $field->subfield('w'), 0, 1} || '') if ($field->subfield('w')); | 
            
        
          | 1092 | 
                      if ($type eq 'notapplicable') { | 
          1110 | 
                      if ($type eq 'notapplicable') { | 
        
        
          | 1093 | 
                          $type = substr $field->subfield('w'), 2, 1; | 
          1111 | 
                          $type = substr $field->subfield('w'), 2, 1; | 
        
        
          | 1094 | 
                          $type = 'earlier' if $type && $type ne 'n';  | 
          1112 | 
                          $type = 'earlier' if $type && $type ne 'n';  | 
        
        
          | 1095 | 
                      }  | 
          1113 | 
                      }  | 
        
        
          | 1096 | 
                      if ($type eq 'subfi') { | 
          1114 | 
                      if ($type eq 'subfi') { | 
        
          
            
              | 1097 | 
                              push @seefrom, { heading => $field->as_string($marc21subfields), type => $field->subfield('i'), field => $field->tag() }; | 
              1115 | 
                              push @seefrom, { heading => $field->as_string($marc21subfields), type => ($field->subfield('i') || ''), field => $field->tag() }; | 
            
        
          | 1098 | 
                      } else { | 
          1116 | 
                      } else { | 
        
        
          | 1099 | 
                          push @seefrom, { heading => $field->as_string($marc21subfields), type => $type, field => $field->tag() }; | 
          1117 | 
                          push @seefrom, { heading => $field->as_string($marc21subfields), type => $type, field => $field->tag() }; | 
        
        
          | 1100 | 
                      }  | 
          1118 | 
                      }  | 
        
        
          | 1101 | 
                  }  | 
          1119 | 
                  }  | 
        
        
          | 1102 | 
                  foreach my $field ($record->field('5..')) { #See Also | 
          1120 | 
                  foreach my $field ($record->field('5..')) { #See Also | 
        
        
          | 1103 | 
                      my $type = 'seealso';  | 
          1121 | 
                      my $type = 'seealso';  | 
        
          
            
              | 1104 | 
                          $type = $marc21controlrefs{substr $field->subfield('w'), 0, 1} if ($field->subfield('w')); | 
              1122 | 
                          $type = ($marc21controlrefs{substr $field->subfield('w'), 0, 1} || '') if ($field->subfield('w')); | 
            
        
          | 1105 | 
                      if ($type eq 'notapplicable') { | 
          1123 | 
                      if ($type eq 'notapplicable') { | 
        
        
          | 1106 | 
                          $type = substr $field->subfield('w'), 2, 1; | 
          1124 | 
                          $type = substr $field->subfield('w'), 2, 1; | 
        
        
          | 1107 | 
                          $type = 'earlier' if $type && $type ne 'n';  | 
          1125 | 
                          $type = 'earlier' if $type && $type ne 'n';  | 
        
        
          | 1108 | 
                      }  | 
          1126 | 
                      }  | 
        
        
          | 1109 | 
                      if ($type eq 'subfi') { | 
          1127 | 
                      if ($type eq 'subfi') { | 
        
          
            
              | 1110 | 
                              push @seealso, { heading => $field->as_string($marc21subfields), type => $field->subfield('i'), field => $field->tag() }; | 
              1128 | 
                              push @seealso, { | 
            
            
               | 
               | 
              1129 | 
                                  heading => $field->as_string($marc21subfields),  | 
            
            
              | 1130 | 
                                  type => $field->subfield('i'), | 
            
            
              | 1131 | 
                                  field => $field->tag(),  | 
            
            
              | 1132 | 
                                  search => $field->as_string($marc21subfields) || '',  | 
            
            
              | 1133 | 
                                  authid => $field->subfield('9') || '' | 
            
            
              | 1134 | 
                              };  | 
            
        
          | 1111 | 
                      } else { | 
          1135 | 
                      } else { | 
        
          
            
              | 1112 | 
                              push @seealso, { heading => $field->as_string($marc21subfields), type => $type, field => $field->tag() }; | 
              1136 | 
                              push @seealso, { | 
            
            
               | 
               | 
              1137 | 
                                  heading => $field->as_string($marc21subfields),  | 
            
            
              | 1138 | 
                                  type => $type,  | 
            
            
              | 1139 | 
                                  field => $field->tag(),  | 
            
            
              | 1140 | 
                                  search => $field->as_string($marc21subfields) || '',  | 
            
            
              | 1141 | 
                                  authid => $field->subfield('9') || '' | 
            
            
              | 1142 | 
                              };  | 
            
        
          | 1113 | 
                      }  | 
          1143 | 
                      }  | 
        
        
          | 1114 | 
                  }  | 
          1144 | 
                  }  | 
        
        
          | 1115 | 
                  foreach my $field ($record->field('6..')) { | 
          1145 | 
                  foreach my $field ($record->field('6..')) { |