Project

General

Profile

Revision 1992

Added by Matt Jones over 17 years ago

Removed some debugging test code that isn't needed.

View differences:

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