-%# $Id: form.mc,v 1.3 2006-11-14 16:09:14 mike Exp $
+%# $Id: form.mc,v 1.5 2006-11-15 13:15:19 mike Exp $
<%args>
$id => undef
$conn
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",
qw() ],
[ password => 0, "Password (if needed)", "e:serverInfo/e:authentication/e:password",
qw(e:user) ],
- [ title => 0, "title", "e:databaseInfo/e:title",
+ [ title => 0, "Title", "e:databaseInfo/e:title",
qw() ],
[ description => 5, "Description", "e:databaseInfo/e:description",
qw(e:title) ],
<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 %>">