X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fchrome%2Flayout.mc;h=4421d3e7d9cbb13105c392b4ebbbd56034491f21;hb=477bd7f511474364d261757ebd5dbf062ab52184;hp=3a62bf12cbfeff8e3e16088438fa6e5f1e3e33ca;hpb=d5a78c57cbd06e19c3186999a05172a8aa9eb6d7;p=irspy-moved-to-github.git diff --git a/web/htdocs/chrome/layout.mc b/web/htdocs/chrome/layout.mc index 3a62bf1..4421d3e 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.27 2007-04-16 12:26:11 mike Exp $ <%args> $debug => undef $title $component <%once> -use URI::Escape; +use URI::Escape qw(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");