Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32166/lib/OpenInteract2/Manage/Website
Modified Files:
ListActions.pm
Log Message:
add more interesting information to the status message; also include the action package in the parameters...
Index: ListActions.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website/ListActions.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** ListActions.pm 17 Mar 2005 14:58:04 -0000 1.12
--- ListActions.pm 3 Jul 2005 20:10:25 -0000 1.13
***************
*** 32,44 ****
$urls = [ 'n/a' ];
}
$self->_ok(
'OpenInteract2 Action',
! "Action $name mapped to $urls->[0]",
! url => $urls,
! name => $name,
! type => $action_info->{type},
! class => $action_info->{class},
! method => $action_info->{method},
! template => $action_info->{template}
);
}
--- 32,47 ----
$urls = [ 'n/a' ];
}
+ my $package_name = $action->package_name;
+ my $url_desc = '[' . join( '] [', @{ $urls } ) . ']';
$self->_ok(
'OpenInteract2 Action',
! "Action $name in package $package_name mapped to URLs $url_desc",
! url => $urls,
! name => $name,
! type => $action_info->{type},
! class => $action_info->{class},
! method => $action_info->{method},
! template => $action_info->{template},
! package => $package_name,
);
}
***************
*** 67,71 ****
my @status = $task->execute;
foreach my $s ( @status ) {
! print "Action [[$s->{name}]]\n",
"Type: $s->{type}\n",
"Class: $s->{class}\n",
--- 70,74 ----
my @status = $task->execute;
foreach my $s ( @status ) {
! print "Action [[$s->{name}]] in package $s->{package}\n",
"Type: $s->{type}\n",
"Class: $s->{class}\n",
***************
*** 88,91 ****
--- 91,98 ----
Name of the action
+ =item B<package>
+
+ OpenInteract2 package action came from
+
=item B<url>
|
