IRSpy: <% xml_encode($title) %>

%# $Id: layout.mc,v 1.30 2007-04-27 14:04:40 mike Exp $ <%args> $debug => undef $title $component <%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 irspy_make_identifier irspy_record2identifier irspy_identifier2target 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) %> % } [Others]

<%perl> my $id = $r->param("id"); { # Make up ID for newly created records. my $protocol = $r->param("protocol"); my $host = $r->param("host"); my $port = $r->param("port"); my $dbname = $r->param("dbname"); #warn "id='$id', protocol='$protocol' host='$host', port='$port', dbname='$dbname'"; #warn "%ARGS = {\n" . join("", map { "\t'$_' => '" . $ARGS{$_} . ",'\n" } sort keys %ARGS) . "}\n"; if ((!defined $id || $id eq "") && defined $protocol && defined $host && defined $port && defined $dbname) { $id = irspy_make_identifier($protocol, $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 &>