Revision 8820
Added by Lauren Walker almost 10 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 446 | 446 |
} |
| 447 | 447 |
} |
| 448 | 448 |
|
| 449 |
open my $log, ">>", "log.txt"; |
|
| 450 |
|
|
| 451 | 449 |
my $docid; |
| 452 | 450 |
my $scope = $FORM::scope; |
| 453 | 451 |
|
| 454 |
print $log "scope: $scope\n"; |
|
| 455 |
print $log "FORM:scope: $FORM::scope\n"; |
|
| 456 |
|
|
| 457 | 452 |
if(($scope eq "") || (!$scope)){
|
| 458 | 453 |
$scope = $config->{'scope'};
|
| 459 |
print $log "using config scope\n"; |
|
| 460 | 454 |
} |
| 461 | 455 |
|
| 462 | 456 |
# Create a metacat object |
| ... | ... | |
| 518 | 512 |
|
| 519 | 513 |
#Create the docid |
| 520 | 514 |
$docid = newDocid($scope, $metacat); |
| 521 |
|
|
| 522 |
print $log "created docid: $docid\n scope is: $scope\n"; |
|
| 523 |
|
|
| 515 |
|
|
| 524 | 516 |
$xmldocWithDocID =~ s/docid/$docid/; |
| 525 | 517 |
debugDoc($xmldocWithDocID); |
| 526 | 518 |
$docStatus = insertMetadata( $xmldocWithDocID, $docid ); |
Also available in: Unified diff
Login automatically via curl rather than manually entering the cookie info for the registry test script