-%# $Id: layout.mc,v 1.24 2007-03-19 13:35:59 mike Exp $
+%# $Id: layout.mc,v 1.29 2007-04-26 14:38:37 mike Exp $
<%args>
$debug => undef
$title
$component
</%args>
<%once>
-use URI::Escape;
+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
+use ZOOM::IRSpy::Utils qw(isodate xml_encode cql_target cql_quote
irspy_xpath_context modify_xml_document
bib1_access_point);
</%once>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr class="banner">
+ <td>
+ <table width="100%">
+ <tr>
<td align="left">
<br/>
<h1><a class="logo" href="/">IRSpy</a></h1>
<br/>
<h1 class="title"><% xml_encode($title) %></h1>
</td>
+ </table>
+ </tr>
+ </td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
% 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>
<%perl>
my $id = $r->param("id");