From cef3e59a87157deb93e8227377a74f29cf7ddeb0 Mon Sep 17 00:00:00 2001
From: Matt Calsada <mcalsada@atlas-sys.com>
Date: Fri, 19 Mar 2021 11:04:37 -0400
Subject: [PATCH] Initial v1.1 by Simmons College Library

---
 Config.xml                | 19 ++++++++++++++++
 InternetArchiveSearch.lua | 46 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 65 insertions(+)
 create mode 100644 Config.xml
 create mode 100644 InternetArchiveSearch.lua

diff --git a/Config.xml b/Config.xml
new file mode 100644
index 0000000..4a0ae99
--- /dev/null
+++ b/Config.xml
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <Name>Internet Archive Search</Name>
+  <Author>Simmons College Library</Author>
+  <Version>1.1</Version>
+  <Active>true</Active>
+  <Description>Performs a search of internet archive for a loans' LoanTitle.</Description>
+  <Forms>
+    <Form>FormRequest</Form>
+  </Forms>
+  <Settings>
+    <Setting name="AutoSearch" value="true" type="boolean">
+      <Description>Defines whether the search should be automatically performed when the form opens.</Description>
+    </Setting>
+  </Settings>
+  <Files>
+    <File>InternetArchiveSearch.lua</File>
+  </Files>
+</Configuration>
\ No newline at end of file
diff --git a/InternetArchiveSearch.lua b/InternetArchiveSearch.lua
new file mode 100644
index 0000000..fc638b9
--- /dev/null
+++ b/InternetArchiveSearch.lua
@@ -0,0 +1,46 @@
+-- About InternetArchiveSearch.lua
+--
+-- Developed by Simmons College Library
+--
+-- Version 1.1, April 2010
+--
+-- InternetArchiveSearch.lua does search of Internet Archive for the LoanTitle for loans.
+-- autoSearch (boolean) determines whether the search is performed automatically when a request is opened or not.
+--
+-- "query" is the text box name on archive.org
+
+local autoSearch = GetSetting("AutoSearch");
+
+local interfaceMngr = nil;
+local browser = nil;
+
+function Init()
+	if GetFieldValue("Transaction", "RequestType") == "Loan" then
+		interfaceMngr = GetInterfaceManager();
+		
+		-- Create browser
+		browser = interfaceMngr:CreateBrowser("Internet Archive Search", "Internet Archive Search", "Script");
+		
+		-- Create buttons
+		browser:CreateButton("Search", GetClientImage("Search32"), "Search", "Internet Archive");
+		
+		browser:Show();
+		
+		if autoSearch then
+			Search();
+		end
+	end
+end
+
+function Search()
+        browser:RegisterPageHandler("formExists", "searchform","SearchFormLoaded", false);
+        browser:Navigate("http://archive.org");
+end
+
+function SearchFormLoaded()
+		if GetFieldValue("Transaction", "RequestType") == "Loan" then
+			browser:SetFormValue("searchform", "search", GetFieldValue("Transaction", "LoanTitle"));
+		end
+        browser:ClickObject("gobutton");
+end
+