projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reorder and reformat "This Record" submenu.
[irspy-moved-to-github.git]
/
web
/
htdocs
/
details
/
full.mc
diff --git
a/web/htdocs/details/full.mc
b/web/htdocs/details/full.mc
index
5f7ac19
..
cbacb42
100644
(file)
--- a/
web/htdocs/details/full.mc
+++ b/
web/htdocs/details/full.mc
@@
-1,4
+1,4
@@
-%# $Id: full.mc,v 1.13 2006-11-06 17:43:29 mike Exp $
+%# $Id: full.mc,v 1.15 2006-11-15 13:23:05 mike Exp $
<%args>
$id
</%args>
<%args>
$id
</%args>
@@
-25,6
+25,8
@@
if ($n == 0) {
[ Host => "e:serverInfo/e:host" ],
[ Port => "e:serverInfo/e:port" ],
[ "Database Name" => "e:serverInfo/e:database" ],
[ 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)" =>
[ "Username (if needed)" =>
"e:serverInfo/e:authentication/e:user" ],
[ "Password (if needed)" =>
@@
-35,6
+37,7
@@
if ($n == 0) {
lang => "en", primary => "true" ],
[ Author => "e:databaseInfo/e:author" ],
[ Contact => "e:databaseInfo/e:contact" ],
lang => "en", primary => "true" ],
[ Author => "e:databaseInfo/e:author" ],
[ Contact => "e:databaseInfo/e:contact" ],
+ [ "URL to Hosting Organisation" => "i:status/i:hostURL" ],
[ Extent => "e:databaseInfo/e:extent" ],
[ History => "e:databaseInfo/e:history" ],
[ "Language of Records" => "e:databaseInfo/e:langUsage" ],
[ Extent => "e:databaseInfo/e:extent" ],
[ History => "e:databaseInfo/e:history" ],
[ "Language of Records" => "e:databaseInfo/e:langUsage" ],
@@
-58,7
+61,7
@@
the Init Response.
[ "Explain" => \&calc_explain, $xc ],
);
</%perl>
[ "Explain" => \&calc_explain, $xc ],
);
</%perl>
- <h2><% xml_encode($xc->find("e:databaseInfo/e:title")) %></h2>
+ <h2><% xml_encode($xc->find("e:databaseInfo/e:title"), "") %></h2>
<table class="fullrecord" border="1" cellspacing="0" cellpadding="5" width="100%">
<%perl>
foreach my $ref (@fields) {
<table class="fullrecord" border="1" cellspacing="0" cellpadding="5" width="100%">
<%perl>
foreach my $ref (@fields) {