Revision 2042
Added by sgarg almost 21 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.