projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c714486
)
Protocol is now chosen from a dropdown.
author
Mike Taylor
<mike@indexdata.com>
Wed, 15 Nov 2006 13:10:42 +0000
(13:10 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Wed, 15 Nov 2006 13:10:42 +0000
(13:10 +0000)
web/htdocs/details/form.mc
patch
|
blob
|
history
diff --git
a/web/htdocs/details/form.mc
b/web/htdocs/details/form.mc
index
864524d
..
74d165b
100644
(file)
--- a/
web/htdocs/details/form.mc
+++ b/
web/htdocs/details/form.mc
@@
-1,4
+1,4
@@
-%# $Id: form.mc,v 1.3 2006-11-14 16:09:14 mike Exp $
+%# $Id: form.mc,v 1.4 2006-11-15 13:10:42 mike Exp $
<%args>
$id => undef
$conn
<%args>
$id => undef
$conn
@@
-8,7
+8,8
@@
$rec
my $xc = irspy_xpath_context($rec);
my @fields =
(
my $xc = irspy_xpath_context($rec);
my @fields =
(
- [ protocol => 0, "Protocol", "e:serverInfo/\@protocol" ],
+ [ protocol => [ qw(Z39.50 SRW SRU SRW/U) ],
+ "Protocol", "e:serverInfo/\@protocol" ],
[ host => 0, "Host", "e:serverInfo/e:host" ],
[ port => 0, "Port", "e:serverInfo/e:port" ],
[ dbname => 0, "Database Name", "e:serverInfo/e:database",
[ host => 0, "Host", "e:serverInfo/e:host" ],
[ port => 0, "Port", "e:serverInfo/e:port" ],
[ dbname => 0, "Database Name", "e:serverInfo/e:database",
@@
-72,7
+73,13
@@
foreach my $ref (@fields) {
<th><% $caption %></th>
<td>
% my $data = xml_encode($xc->find($xpath), "");
<th><% $caption %></th>
<td>
% my $data = xml_encode($xc->find($xpath), "");
-% if ($nlines) {
+% if (ref $nlines) {
+ <select name="<% $name %>" size="1">
+% foreach my $val (@$nlines) {
+ <option value="<% $val %>"><% $val %></option>
+% }
+ </select>
+% } elsif ($nlines) {
<textarea name="<% $name %>" rows="<% $nlines %>" cols="61"><% $data %></textarea>
% } else {
<input name="<% $name %>" type="text" size="60" value="<% $data %>">
<textarea name="<% $name %>" rows="<% $nlines %>" cols="61"><% $data %></textarea>
% } else {
<input name="<% $name %>" type="text" size="60" value="<% $data %>">