IRSpy: <% xml_encode($title) %>

%# $Id: layout.mc,v 1.22 2007-01-02 17:26:40 mike Exp $ <%args> $debug => undef $title $component <%once> use URI::Escape; use ZOOM; use ZOOM::IRSpy::Web; use ZOOM::IRSpy::Utils qw(isodate xml_encode cql_quote cql_target irspy_xpath_context modify_xml_document bib1_access_point); % $r->content_type("text/html; charset=utf-8"); IRSpy: <% xml_encode($title) %>

Home
Test all targets
Find a target
Add a target
Statistics

Show targets
% foreach my $i ('a' .. 'z') { <% uc($i) %> % }

<%perl> my $id = $r->param("id"); { # Make up ID for newly created records. It would be more # rigorously correct, but insanely inefficient, to submit the # record to Zebra and then search for it; but since we know the # formula for IDs anyway, we just build one by hand. my $id = $r->param("id"); my $host = $r->param("host"); my $port = $r->param("port"); my $dbname = $r->param("dbname"); #warn "id='$id', host='$host', port='$port', dbname='$dbname'"; #warn "%ARGS = {\n" . join("", map { "\t'$_' => '" . $ARGS{$_} . ",'\n" } sort keys %ARGS) . "}\n"; if ((!defined $id || $id eq "") && defined $host && defined $port && defined $dbname) { $id = "$host:$port/$dbname"; #warn "id set to '$id'"; } } % if (defined $id && $r->param("op") ne "copy") {

This Target
Show details
">Edit details
">Copy target
Delete target

">Quick Test
">Full Test

XML

<%doc>
% my $host = "bagel.indexdata.dk"; % my $port = 210; All databases on this server

% }

Documentation
Contents

<& $component, %ARGS &>