[Openinteract-commits] CVS: OpenInteract/pkg/object_activity/OpenInteract/Handler ObjectActivity.pm,NONE,1.1

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

Update of /cvsroot/openinteract/OpenInteract/pkg/object_activity/OpenInteract/Handler
In directory usw-pr-cvs1:/tmp/cvs-serv26763/OpenInteract/Handler

Added Files:
	ObjectActivity.pm 
Log Message:
added module to browse through object activity logs


--- NEW FILE: ObjectActivity.pm ---
package OpenInteract::Handler::ObjectActivity;

# $Id: ObjectActivity.pm,v 1.1 2001/10/18 01:38:27 lachoy Exp $

use strict;
use OpenInteract::Handler::GenericDispatcher qw( DEFAULT_SECURITY_KEY );
use SPOPS::Secure qw( :level );
use SPOPS::SQLInterface;

@OpenInteract::Handler::ObjectActivity::ISA     = qw( 
   OpenInteract::Handler::GenericDispatcher  SPOPS::Secure 
);
$OpenInteract::Handler::ObjectActivity::VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
$OpenInteract::Handler::ObjectActivity::author            = 'ch...@cw...';
$OpenInteract::Handler::ObjectActivity::default_method    = 'search_form';
@OpenInteract::Handler::ObjectActivity::forbidden_methods = ();
%OpenInteract::Handler::ObjectActivity::security          = ( DEFAULT_SECURITY_KEY() => SEC_LEVEL_READ );

sub search_form {
    my ( $class, $p ) = @_;
    my $R = OpenInteract::Request->instance;
    my %params = ();
    my $CONFIG = $R->CONFIG;
    foreach my $object_key ( sort keys %{ $CONFIG->{SPOPS} } ) {
	push @{ $params{class_name_list} }, $object_key;
	push @{ $params{class_list} }, $CONFIG->{SPOPS}{ $object_key }{class};
    }
    return $R->template->handler( {}, \%params,
				  { name => 'object_activity::search_form' } );
}

sub search {
    my ( $class, $p ) = @_;
    my $R        = OpenInteract::Request->instance;
    my %params = ();
    require OpenInteract::ObjectActivity;
    $params{activity_list} = OpenInteract::ObjectActivity->add_object_information(
                                                 OpenInteract::ObjectActivity->fetch_activity( $p ) );
    $R->{page}{title} = 'Object Activity Search Results';
    return $R->template->handler( {}, \%params, 
				  { name => 'object_activity::search_results' } );
}

1;