use Compress::Zlib;
use Date::Format qw(time2str);
use Cmates::Config qw( %CONFIG );
use Cmates::Sales qw( %S );
use Cmates::Group;
use Cmates::Circle;
use Cmates::MessageBoard::Topic;
use Cmates::MessageBoard::Thread;
use Cmates::Group::Permission;
use Cmates::MessageBoard;
use Cmates::Group qw(:org_types :sub_types);
use Data::Dumper;
use strict;
my $is_compressed = 0;
#if ($ENV{HTTP_ACCEPT_ENCODING} =~ /gzip/) {
# $is_compressed = 1;
# $forge->header( Content_encoding => "gzip" );
# $forge->buffer( 1 );
#}
my($cgi, $scribe) = @_;
my $group_id = $cgi->param('group_id') or die "no group_id";
my $community_type = $cgi->param('type');
my $group = Cmates::Group::fetch($group_id) or die "group_id: $group_id does not exist";
my $circle = Cmates::Circle::fetch($group->{'org_id'});
my $expires = $scribe->{expires};
my $tab_type;
my $org_type = $group->{org_type};
my $sub_type = $group->{sub_type};
if ( $org_type eq 'S') {
if($sub_type == 1) {
$tab_type = 'school';
} else {
$tab_type = 'college';
}
} elsif ($org_type eq 'W') {
$tab_type = 'work';
} elsif ($org_type eq 'U') {
$tab_type = 'military';
} elsif ($org_type eq 'C') {
if($sub_type == 1) {
$tab_type = 'reunion';
} elsif($sub_type == 2) {
$tab_type = 'interestgroup';
} elsif($sub_type == 3) {
$tab_type = 'privategroup';
} elsif($sub_type == 4) {
$tab_type = 'privategroup';
}
}
return $forge->redirect("$CONFIG{URL_HOME}/cmo/mboard/mboardredirect.jsp?communityID=$group->{org_id}&tabType=$tab_type");
my $top_topics = Cmates::MessageBoard::top_topics($group_id, $scribe->{registration_id}, $scribe->{su});
my $site = 'groups';
# They want to sell ads based on specific interest groups, so we want to
# change the campaign value to reflect those when they come up.
my $campaign;
my %groupCampaigns = (
'Military Memories' => {
'_default' => 'Groups/Military',
},
'Military Discussions' => {
'_default' => 'Groups/Military',
},
'School Days' => {
'_default' => 'Groups/School',
},
'Timely Topics' => {
'_default' => 'Groups/Timely',
},
'Arts & Entertainment' => {
'_default' => 'Groups/ArtsEntertainment',
'TV/Radio' => 'Groups/ArtsEntertainment/TVRadio',
'Music' => 'Groups/ArtsEntertainment/Music',
'Celebrities' => 'Groups/ArtsEntertainment/Celebrities',
'Movies' => 'Groups/ArtsEntertainment/Movies',
'Books' => 'Groups/ArtsEntertainment/Books',
},
'College Days' => {
'_default' => 'Groups/College',
'Sports' => 'Groups/College/Sports',
},
'Family Life' => {
'_default' => 'Groups/FamilyLife',
'Parenting' => 'Groups/FamilyLife/Parenting',
'Pets' => 'Groups/FamilyLife/Pets',
},
'Hobbies & Leisure' => {
'_default' => 'Groups/HobbiesLeisure',
'Science & Nature' => 'Groups/HobbiesLeisure/ScienceNature',
'Beer & Wine' => 'Groups/HobbiesLeisure/BeerWine',
'Automotive' => 'Groups/HobbiesLeisure/Automobiles',
'Travel' => 'Groups/HobbiesLeisure/Travel',
'Cooking' => 'Groups/HobbiesLeisure/Cooking',
'Gardening' => 'Groups/HobbiesLeisure/Gardening',
'House and Home Improvement' => 'Groups/HobbiesLeisure/HomeImprovement',
'Photography' => 'Groups/HobbiesLeisure/Photography',
'Health and Wellness' => 'Groups/HobbiesLeisure/HealthWellness',
'Computing' => 'Groups/HobbiesLeisure/Computing',
'Personal Finance' => 'Groups/HobbiesLeisure/PersonalFinance',
'Holiday Fun' => 'Groups/HobbiesLeisure/Holidays',
'Relationships' => 'Groups/HobbiesLeisure/Relationships',
},
'In the Workplace' => {
'_default' => 'Groups/Workplace',
'Job Search' => 'Groups/Workplace/Jobsearch',
'Professional Development' => 'Groups/Workplace/ProfDev',
},
'Sports' => {
'_default' => 'Groups/Sports',
'Baseball' => 'Groups/Sports/Baseball',
'Football' => 'Groups/Sports/Football',
'Basketball' => 'Groups/Sports/Basketball',
'Golf' => 'Groups/Sports/Golf',
},
'Travel' => {
'_default' => 'Groups/Travel',
'International Travel' => 'Groups/Travel/International',
'Cruises' => 'Groups/Travel/Cruises',
},
);
if ($groupCampaigns{$circle->{circle_category}}->{$circle->{name}}) {
$campaign = $groupCampaigns{$circle->{circle_category}}->{$circle->{name}};
} else {
$campaign = $groupCampaigns{$circle->{circle_category}}->{_default};
}
$campaign ||= 'messageboard';
my $can_create = Cmates::Group::Permission->can_create($group);
my $hostonly_topic_id;
my $hostonly_thread_id;
if( $scribe->{su} ){
$hostonly_topic_id = Cmates::MessageBoard::hostonly_topic_id($group->{group_id});
$hostonly_thread_id =
Cmates::MessageBoard::hostonly_moved_thread_id($group->{group_id});
}
my $encoded_group = $forge->encode_entities($group->{name});
# Set S numbers depending on site we're in
my %GROUP_S_MAP = (
CIRCLES() => {
REUNION() => {
start_new_link => '',
},
INTEREST_GROUP() => {
start_new_link => '12515',
},
PRIVATE_GROUP_AUTO() => {
start_new_link => '',
},
PRIVATE_GROUP() => {
start_new_link => '',
},
},
SCHOOLS() => {
K_12() => {
start_new_link => '12358',
},
COLLEGE() => {
start_new_link => '12360',
},
},
WORK() => {
start_new_link => '12362',
},
MILITARY() => {
start_new_link => '12364',
},
GENERAL() => {
start_new_link => '',
}
);
my $s_group = $GROUP_S_MAP{$group->{org_type}}{$group->{sub_type}} || $GROUP_S_MAP{$group->{org_type}};
my $s_number = $s_group->{start_new_link};
#
|
<% $forge->include('title',"My $encoded_group Group") %>
<% $forge->include('flat_nav', params => $group, page => 'messageboard') %> $encoded_group Message Board <% if (!$scribe->{member}) { %> Put faces to these names. See member photos and more when you upgrade to Gold membership. As low as $2.46/month. <% } %> <% if ($can_create) { %>  <% } %>
|
<% $forge->include('ads/adblock', campaign => $campaign) %> <% $forge->include('segment/right_col/mboards', $scribe) %> | ||||||||||||||||||||||||||||||
