+<%once>
+use URI::Escape qw(uri_escape uri_escape_utf8);
+use ZOOM;
+use ZOOM::IRSpy::Web;
+use ZOOM::IRSpy::Utils qw(isodate xml_encode cql_target cql_quote
+ irspy_xpath_context modify_xml_document
+ bib1_access_point);
+</%once>
+% $r->content_type("text/html; charset=utf-8");
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE html
+ PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+ <head>
+ <title>IRSpy: <% xml_encode($title) %></title>
+ <link rel="stylesheet" type="text/css" href="/style.css"/>
+ </head>
+ <body>
+ <table border="0" cellpadding="0" cellspacing="0" width="100%">
+ <tr class="banner">
+ <td align="left">
+ <br/>
+ <h1><a class="logo" href="/">IRSpy</a></h1>
+ </td>
+ <td align="right">
+ <br/>
+ <h1 class="title"><% xml_encode($title) %></h1>
+ </td>
+ </tr>
+ </table>
+ <table border="0" cellpadding="0" cellspacing="0" width="100%">
+ <tr class="panel3">
+ <td align="left">
+ <!-- Force display -->
+ <!-- Lmenu left -->
+ </td>
+ <td>
+ <!-- Lmenu middle -->
+ </td>
+ <td align="right">
+ <!-- Lmenu right -->
+ </td>
+ </tr>
+ </table>
+ <p></p>
+ <table border="0" cellpadding="0" cellspacing="0" width="100%">
+ <tr>
+ <td valign="top" class="panel1">
+ <p>
+ <a href="/"><b>Home</b></a><br/>
+ <a href="/admin/all.html">Test all targets</a><br/>
+ <a href="/find.html">Find a target</a><br/>
+ <a href="/admin/edit.html?op=new">Add a target</a><br/>
+ <a href="/stats.html">Statistics</a><br/>
+ </p>
+ <p>
+ <b>Show targets</b>
+ <br/>
+% foreach my $i ('a' .. 'z') {
+ <a href="/find.html?dc.title=^<% $i %>*&_sort=dc.title&_count=9999&_search=Search"><tt><% uc($i) %></tt></a>
+% }
+ <a href="/find.html?cql.allRecords=1+not+dc.title+=/regexp/firstInField+[a-z].*&_sort=dc.title&_count=9999&_search=Search"">[Others]</a>
+ </p>