Project

General

Profile

« Previous | Next » 

Revision 2042

Added by sgarg over 20 years ago

fixed a bug in reloading of kewords from an eml file for edit-datapackage form.

View differences:

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