IRSpy: <% xml_encode($title) %>

X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fchrome%2Flayout.mc;h=870cdced4d8425d061e386e3cff3aa56f866ae61;hp=adaac28067059d5599117e8c9321af549385607f;hb=6572fe6560ae792916d22f1481851242181914bf;hpb=1f230acff97f4d0a138ee78a0599d2d6578a5625 diff --git a/web/htdocs/chrome/layout.mc b/web/htdocs/chrome/layout.mc index adaac28..870cdce 100644 --- a/web/htdocs/chrome/layout.mc +++ b/web/htdocs/chrome/layout.mc @@ -1,10 +1,74 @@ -%# $Id: layout.mc,v 1.16 2006-11-14 16:21:08 mike Exp $ +%# $Id: layout.mc,v 1.24 2007-03-19 13:35:59 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_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 @@ -19,29 +83,53 @@ $component if ((!defined $id || $id eq "") && defined $host && defined $port && defined $dbname) { $id = "$host:$port/$dbname"; - $r->param(id => $id); - $ARGS{id} = $id; #warn "id set to '$id'"; } } -<%once> -use URI::Escape; -use ZOOM::IRSpy::Web; -use ZOOM::IRSpy::Utils qw(irspy_xpath_context xml_encode modify_xml_document); - -<& /chrome/head.mc, title => $title &> - -<& /chrome/bannerrow.mc, title => $title &> -

- -<& /chrome/lmenu.mc &> -

- - -

-<& /chrome/menu.mc &> +% 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 +

+ +
+ +

@@ -49,4 +137,14 @@ use ZOOM::IRSpy::Utils qw(irspy_xpath_context xml_encode modify_xml_document);

-<& /chrome/tail.mc &> +

+ + Powered by Index Data + +

+ +