Revision 2029
Added by sgarg almost 21 years ago
| src/perl/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.