Show
Ignore:
Timestamp:
05/07/08 16:40:13 (3 months ago)
Author:
erickson
Message:

added content handler no longer tries to pull from the cache when the plugin cannot return data for that type of call anyway. removed Amazon stub methods because they 1. should have returned explicit undef, but more importantly because having them around means extra calls to memcache

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/Open-ILS/src/perlmods/OpenILS/WWW/AddedContent/Amazon.pm

    r7750 r9525  
    4848# -------------------------------------------------------------------------- 
    4949 
    50 sub toc_html { 
    51     my( $self, $key ) = @_; 
    52 } 
    53  
    54 sub toc_xml { 
    55     my( $self, $key ) = @_; 
    56 } 
    57  
    58 sub toc_json { 
    59     my( $self, $key ) = @_; 
    60 } 
    61  
    62 # -------------------------------------------------------------------------- 
    63  
    64 sub anotes_html { 
    65     my( $self, $key ) = @_; 
    66 } 
    67  
    68 sub anotes_xml { 
    69     my( $self, $key ) = @_; 
    70 } 
    71  
    72 sub anotes_json { 
    73     my( $self, $key ) = @_; 
    74 } 
    75  
    76  
    77 # -------------------------------------------------------------------------- 
    78  
    79 sub excerpt_html { 
    80     my( $self, $key ) = @_; 
    81 } 
    82  
    83 sub excerpt_xml { 
    84     my( $self, $key ) = @_; 
    85 } 
    86  
    87 sub excerpt_json { 
    88     my( $self, $key ) = @_; 
    89 } 
    90  
    91 # -------------------------------------------------------------------------- 
    92  
    93 sub reviews_html { 
    94     my( $self, $key ) = @_; 
    95 } 
    96  
    97 # we have to aggregate the reviews 
    98 sub reviews_xml { 
    99     my( $self, $key ) = @_; 
    100 } 
    101  
    102  
    103 sub reviews_json { 
    104     my( $self, $key ) = @_; 
    105 } 
    106  
    107 # -------------------------------------------------------------------------- 
    108  
    10950sub send_img { 
    11051    my($self, $response) = @_;