X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Ffull.mc;h=1e19a8b6e41672fac8b902c6a68eef6069eaf573;hp=13865ed1c1d7f06728e85c49ffd3f01ab6654cea;hb=25e217feb6b3c709ab51acac74827443342fc823;hpb=07bd6ea6c324b2707538656eb0526a223826922d

diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc
index 13865ed..1e19a8b 100644
--- a/web/htdocs/details/full.mc
+++ b/web/htdocs/details/full.mc
@@ -1,4 +1,4 @@
-%# $Id: full.mc,v 1.17 2006-11-16 17:12:30 mike Exp $
+%# $Id: full.mc,v 1.19 2006-12-06 13:00:40 mike Exp $
 <%args>
 $id
 </%args>
@@ -16,19 +16,19 @@ if ($n == 0) {
 } else {
     my $xc = irspy_xpath_context($rs->record(0));
     my @fields = (
+		  [ Name => "e:databaseInfo/e:title",
+		    lang => "en", primary => "true" ],
+		  [ Country => "i:status/i:country" ],
 		  [ "Last Checked" => "i:status/i:probe[last()]" ],
 		  [ Protocol => "e:serverInfo/\@protocol" ],
 		  [ Host => "e:serverInfo/e:host" ],
 		  [ Port => "e:serverInfo/e:port" ],
 		  [ "Database Name" => "e:serverInfo/e:database" ],
 		  [ "Type of Library" => "i:status/i:libraryType" ],
-		  [ Country => "i:status/i:country" ],
 		  [ "Username (if needed)" =>
 		    "e:serverInfo/e:authentication/e:user" ],
 		  [ "Password (if needed)" =>
 		    "e:serverInfo/e:authentication/e:password" ],
-		  [ Title => "e:databaseInfo/e:title",
-		    lang => "en", primary => "true" ],
 		  [ Description => "e:databaseInfo/e:description",
 		    lang => "en", primary => "true" ],
 		  [ Author => "e:databaseInfo/e:author" ],
@@ -43,12 +43,7 @@ if ($n == 0) {
 		  [ "Implementation Name" => "i:status/i:implementationName" ],
 		  [ "Implementation Version" => "i:status/i:implementationVersion" ],
 		  [ "Reliability" => \&calc_reliability, $xc ],
-		  [ "Services" => sub { "
-### IRSpy does not yet check for search, present, delSet,
-concurrentOperations, namedResultSets, etc. and store the information
-is a usable form.  This information should probably be harvested from
-the Init Response.
-" } ],
+		  [ "Services" => \&calc_init_options, $xc ],
 		  [ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ],
 		  [ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ],
 		  [ "Operators" => \&calc_boolean, $xc ],
@@ -91,6 +86,21 @@ sub calc_reliability {
     return "$nok/$nall = " . int(100*$nok/$nall) . "%";
 }
 
+sub calc_init_options {
+    my($xc) = @_;
+
+    my @ops;
+    my @nodes = $xc->findnodes('e:configInfo/e:supports/@type');
+    foreach my $node (@nodes) {
+	my $type = $node->value();
+	if ($type =~ s/^z3950_//) {
+	    push @ops, $type;
+	}
+    }
+
+    return join(", ", @ops);
+}
+
 sub calc_ap {
     my($xc, $set) = @_;