X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fchrome%2Flayout.mc;h=e52264bed2db5f72047d23f5918a53a165398b0f;hp=3a62bf12cbfeff8e3e16088438fa6e5f1e3e33ca;hb=7c63e00774fa8b28c556ea40afa21afb1e4fdbfe;hpb=31fa9427775bb444d34a4f203e6eaa2b17018303 diff --git a/web/htdocs/chrome/layout.mc b/web/htdocs/chrome/layout.mc index 3a62bf1..e52264b 100644 --- a/web/htdocs/chrome/layout.mc +++ b/web/htdocs/chrome/layout.mc @@ -1,14 +1,14 @@ -%# $Id: layout.mc,v 1.23 2007-02-20 19:20:23 mike Exp $ +%# $Id: layout.mc,v 1.28 2007-04-17 08:41:07 mike Exp $ <%args> $debug => undef $title $component <%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_quote cql_target +use ZOOM::IRSpy::Utils qw(isodate xml_encode cql_target cql_quote irspy_xpath_context modify_xml_document bib1_access_point); @@ -66,6 +66,7 @@ use ZOOM::IRSpy::Utils qw(isodate xml_encode cql_quote cql_target % foreach my $i ('a' .. 'z') { <% uc($i) %> % } + [Others]

<%perl> my $id = $r->param("id");