|
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 |
- |
|
|