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

(-)a/C4/Biblio.pm (-6 / +23 lines)
Lines 1163-1168 sub GetCOinSBiblio { Link Here
1163
    my $isbn      = '';
1163
    my $isbn      = '';
1164
    my $issn      = '';
1164
    my $issn      = '';
1165
    my $publisher = '';
1165
    my $publisher = '';
1166
    my $pages     = '';
1166
    my $titletype = 'b';
1167
    my $titletype = 'b';
1167
1168
1168
    # For the purposes of generating COinS metadata, LDR/06-07 can be
1169
    # For the purposes of generating COinS metadata, LDR/06-07 can be
Lines 1251-1264 sub GetCOinSBiblio { Link Here
1251
        $title = "&rft." . $titletype . "title=" . $record->subfield( '245', 'a' );
1252
        $title = "&rft." . $titletype . "title=" . $record->subfield( '245', 'a' );
1252
        $subtitle = $record->subfield( '245', 'b' ) || '';
1253
        $subtitle = $record->subfield( '245', 'b' ) || '';
1253
        $title .= $subtitle;
1254
        $title .= $subtitle;
1254
        $pubyear   = $record->subfield( '260', 'c' ) || '';
1255
        if ($titletype eq 'a') {
1255
        $publisher = $record->subfield( '260', 'b' ) || '';
1256
            $pubyear   = substr $record->field('008')->data(), 7, 4;
1256
        $isbn      = $record->subfield( '020', 'a' ) || '';
1257
            $isbn      = $record->subfield( '773', 'z' ) || '';
1257
        $issn      = $record->subfield( '022', 'a' ) || '';
1258
            $issn      = $record->subfield( '773', 'x' ) || '';
1259
#            if ($mtx eq 'journal') {
1260
                $title    .= "&rft.title=" . (($record->subfield( '773', 't' ) || $record->subfield( '773', 'a')));
1261
#            } else {
1262
#                $title    .= "&rft.btitle=" . (($record->subfield( '773', 't' ) || $record->subfield( '773', 'a')) || '');
1263
#            }
1264
            foreach my $rel ($record->subfield( '773', 'g' )) {
1265
                if ($pages) {
1266
                    $pages .= ', ';
1267
                }
1268
                $pages .= $rel;
1269
            }
1270
        } else {
1271
            $pubyear   = $record->subfield( '260', 'c' ) || '';
1272
            $publisher = $record->subfield( '260', 'b' ) || '';
1273
            $isbn      = $record->subfield( '020', 'a' ) || '';
1274
            $issn      = $record->subfield( '022', 'a' ) || '';
1275
        }
1258
1276
1259
    }
1277
    }
1260
    my $coins_value =
1278
    my $coins_value =
1261
"ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3A$mtx$genre$title&rft.isbn=$isbn&rft.issn=$issn&rft.aulast=$aulast&rft.aufirst=$aufirst$oauthors&rft.pub=$publisher&rft.date=$pubyear";
1279
"ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3A$mtx$genre$title&rft.isbn=$isbn&rft.issn=$issn&rft.aulast=$aulast&rft.aufirst=$aufirst$oauthors&rft.pub=$publisher&rft.date=$pubyear&rft.pages=$pages";
1262
    $coins_value =~ s/(\ |&[^a])/\+/g;
1280
    $coins_value =~ s/(\ |&[^a])/\+/g;
1263
1281
1264
#<!-- TMPL_VAR NAME="ocoins_format" -->&amp;rft.au=<!-- TMPL_VAR NAME="author" -->&amp;rft.btitle=<!-- TMPL_VAR NAME="title" -->&amp;rft.date=<!-- TMPL_VAR NAME="publicationyear" -->&amp;rft.pages=<!-- TMPL_VAR NAME="pages" -->&amp;rft.isbn=<!-- TMPL_VAR NAME=amazonisbn -->&amp;rft.aucorp=&amp;rft.place=<!-- TMPL_VAR NAME="place" -->&amp;rft.pub=<!-- TMPL_VAR NAME="publishercode" -->&amp;rft.edition=<!-- TMPL_VAR NAME="edition" -->&amp;rft.series=<!-- TMPL_VAR NAME="series" -->&amp;rft.genre="
1282
#<!-- TMPL_VAR NAME="ocoins_format" -->&amp;rft.au=<!-- TMPL_VAR NAME="author" -->&amp;rft.btitle=<!-- TMPL_VAR NAME="title" -->&amp;rft.date=<!-- TMPL_VAR NAME="publicationyear" -->&amp;rft.pages=<!-- TMPL_VAR NAME="pages" -->&amp;rft.isbn=<!-- TMPL_VAR NAME=amazonisbn -->&amp;rft.aucorp=&amp;rft.place=<!-- TMPL_VAR NAME="place" -->&amp;rft.pub=<!-- TMPL_VAR NAME="publishercode" -->&amp;rft.edition=<!-- TMPL_VAR NAME="edition" -->&amp;rft.series=<!-- TMPL_VAR NAME="series" -->&amp;rft.genre="
1265
- 

Return to bug 4366