Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv7353/lib/HTTP/WebTest/Recorder
Modified Files:
Actions.pm
Log Message:
Move some contoller fields into its temporary heap
Index: Actions.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Actions.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Actions.pm 22 Apr 2003 21:43:48 -0000 1.7
--- Actions.pm 22 Apr 2003 22:07:35 -0000 1.8
***************
*** 22,27 ****
my $content = '';
my $template = create_template();
! if($template->process($controller->view, $controller->heap, \$content)) {
$controller->heap->{response}->header(Content_Type => 'text/html');
$controller->heap->{response}->content($content);
--- 22,28 ----
my $content = '';
my $template = create_template();
+ my $view = $controller->heap->{view};
! if($template->process($view, $controller->heap, \$content)) {
$controller->heap->{response}->header(Content_Type => 'text/html');
$controller->heap->{response}->content($content);
***************
*** 52,56 ****
my $controller = shift;
! my $enable = $controller->cgi->param('enable');
$controller->recorder->is_recording($enable);
--- 53,57 ----
my $controller = shift;
! my $enable = $controller->heap->{cgi}->param('enable');
$controller->recorder->is_recording($enable);
***************
*** 70,74 ****
my $controller = shift;
! my $num = $controller->cgi->param('num');
$controller->heap->{num} = $num;
--- 71,75 ----
my $controller = shift;
! my $num = $controller->heap->{cgi}->param('num');
$controller->heap->{num} = $num;
***************
*** 81,86 ****
my $controller = shift;
! my $num = $controller->cgi->param('num');
! my $view = $controller->cgi->param('view');
my $test = $controller->recorder->tests->[$num];
--- 82,87 ----
my $controller = shift;
! my $num = $controller->heap->{cgi}->param('num');
! my $view = $controller->heap->{cgi}->param('view');
my $test = $controller->recorder->tests->[$num];
***************
*** 112,116 ****
my $controller = shift;
! my $num = $controller->cgi->param('num');
splice @{$controller->recorder->tests}, $num, 1;
--- 113,117 ----
my $controller = shift;
! my $num = $controller->heap->{cgi}->param('num');
splice @{$controller->recorder->tests}, $num, 1;
***************
*** 122,128 ****
my $controller = shift;
! my $type = $controller->cgi->param('type');
! my $field = $controller->cgi->param('field');
! my $value = $controller->cgi->param('value');
if(not defined $value or $value eq '') {
--- 123,129 ----
my $controller = shift;
! my $type = $controller->heap->{cgi}->param('type');
! my $field = $controller->heap->{cgi}->param('field');
! my $value = $controller->heap->{cgi}->param('value');
if(not defined $value or $value eq '') {
|