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

(-)a/C4/External/Syndetics.pm (-3 / +4 lines)
Lines 63-69 Get Summary data from Syndetics Link Here
63
=cut
63
=cut
64
64
65
sub get_syndetics_index {
65
sub get_syndetics_index {
66
    my ( $isbn,$upc,$oclc ) = @_;
66
    my ( $isbn, $upc, $oclc ) = @_;
67
68
    return unless ( $isbn || $upc || $oclc );
67
69
68
    my $response = _fetch_syndetics_content('INDEX.XML', $isbn, $upc, $oclc);
70
    my $response = _fetch_syndetics_content('INDEX.XML', $isbn, $upc, $oclc);
69
    unless ($response->content_type =~ /xml/) {
71
    unless ($response->content_type =~ /xml/) {
Lines 80-88 sub get_syndetics_index { Link Here
80
    for my $available_type ('SUMMARY','TOC','FICTION','AWARDS1','SERIES1','SPSUMMARY','SPREVIEW', 'AVPROFILE', 'AVSUMMARY','DBCHAPTER','LJREVIEW','PWREVIEW','SLJREVIEW','CHREVIEW','BLREVIEW','HBREVIEW','KIREVIEW','CRITICASREVIEW','ANOTES') {
82
    for my $available_type ('SUMMARY','TOC','FICTION','AWARDS1','SERIES1','SPSUMMARY','SPREVIEW', 'AVPROFILE', 'AVSUMMARY','DBCHAPTER','LJREVIEW','PWREVIEW','SLJREVIEW','CHREVIEW','BLREVIEW','HBREVIEW','KIREVIEW','CRITICASREVIEW','ANOTES') {
81
        if (exists $response->{$available_type} && $response->{$available_type} =~ /$available_type/) {
83
        if (exists $response->{$available_type} && $response->{$available_type} =~ /$available_type/) {
82
            $syndetics_elements->{$available_type} = $available_type;
84
            $syndetics_elements->{$available_type} = $available_type;
83
            #warn "RESPONSE: $available_type : $response->{$available_type}";
84
        }
85
        }
85
    }
86
    }
87
86
    return $syndetics_elements if $syndetics_elements;
88
    return $syndetics_elements if $syndetics_elements;
87
}
89
}
88
90
89
- 

Return to bug 12858