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,
|
