From 4fe5060da6872c65b204b19a676d1bc5726bd0ed Mon Sep 17 00:00:00 2001 From: Jeff Godin Date: Wed, 25 Apr 2012 15:43:21 -0400 Subject: [PATCH] Adding some comments to help know how to test This code may not even work at this point still, but I'm getting it out in a collab branch and will continue to hack on it. Signed-off-by: Jeff Godin --- Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm index dad6fafce9..bc3a591efb 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm @@ -92,7 +92,13 @@ sub handler { my $keyhash; my $cachekey; + # Intended URL formats + # /opac/extras/ac/jacket/medium/ISBN_VALUE -- classic keyed-off-isbn + # /opac/extras/ac/jacket/medium/r/RECORD_ID -- provide record id (bre.id) + # /opac/extras/ac/jacket/medium/m/RECORD_ID -- future use for metarecord id + if ($keypart1 =~ m/^(r|m)$/) { + # XXX: metarecord not yet supported $keytype = 'record'; } else { $keytype = 'isbn'; -- 2.11.0