X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fedit.mc;h=a22e81154c40447c5ac7ffa9f124c5e866325944;hb=ec138f334f853def75f66fef8337adf2a6cc38b2;hp=7b3e6d7846fd737e3612b6cec2a5b657781eb380;hpb=02fdc2909253e8bab7022b9dcd7f6bc060b5c67d;p=irspy-moved-to-github.git

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index 7b3e6d7..a22e811 100644
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $Id: edit.mc,v 1.21 2006-11-29 18:22:08 mike Exp $
+%# $Id: edit.mc,v 1.23 2006-12-05 17:37:18 mike Exp $
 <%args>
 $op
 $id => undef
@@ -77,21 +77,21 @@ for this host, port and database name.
 my $xc = irspy_xpath_context($rec);
 my @fields =
     (
+     [ title        => 0, "Name", "e:databaseInfo/e:title",
+       qw() ],
+     [ country      => 0, "Country", "i:status/i:country" ],
      [ 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(e:host e:port) ],
-     [ type         => [ qw(Academic Public Corporate Special National Education Other) ],
+     [ type         => [ "", qw(Academic Public Corporate Special National Education Other) ],
        "Type of Library", "i:status/i:libraryType" ],
-     [ country      => 0, "Country", "i:status/i:country" ],
      [ username     => 0, "Username (if needed)", "e:serverInfo/e:authentication/e:user",
        qw() ],
      [ password     => 0, "Password (if needed)", "e:serverInfo/e:authentication/e:password",
        qw(e:user) ],
-     [ title        => 0, "Title", "e:databaseInfo/e:title",
-       qw() ],
      [ description  => 5, "Description", "e:databaseInfo/e:description",
        qw(e:title) ],
      [ author       => 0, "Author", "e:databaseInfo/e:author",
@@ -164,6 +164,9 @@ foreach my $ref (@fields) {
      <input name="<% $name %>" type="text" size="60" value="<% $val %>"/>
 % }
     </td>
+    <td>
+     <& /help/link.mc, help => "edit/$name" &>
+    </td>
    </tr>
 %   }
    <tr>