Check-in by ben on 2025-04-30 01:22:43

  Move "Web page" below Download in details. Add Similar Items
  section to details. Add similar: special case to search.

  INSERTED    DELETED
         7          2 src/details/index.dcgi.m4
        40          5 src/search/index.dcgi.m4
        47          7 TOTAL over 2 changed files

Index: src/details/index.dcgi.m4
==================================================================
--- src/details/index.dcgi.m4
+++ src/details/index.dcgi.m4
@@ -137,10 +137,12 @@
             cgipath, url, server, port >>output
     }
 
     printf "[1|Download|%s/download/%s|%s|%s]\n", cgipath,
         item_id, server, port >>output
+    printf "[h|Web page|URL:%s/details/%s|%s|%s]\n",
+        api_ssl_endpoint, uri_encode(id), server, port >>output
     print "" >>output
 
     print_html(output, descr)
 
     print "" >>output
@@ -205,12 +207,15 @@
         printf "[1|%s|%s/search/%%09uploader:%s|%s|%s]\n", label,
             cgipath, uploader_email, server, port >>output
     }
 
     print "" >>output
-    printf "[h|Item web page|URL:%s/details/%s|%s|%s]\n",
-        api_ssl_endpoint, uri_encode(id), server, port >>output
+    print "# Similar Items" >>output
+    printf "[1|View similar items|%s/search/%%09similar:%s|%s|%s]\n",
+        cgipath, item_id, server, port >>output
+
+    print "" >>output
     printf "[1|PHAROS|%s|%s|%s]\n", cgipath, server, port >>output
 
     cache_end()
     unlink(iaout)
     return

Index: src/search/index.dcgi.m4
==================================================================
--- src/search/index.dcgi.m4
+++ src/search/index.dcgi.m4
@@ -9,12 +9,13 @@
 incl(src/api.awk)
 incl(src/cgi.awk)
 incl(src/util.awk)
 
 function main(search,     cmd, count, creator, descr, field, fields, i,
-    iaout, id, jsout, label, numfound, order, order_names, page, rows,
-    searchstr, sort_param, title, type, url)
+    iaout, id, item, items, jsout, label, numfound, order,
+    order_names, page, rows, searchstr, sort_param, str, title, type,
+    url)
 {
     order_names["addeddate"] = "addeddate"
     order_names["collection_size"] = "collection_size"
     order_names["createddate"] = "createddate"
     order_names["creator"] = "creatorSorter"
@@ -40,16 +41,53 @@
                 sort_param = parts[i]
                 order = substr(parts[i], 5)
             }
         }
     }
+
+    iaout = gettemp()
+    jsout = gettemp()
 
     # special case for when the search term is an archive.org details URL
     if (match(search, /^https:\/\/(www\.)?archive\.org\/details\//)) {
         id = substr(search, RLENGTH + 1)
         search = "identifier:" id
     }
+
+    # special case to list similar items
+    if (match(search, /^similar:/)) {
+        id = substr(search, RLENGTH + 1)
+
+        url = api_endpoint "/details/" id "?RelatedItemsGet=1"
+        api_request(url, "GET", iaout)
+    
+        # scrape similar items
+        FS = "\t"
+        items = 0
+        delete item
+        str = ""
+        while ((getline <iaout) > 0) {
+            if (match($0, /<a href="\/details\/[^"]*"/)) {
+                str = substr($0, RSTART + 18, RLENGTH - 19)
+                items++
+                item[items] = str
+            }
+        }
+        close(iaout)
+
+        # truncate temporary file for re-use
+        printf "" >iaout
+        close(iaout)
+
+        for (i = 1; i <= items; i++) {
+            if (i == 1) {
+                search = "identifier:" item[i]
+            } else {
+                search = search "%20OR%20identifier:" item[i]
+            }
+        }
+    }
 
     # remove quotes from search string, since it gets quoted later
     gsub(/"/, "", search)
 
     # default sort orders if none were specified
@@ -63,13 +101,10 @@
             order = "nav_order desc"
             sort_param = "sort" order
         }
     }
 
-    iaout = gettemp()
-    jsout = gettemp()
-
     # get search results
 
     field[1] = "creator"
     field[2] = "description"
     field[3] = "identifier"