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

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

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

Modified Files:
	DeliciousTags.pm 
Log Message:
OIN-103: fix related_tags_box to not blow up when it does not get an
object; also add its action and other actions to docs



Index: DeliciousTags.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Action/DeliciousTags.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DeliciousTags.pm	25 Nov 2004 03:55:05 -0000	1.2
--- DeliciousTags.pm	25 Nov 2004 13:50:32 -0000	1.3
***************
*** 15,27 ****
      my ( $self ) = @_;
      my $object = $self->param( 'object' ) || $self->param( 'c_object' );
!     my $type = $object->CONFIG->{object_name};
!     my $id   = $object->id;
!     my $related_with_count = OpenInteract2::DeliciousTaggableObject
!                                  ->c_fetch_my_tags_with_count( $type, $id );
!     my %params = (
!         object        => $object,
!         tag_and_count => $related_with_count,
!     );
! 
      return $self->generate_content(
                      \%params,
--- 15,29 ----
      my ( $self ) = @_;
      my $object = $self->param( 'object' ) || $self->param( 'c_object' );
!     my %params = ();
!     if ( $object ) {
!         my $type = $object->CONFIG->{object_name};
!         my $id   = $object->id;
!         my $related_with_count = OpenInteract2::DeliciousTaggableObject
!                                      ->c_fetch_my_tags_with_count( $type, $id );
!         %params = (
!             object        => $object,
!             tag_and_count => $related_with_count,
!         );
!     }
      return $self->generate_content(
                      \%params,