Lines 134-152
sub MARCfindbreeding {
Link Here
|
134 |
my $title = $record->field($fieldtag)->subfield('c'); |
134 |
my $title = $record->field($fieldtag)->subfield('c'); |
135 |
my $number = $record->field($fieldtag)->subfield('d'); |
135 |
my $number = $record->field($fieldtag)->subfield('d'); |
136 |
if ($title) { |
136 |
if ($title) { |
137 |
|
137 |
if ($field) { |
138 |
# $field->add_subfields("$subfield"=>"[ ".ucfirst($title).ucfirst($firstname)." ".$number." ]"); |
138 |
$field->add_subfields( |
139 |
$field->add_subfields( |
139 |
"$subfield" => ucfirst($title) . " " |
140 |
"$subfield" => ucfirst($title) . " " |
140 |
. ucfirst($firstname) . " " |
141 |
. ucfirst($firstname) . " " |
141 |
. $number ); |
142 |
. $number ); |
142 |
}else{ |
|
|
143 |
$field = |
144 |
MARC::Field->new( $tag, "", "", |
145 |
$subfield => ucfirst($title) . " " |
146 |
. ucfirst($firstname) . " " |
147 |
. $number ); |
148 |
} |
143 |
} |
149 |
} |
144 |
else { |
150 |
else { |
145 |
|
151 |
|
146 |
# $field->add_subfields("$subfield"=>"[ ".ucfirst($firstname).", ".ucfirst($lastname)." ]"); |
152 |
if ($field) { |
147 |
$field->add_subfields( |
153 |
$field->add_subfields( |
148 |
"$subfield" => ucfirst($firstname) . ", " |
154 |
"$subfield" => ucfirst($firstname) . ", " |
149 |
. ucfirst($lastname) ); |
155 |
. ucfirst($lastname) ); |
|
|
156 |
}else{ |
157 |
$field = |
158 |
MARC::Field->new( $tag, "", "", |
159 |
$subfield => ucfirst($firstname) . ", " |
160 |
. ucfirst($lastname) ); |
161 |
} |
150 |
} |
162 |
} |
151 |
} |
163 |
} |
152 |
$record->insert_fields_ordered($field); |
164 |
$record->insert_fields_ordered($field); |
153 |
- |
|
|