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

(-)a/acqui/neworderempty.pl (-6 lines)
Lines 418-424 sub MARCfindbreeding { Link Here
418
            {
418
            {
419
                my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author", '');
419
                my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author", '');
420
420
421
#                 my $summary = C4::Context->preference("z3950authortemplate");
422
                my $auth_fields =
421
                my $auth_fields =
423
                C4::Context->preference("z3950AuthorAuthFields");
422
                C4::Context->preference("z3950AuthorAuthFields");
424
                my @auth_fields = split /,/, $auth_fields;
423
                my @auth_fields = split /,/, $auth_fields;
Lines 427-433 sub MARCfindbreeding { Link Here
427
                if ( $record->field($tag) ) {
426
                if ( $record->field($tag) ) {
428
                    foreach my $tmpfield ( $record->field($tag)->subfields ) {
427
                    foreach my $tmpfield ( $record->field($tag)->subfields ) {
429
428
430
    #                        foreach my $subfieldcode ($tmpfield->subfields){
431
                        my $subfieldcode  = shift @$tmpfield;
429
                        my $subfieldcode  = shift @$tmpfield;
432
                        my $subfieldvalue = shift @$tmpfield;
430
                        my $subfieldvalue = shift @$tmpfield;
433
                        if ($field) {
431
                        if ($field) {
Lines 451-466 sub MARCfindbreeding { Link Here
451
                    my $title     = $record->field($fieldtag)->subfield('c');
449
                    my $title     = $record->field($fieldtag)->subfield('c');
452
                    my $number    = $record->field($fieldtag)->subfield('d');
450
                    my $number    = $record->field($fieldtag)->subfield('d');
453
                    if ($title) {
451
                    if ($title) {
454
455
#                         $field->add_subfields("$subfield"=>"[ ".ucfirst($title).ucfirst($firstname)." ".$number." ]");
456
                        $field->add_subfields(
452
                        $field->add_subfields(
457
                                "$subfield" => ucfirst($title) . " "
453
                                "$subfield" => ucfirst($title) . " "
458
                            . ucfirst($firstname) . " "
454
                            . ucfirst($firstname) . " "
459
                            . $number );
455
                            . $number );
460
                    }
456
                    }
461
                    else {
457
                    else {
462
463
#                       $field->add_subfields("$subfield"=>"[ ".ucfirst($firstname).", ".ucfirst($lastname)." ]");
464
                        $field->add_subfields(
458
                        $field->add_subfields(
465
                            "$subfield" => ucfirst($firstname) . ", "
459
                            "$subfield" => ucfirst($firstname) . ", "
466
                            . ucfirst($lastname) );
460
                            . ucfirst($lastname) );
(-)a/cataloguing/addbiblio.pl (-7 lines)
Lines 107-113 sub MARCfindbreeding { Link Here
107
            {
107
            {
108
                my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author", '');
108
                my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author", '');
109
109
110
 #                 my $summary = C4::Context->preference("z3950authortemplate");
111
                my $auth_fields =
110
                my $auth_fields =
112
                  C4::Context->preference("z3950AuthorAuthFields");
111
                  C4::Context->preference("z3950AuthorAuthFields");
113
                my @auth_fields = split /,/, $auth_fields;
112
                my @auth_fields = split /,/, $auth_fields;
Lines 116-122 sub MARCfindbreeding { Link Here
116
                if ( $record->field($tag) ) {
115
                if ( $record->field($tag) ) {
117
                    foreach my $tmpfield ( $record->field($tag)->subfields ) {
116
                    foreach my $tmpfield ( $record->field($tag)->subfields ) {
118
117
119
       #                        foreach my $subfieldcode ($tmpfield->subfields){
120
                        my $subfieldcode  = shift @$tmpfield;
118
                        my $subfieldcode  = shift @$tmpfield;
121
                        my $subfieldvalue = shift @$tmpfield;
119
                        my $subfieldvalue = shift @$tmpfield;
122
                        if ($field) {
120
                        if ($field) {
Lines 140-155 sub MARCfindbreeding { Link Here
140
                    my $title     = $record->field($fieldtag)->subfield('c');
138
                    my $title     = $record->field($fieldtag)->subfield('c');
141
                    my $number    = $record->field($fieldtag)->subfield('d');
139
                    my $number    = $record->field($fieldtag)->subfield('d');
142
                    if ($title) {
140
                    if ($title) {
143
144
#                         $field->add_subfields("$subfield"=>"[ ".ucfirst($title).ucfirst($firstname)." ".$number." ]");
145
                        $field->add_subfields(
141
                        $field->add_subfields(
146
                                "$subfield" => ucfirst($title) . " "
142
                                "$subfield" => ucfirst($title) . " "
147
                              . ucfirst($firstname) . " "
143
                              . ucfirst($firstname) . " "
148
                              . $number );
144
                              . $number );
149
                    }
145
                    }
150
                    else {
146
                    else {
151
152
#                       $field->add_subfields("$subfield"=>"[ ".ucfirst($firstname).", ".ucfirst($lastname)." ]");
153
                        $field->add_subfields(
147
                        $field->add_subfields(
154
                            "$subfield" => ucfirst($firstname) . ", "
148
                            "$subfield" => ucfirst($firstname) . ", "
155
                              . ucfirst($lastname) );
149
                              . ucfirst($lastname) );
156
- 

Return to bug 20494