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=c9931bcbf84992d5f1e420923a533c893c01d3c7;hb=6572fe6560ae792916d22f1481851242181914bf;hpb=bd529154255e19c35e4dfff019ed704f54b9c1f5 diff --git a/web/htdocs/chrome/layout.mc b/web/htdocs/chrome/layout.mc index c9931bc..870cdce 100644 --- a/web/htdocs/chrome/layout.mc +++ b/web/htdocs/chrome/layout.mc @@ -1,38 +1,150 @@ -%# $Id: layout.mc,v 1.1 2006-09-14 15:17:48 mike Exp $ +%# $Id: layout.mc,v 1.24 2007-03-19 13:35:59 mike Exp $ <%args> $debug => undef $title $component <%once> -use lib "/usr/local/src/cvs/irspy/lib"; -use ZOOM::IRSpy; +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); -<%perl> -my $text = $m->scomp($component, %ARGS); - -<& /chrome/head.mc, title => $title &> +% $r->content_type("text/html; charset=utf-8"); + + + + + IRSpy: <% xml_encode($title) %> + + + - <& /chrome/bannerrow.mc, title => $title &> + + + +

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

+ + +

+ +

- + - -

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

+ 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 +

+ +
+ +

- <% $text %> -

- <& /chrome/pmenu.mc &> +<& $component, %ARGS &>

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

+ + Powered by Index Data + +

+ +