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:
5862d2e
)
Calculate record-syntaxes.
author
Mike Taylor
<mike@indexdata.com>
Mon, 6 Nov 2006 17:34:58 +0000
(17:34 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Mon, 6 Nov 2006 17:34:58 +0000
(17:34 +0000)
web/htdocs/details/full.mc
patch
|
blob
|
history
diff --git
a/web/htdocs/details/full.mc
b/web/htdocs/details/full.mc
index
bc8a739
..
a152a74
100644
(file)
--- a/
web/htdocs/details/full.mc
+++ b/
web/htdocs/details/full.mc
@@
-1,4
+1,4
@@
-%# $Id: full.mc,v 1.10 2006-11-06 17:24:00 mike Exp $
+%# $Id: full.mc,v 1.11 2006-11-06 17:34:58 mike Exp $
<%args>
$id
</%args>
<%args>
$id
</%args>
@@
-48,7
+48,7
@@
if ($n == 0) {
[ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ],
[ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ],
[ "Operators" => \&calc_boolean, $xc ],
[ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ],
[ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ],
[ "Operators" => \&calc_boolean, $xc ],
- [ "Record syntaxes" => sub { "### SUTRS, USmarc, Danmarc" } ],
+ [ "Record syntaxes" => \&calc_recsyn, $xc ],
[ "Explain" => sub { "### CategoryList, TargetInfo, DatabaseInfo, RecordSyntaxInfo, AttributeSetInfo, AttributeDetails" } ],
);
</%perl>
[ "Explain" => sub { "### CategoryList, TargetInfo, DatabaseInfo, RecordSyntaxInfo, AttributeSetInfo, AttributeDetails" } ],
);
</%perl>
@@
-134,4
+134,11
@@
sub calc_boolean {
return join(", ", map { $_->findvalue('@operator') } @nodes);
}
return join(", ", map { $_->findvalue('@operator') } @nodes);
}
+sub calc_recsyn {
+ my($xc) = @_;
+
+ my @nodes = $xc->findnodes('e:recordInfo/e:recordSyntax');
+ return join(", ", map { $_->findvalue('@name') } @nodes);
+}
+
</%perl>
</%perl>