Revision 2029
Added by sgarg almost 21 years ago
register-dataset.cgi | ||
---|---|---|
1203 | 1203 |
} |
1204 | 1204 |
} |
1205 | 1205 |
|
1206 |
$creat .= "<creator>\n"; |
|
1207 |
$creat .= "<organizationName>$FORM::site</organizationName>\n"; |
|
1208 |
$creat .= "</creator>\n"; |
|
1209 |
|
|
1210 |
$creat .= "<creator>\n"; |
|
1211 |
$creat .= "<organizationName>$organization</organizationName>\n"; |
|
1212 |
$creat .= "</creator>\n"; |
|
1213 |
|
|
1214 | 1206 |
if ($FORM::cfg eq 'nceas') { |
1215 | 1207 |
for (my $i = 0; $i < scalar(@FORM::wg); $i++) { |
1216 | 1208 |
$creat .= "<creator>\n"; |
1217 | 1209 |
$creat .= "<organizationName>$FORM::wg[$i]</organizationName>\n"; |
1218 | 1210 |
$creat .= "</creator>\n"; |
1219 | 1211 |
} |
1212 |
} else { |
|
1213 |
$creat .= "<creator>\n"; |
|
1214 |
$creat .= "<organizationName>$FORM::site</organizationName>\n"; |
|
1215 |
$creat .= "</creator>\n"; |
|
1220 | 1216 |
} |
1217 |
|
|
1218 |
$creat .= "<creator>\n"; |
|
1219 |
$creat .= "<organizationName>$organization</organizationName>\n"; |
|
1220 |
$creat .= "</creator>\n"; |
|
1221 |
|
|
1221 | 1222 |
$doc .= $creat; |
1222 | 1223 |
$doc .= $metaP; |
1223 | 1224 |
$doc .= $apart; |
Also available in: Unified diff
Mixed a bug reported by Rick and Dan. The form inserted a organizationName tag with no value. This happened only in NCEAS as the tag was included from the drop down site list which doesnot exsist in NCEAS version. Hence, a empty tag was inserted in the eml document.