Changeset 32930 for trunk/ippToPsps

Timestamp:

Dec 12, 2011, 5:09:28 PM (15 years ago)

Author:

rhenders

Message:

name -> Name

File:

• trunk/ippToPsps/perl/deleteFromDXLayer.pl (modified) (3 diffs)

trunk/ippToPsps/perl/deleteFromDXLayer.pl

@@ -19 +19 @@
 
 my $dxWebServiceUrl = "http://lsb01.psps.ifa.hawaii.edu/cgi-bin/dxlayer/dxwebservice.cgi";
+#my $dxWebServiceUrl = "http://166.122.172.121/cgi-bin/dxlayer/dxwebservice.cgi";
 my $ua = LWP::UserAgent->new;
 $ua->timeout(15);
@@ -28 +29 @@
 
 my $paramNode = $doc->createElement('Param');
-$paramNode->setAttribute('name', "BatchID"); # default FirstRow is 1
+$paramNode->setAttribute('Name', "BatchID"); # default FirstRow is 1
 my $text=XML::LibXML::Text->new($batchName);
 $paramNode->appendChild($text); #append
@@ -35 +36 @@
 my $xmlParams = $doc->toString; 
 
+print  $xmlParams;
 
 my $response = $ua->post($dxWebServiceUrl,