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 <jgodin@tadl.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm
index dad6faf..bc3a591 100644 (file)
--- 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';