Reimplement shorturi and shortreason

weblog-viewweblog-html.lsp

 <% local data, viewlibrary, page_info, session = ... %>
-<% require("viewfunctions")%>
+<% require("viewfunctions") %>
 
 <%
 -- Insert a string into another string
@@ -236,8 +236,14 @@ end %>
 		<TD WIDTH="2%"><% if watch.deniedyesno ~= "0" then %> <IMG SRC='<%= html.html_escape(page_info.wwwprefix..page_info.staticdir) %>/denied.png' width='13' height='13'><% end %></TD>
 		<TD WIDTH="2%"><% if watch.bypassyesno ~= "0" then %> <IMG SRC='<%= html.html_escape(page_info.wwwprefix..page_info.staticdir) %>/bypass.png' width='13' height='13'><% end %></TD>   
 		<TD><%= html.html_escape(watch.score) %></TD>
-		<TD><%= html.html_escape(watch.reason) %></TD>
-		<TD style="word-wrap: break-word" width="500"><% highlight_uri=html.html_escape(watch.uri)
+		<TD<% if (watch.shortreason and watch.shortreason ~= "" and watch.reason and watch.reason ~= "") then %> title="<%= html.html_escape(watch.reason) %>"<% end %>>
+			<% if (watch.shortreason and watch.shortreason ~= "") then %>
+				<%= html.html_escape(watch.shortreason) %>
+			<% elseif (watch.reason and watch.reason ~= "") then %>
+				<%= html.html_escape(watch.reason) %>
+			<% end %>
+		</TD>
+		<TD style="word-wrap: break-word" width="500" title="<%= html.html_escape(watch.uri) %>"><% highlight_uri=html.html_escape(watch.shorturi or watch.uri)
 		if watch.wordloc ~= nil then 
 			if string.find(watch.wordloc, "|") then 
 				badwords = format.string_to_table(watch.wordloc, "|")