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

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

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

Added Files:
	DeliciousTags.pm 
Log Message:
intial import of delicious_tags package

--- NEW FILE: DeliciousTags.pm ---
package OpenInteract2::Action::DeliciousTags;

# $Id: DeliciousTags.pm,v 1.1 2004/10/24 16:40:08 lachoy Exp $

use strict;
use base qw( OpenInteract2::Action );
use Log::Log4perl            qw( get_logger );
use OpenInteract2::Constants qw( :log );
use OpenInteract2::Context   qw( CTX );
use OpenInteract2::DeliciousTaggableObject;

$OpenInteract2::Action::DeliciousTags::VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);

sub related_tags {
    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,
                    { name => 'delicious_tags::related_tags' });
}

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({
            where => 'tag = ?',
            value => [ $tag ],
        });
        $params{tag_info} = $object_refs;
    }
    return $self->generate_content( \%params );
}

1;