[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Manage/Website ListActions.pm,1.12,1.13

[Chris W. <la...@us...>]

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>