Revision 2042
Added by sgarg over 20 years ago
src/perl/register-dataset.cgi | ||
---|---|---|
1962 | 1962 |
if ($tempResult->size() > 1) { |
1963 | 1963 |
errMoreThanOne("keyword"); |
1964 | 1964 |
} else { |
1965 |
$count++; |
|
1965 | 1966 |
foreach $tempNode ($tempResult->get_nodelist) { |
1966 | 1967 |
$$templateVars{"keyword$count"} = $tempNode->textContent(); |
1967 | 1968 |
if ($tempNode->hasAttributes()) { |
1968 | 1969 |
my @attlist = $tempNode->attributes(); |
1969 | 1970 |
$$templateVars{"kwType$count"} = $attlist[0]->value; |
1970 | 1971 |
} |
1971 |
}
|
|
1972 |
} |
|
1972 | 1973 |
} |
1973 | 1974 |
$$templateVars{"kwTh$count"} = findValue($node, "keywordThesaurus"); |
1974 |
$count++; |
|
1975 | 1975 |
} |
1976 |
|
|
1976 |
$$templateVars{'keyCount'} = $count; |
|
1977 | 1977 |
|
1978 | 1978 |
$results = $doc->findnodes('//dataset/additionalInfo'); |
1979 | 1979 |
if ($results->size() > 1) { |
Also available in: Unified diff
fixed a bug in reloading of kewords from an eml file for edit-datapackage form.