Project

General

Profile

Revision 2049

Added by sgarg over 17 years ago

made changes so that organization name for the site or project is entered before
any other creater.

View differences:

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