http-webtest-commits

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv27678

Modified Files:
	Actions.pm 
Log Message:
Added delete_action()


Index: Actions.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Actions.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Actions.pm	2 Feb 2003 17:27:41 -0000	1.4
--- Actions.pm	4 Apr 2003 21:06:46 -0000	1.5
***************
*** 8,12 ****
  
  @EXPORT_OK = qw(default_action enable_action list_action
!                 request_action response_content_action wtscript_action);
  %EXPORT_TAGS = (all => [@EXPORT_OK]);
  
--- 8,13 ----
  
  @EXPORT_OK = qw(default_action enable_action list_action
!                 request_action response_content_action
!                 delete_action wtscript_action);
  %EXPORT_TAGS = (all => [@EXPORT_OK]);
  
***************
*** 70,73 ****
--- 71,83 ----
      return(default_action($controller),
             wtscript => $wtscript);
+ }
+ 
+ sub delete_action {
+     my $controller = shift;
+ 
+     my $num = $controller->cgi->param('num');
+     splice @{$controller->recorder->tests}, $num, 1;
+ 
+     $controller->redirect('list');
  }