Revision 1992
Added by Matt Jones almost 21 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 304 | 304 |
my $errorMessage = ""; |
| 305 | 305 |
my $response = $metacat->login($dname, $userPass); |
| 306 | 306 |
if (! $response) {
|
| 307 |
#print $metacat->getMessage(); |
|
| 308 |
#die "failed during login\n"; |
|
| 309 |
#print STDERR "Login response is: $metacat->getMessage()\n"; |
|
| 310 | 307 |
push(@errorMessages, $metacat->getMessage()); |
| 311 | 308 |
push(@errorMessages, "Failed during login.\n"); |
| 312 | 309 |
} |
| ... | ... | |
| 321 | 318 |
|
| 322 | 319 |
$xmldoc =~ s/docid/$docid/; |
| 323 | 320 |
|
| 324 |
my $testFile = "/tmp/test.xml"; |
|
| 325 |
open (TFILE,">$testFile") || die ("Cant open xml file...\n");
|
|
| 326 |
print TFILE $xmldoc; |
|
| 327 |
close(TFILE); |
|
| 321 |
#my $testFile = "/tmp/test.xml";
|
|
| 322 |
#open (TFILE,">$testFile") || die ("Cant open xml file...\n");
|
|
| 323 |
#print TFILE $xmldoc;
|
|
| 324 |
#close(TFILE);
|
|
| 328 | 325 |
|
| 329 | 326 |
$notunique = insertMetadata($xmldoc, $docid); |
| 330 | 327 |
# if (!$notunique) {
|
Also available in: Unified diff
Removed some debugging test code that isn't needed.