[Openinteract-commits] CVS: OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Action DeliciousTags.pm,1.1,1.2

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

Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13626/OpenInteract2/Action

Modified Files:
	DeliciousTags.pm 
Log Message:
add full action for displaying tagged objects



Index: DeliciousTags.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Action/DeliciousTags.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DeliciousTags.pm	24 Oct 2004 16:40:08 -0000	1.1
--- DeliciousTags.pm	25 Nov 2004 03:55:05 -0000	1.2
***************
*** 31,42 ****
  sub tagged_objects {
      my ( $self ) = @_;
      my $request = CTX->request;
      my $tag = $self->param( 'tag' ) || $request->param( 'tag' );
      my %params = ( tag => $tag );
      if ( $tag ) {
-         $self->param_add(
-             error_msg => "Must specify 'tag' to find related objects" );
-     }
-     else {
          my $tag_class = CTX->lookup_object( 'delicious_tag' );
          my $object_refs = $tag_class->fetch_group({
--- 31,48 ----
  sub tagged_objects {
      my ( $self ) = @_;
+     return $self->generate_content( $self->_generate_tagged_objects_params );
+ }
+ 
+ sub show_tagged_objects {
+     my ( $self ) = @_;
+     return $self->generate_content( $self->_generate_tagged_objects_params );
+ }
+ 
+ sub _generate_tagged_objects_params {
+     my ( $self ) = @_;
      my $request = CTX->request;
      my $tag = $self->param( 'tag' ) || $request->param( 'tag' );
      my %params = ( tag => $tag );
      if ( $tag ) {
          my $tag_class = CTX->lookup_object( 'delicious_tag' );
          my $object_refs = $tag_class->fetch_group({
***************
*** 46,50 ****
          $params{tag_info} = $object_refs;
      }
!     return $self->generate_content( \%params );
  }
  
--- 52,60 ----
          $params{tag_info} = $object_refs;
      }
!     else {
!         $self->param_add(
!             error_msg => "Must specify 'tag' to find related objects" );
!     }
!     return \%params;
  }