[stp-svn] SF.net SVN: stp: [318] trunk/Test-Sut/lib/Test/Admin/Result.pm

[<jud...@us...>]

Revision: 318
Author:   judith_osdl
Date:     2006-07-20 14:49:52 -0700 (Thu, 20 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/stp/?rev=318&view=rev

Log Message:
-----------
Fix the setTestRequest call arguments.  Needed login, password and fixed order.

Modified Paths:
--------------
    trunk/Test-Sut/lib/Test/Admin/Result.pm
Modified: trunk/Test-Sut/lib/Test/Admin/Result.pm
===================================================================
--- trunk/Test-Sut/lib/Test/Admin/Result.pm	2006-07-20 21:29:10 UTC (rev 317)
+++ trunk/Test-Sut/lib/Test/Admin/Result.pm	2006-07-20 21:49:52 UTC (rev 318)
@@ -57,6 +57,8 @@
     $self->{'log'} = new Test::Sut::Util::Log( $self->{ 'config' }->getConfigParam( 'log_filename' ), $self->{ 'config' }->getConfigParam( 'log_level' ) );
     # Use Secured RPC, second option is a '1'.
     $self->{'asp_proxy'} = $self->{'config'}->getConfigParam( 'asp_proxy' );
+    $self->{'asp_login'} = $self->{'config'}->getConfigParam( 'asp_login' );
+    $self->{'asp_pass'} = $self->{'config'}->getConfigParam( 'asp_pass' );
     $self->{'resultpath'} = $self->{'config'}->getConfigParam( 'resultpath' );
     $self->{'default_sender'} = $self->{'config'}->getConfigParam( 'default_sender' );
     $self->{'rpc'} = new Test::Transport::Wsdl( $self->{'asp_proxy'}, 1 );
@@ -197,7 +199,7 @@
         close FH;
     }
     # Update test_request_status
-    $self->{'rpc'}->doASPAction( 'SetTestRequestStatus', $self->{ 'test_request_status' }, $self->{ 'test_request_id' } );
+    $self->{'rpc'}->doASPAction( 'SetTestRequestStatus', $self->{ 'asp_login' }, $self->{ 'asp_pass' }, $self->{ 'test_request_id' }, $self->{ 'test_request_status' } );
     if ( $self->{ 'test_request_status' } =~ m/Failed/i ){
          $self->{ 'integration_status' } = 0;
     } else {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.