Revision 2049
Added by sgarg over 20 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 1134 | 1134 |
} |
| 1135 | 1135 |
$dso = "<$role>\n$orig</$role>\n"; |
| 1136 | 1136 |
|
| 1137 |
if ($FORM::cfg eq 'nceas') {
|
|
| 1138 |
for (my $i = 0; $i < scalar(@FORM::wg); $i++) {
|
|
| 1139 |
$creat .= "<creator>\n"; |
|
| 1140 |
$creat .= "<organizationName>".normalize($FORM::wg[$i])."</organizationName>\n"; |
|
| 1141 |
$creat .= "</creator>\n"; |
|
| 1142 |
} |
|
| 1143 |
} else {
|
|
| 1144 |
$creat .= "<creator>\n"; |
|
| 1145 |
$creat .= "<organizationName>".normalize($FORM::site)."</organizationName>\n"; |
|
| 1146 |
$creat .= "</creator>\n"; |
|
| 1147 |
} |
|
| 1148 |
|
|
| 1149 |
if ($FORM::cfg ne 'knb') {
|
|
| 1150 |
$creat .= "<creator>\n"; |
|
| 1151 |
$creat .= "<organizationName>".normalize($organization)."</organizationName>\n"; |
|
| 1152 |
$creat .= "</creator>\n"; |
|
| 1153 |
} |
|
| 1154 |
|
|
| 1137 | 1155 |
$creat .= $dso; |
| 1138 | 1156 |
|
| 1139 | 1157 |
if ($FORM::useOrigAddress) {
|
| ... | ... | |
| 1262 | 1280 |
} |
| 1263 | 1281 |
} |
| 1264 | 1282 |
|
| 1265 |
if ($FORM::cfg eq 'nceas') {
|
|
| 1266 |
for (my $i = 0; $i < scalar(@FORM::wg); $i++) {
|
|
| 1267 |
$creat .= "<creator>\n"; |
|
| 1268 |
$creat .= "<organizationName>".normalize($FORM::wg[$i])."</organizationName>\n"; |
|
| 1269 |
$creat .= "</creator>\n"; |
|
| 1270 |
} |
|
| 1271 |
} else {
|
|
| 1272 |
$creat .= "<creator>\n"; |
|
| 1273 |
$creat .= "<organizationName>".normalize($FORM::site)."</organizationName>\n"; |
|
| 1274 |
$creat .= "</creator>\n"; |
|
| 1275 |
} |
|
| 1276 |
|
|
| 1277 |
if ($FORM::cfg ne 'knb') {
|
|
| 1278 |
$creat .= "<creator>\n"; |
|
| 1279 |
$creat .= "<organizationName>".normalize($organization)."</organizationName>\n"; |
|
| 1280 |
$creat .= "</creator>\n"; |
|
| 1281 |
} |
|
| 1282 |
|
|
| 1283 | 1283 |
$doc .= $creat; |
| 1284 | 1284 |
$doc .= $metaP; |
| 1285 | 1285 |
$doc .= $apart; |
Also available in: Unified diff
made changes so that organization name for the site or project is entered before
any other creater.