View | Details | Raw Unified | Return to bug 11200
Collapse All | Expand All

(-)a/cataloguing/addbiblio.pl (-11 / +22 lines)
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
- 

Return to bug 11200