4f68a0933c
fixed the resizable text area with IE problem fixed the ad space with IE problem merged the 7.2.0 and 7.1.4 change logs
398 lines
12 KiB
Perl
398 lines
12 KiB
Perl
package WebGUI::Operation::AdSpace;
|
|
|
|
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use strict;
|
|
use WebGUI::AdSpace;
|
|
use WebGUI::AdSpace::Ad;
|
|
use WebGUI::AdminConsole;
|
|
use WebGUI::International;
|
|
use WebGUI::HTMLForm;
|
|
use WebGUI::Storage::Image;
|
|
|
|
=head1 NAME
|
|
|
|
Package WebGUI::Operation::AdSpace
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Operation handler for advertising functions.
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_clickAd ( )
|
|
|
|
Handles a click on an advertisement.
|
|
|
|
=cut
|
|
|
|
sub www_clickAd {
|
|
my $session = shift;
|
|
my $id = $session->form->param("id");
|
|
return undef unless $id;
|
|
my $url = WebGUI::AdSpace->countClick($session, $id);
|
|
$session->http->setRedirect($url);
|
|
return "Redirecting to $url";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_deleteAd ( )
|
|
|
|
Deletes an ad.
|
|
|
|
=cut
|
|
|
|
sub www_deleteAd {
|
|
my $session = shift;
|
|
return $session->privilege->insufficient unless ($session->user->isInGroup("pbgroup000000000000017"));
|
|
WebGUI::AdSpace::Ad->new($session, $session->form->param("adId"))->delete;
|
|
return www_editAdSpace($session);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_deleteAdSpace ( )
|
|
|
|
Deletes an ad space.
|
|
|
|
=cut
|
|
|
|
sub www_deleteAdSpace {
|
|
my $session = shift;
|
|
return $session->privilege->insufficient unless ($session->user->isInGroup("pbgroup000000000000017"));
|
|
WebGUI::AdSpace->new($session, $session->form->param("adSpaceId"))->delete;
|
|
return www_manageAdSpaces($session);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_editAd ( )
|
|
|
|
Displays form for editing an ad.
|
|
|
|
=cut
|
|
|
|
sub www_editAd {
|
|
my $session = shift;
|
|
return $session->privilege->insufficient unless ($session->user->isInGroup("pbgroup000000000000017"));
|
|
my $id = $session->form->param("adId") || "new";
|
|
my $ac = WebGUI::AdminConsole->new($session,"adSpace");
|
|
my $i18n = WebGUI::International->new($session,"AdSpace");
|
|
my $ad = WebGUI::AdSpace::Ad->new($session,$id);
|
|
$ac->addSubmenuItem($session->url->page("op=editAdSpace;adSpaceId=".$session->form->param("adSpaceId")), $i18n->get("edit this ad space"));
|
|
$ac->addSubmenuItem($session->url->page("op=editAdSpace"), $i18n->get("add ad space"));
|
|
$ac->addSubmenuItem($session->url->page("op=manageAdSpaces"), $i18n->get("manage ad spaces"));
|
|
my $f = WebGUI::HTMLForm->new($session);
|
|
$f->submit;
|
|
$f->hidden(name=>"adId", value=>$id);
|
|
$f->hidden(name=>"adSpaceId", value=> $session->form->param("adSpaceId"));
|
|
$f->readOnly(label=>$i18n->get("ad id"), value=>$id);
|
|
$f->hidden(name=>"op", value=>"editAdSave");
|
|
my $value = $ad->get("isActive") if defined $ad;
|
|
$f->yesNo(
|
|
name=>"isActive",
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("is active help"),
|
|
label=>$i18n->get("is active")
|
|
);
|
|
$value = $ad->get("title") if defined $ad;
|
|
$f->text(
|
|
name=>"title",
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("title help"),
|
|
label=>$i18n->get("title")
|
|
);
|
|
$value = $ad->get("url") if defined $ad;
|
|
$f->url(
|
|
name=>"url",
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("url help"),
|
|
label=>$i18n->get("url")
|
|
);
|
|
$value = $ad->get("priority") if defined $ad;
|
|
$f->integer(
|
|
name=>"priority",
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("priority help"),
|
|
label=>$i18n->get("priority"),
|
|
);
|
|
$value = $ad->get("impressionsBought") if defined $ad;
|
|
$f->integer(
|
|
name=>"impressionsBought",
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("impressions bought help"),
|
|
label=>$i18n->get("impressions bought"),
|
|
subtext=> defined $ad ? $i18n->get("used").": ".$ad->get("impressions") : undef
|
|
);
|
|
$value = $ad->get("clicksBought") if defined $ad;
|
|
$f->integer(
|
|
name=>"clicksBought",
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("clicks bought help"),
|
|
label=>$i18n->get("clicks bought"),
|
|
subtext=> defined $ad ? $i18n->get("used").": ".$ad->get("clicks") : undef
|
|
);
|
|
$value = $ad->get("type") if defined $ad;
|
|
$f->selectBox(
|
|
name=>"type",
|
|
value=>$value,
|
|
options=>{
|
|
text=>$i18n->get("text"),
|
|
image=>$i18n->get("image"),
|
|
rich=>$i18n->get("rich"),
|
|
},
|
|
defaultValue=>"text",
|
|
hoverHelp => $i18n->get("type help"),
|
|
label=>$i18n->get("type")
|
|
);
|
|
$f->fieldSetStart($i18n->get("text"));
|
|
$value = $ad->get("adText") if defined $ad;
|
|
$f->text(
|
|
name=>"adText",
|
|
size=>60,
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("ad text help"),
|
|
label=>$i18n->get("ad text")
|
|
);
|
|
$value = $ad->get("borderColor") if defined $ad;
|
|
$f->color(
|
|
name=>"borderColor",
|
|
value=>$value,
|
|
defaultValue=>"#000000",
|
|
hoverHelp => $i18n->get("border color help"),
|
|
label=>$i18n->get("border color")
|
|
);
|
|
$value = $ad->get("textColor") if defined $ad;
|
|
$f->color(
|
|
name=>"textColor",
|
|
value=>$value,
|
|
defaultValue=>"#000000",
|
|
hoverHelp => $i18n->get("text color help"),
|
|
label=>$i18n->get("text color")
|
|
);
|
|
$value = $ad->get("backgroundColor") if defined $ad;
|
|
$f->color(
|
|
name=>"backgroundColor",
|
|
value=>$value,
|
|
defaultValue=>"#ffffff",
|
|
hoverHelp => $i18n->get("background color help"),
|
|
label=>$i18n->get("background color")
|
|
);
|
|
$f->fieldSetEnd;
|
|
$f->fieldSetStart($i18n->get("image"));
|
|
$f->image(
|
|
label=>$i18n->get("image"),
|
|
hoverHelp=>$i18n->get("image help"),
|
|
name=>"image"
|
|
);
|
|
if (defined $ad && $ad->get("storageId")) {
|
|
my $storage = WebGUI::Storage::Image->get($session, $ad->get("storageId"));
|
|
$f->readOnly(value=>'<img src="'.$storage->getUrl($storage->getFiles->[0]).'" style="border: 0px;" />');
|
|
}
|
|
$f->fieldSetEnd;
|
|
$f->fieldSetStart($i18n->get("rich"));
|
|
$value = $ad->get("richMedia") if defined $ad;
|
|
$f->codearea(
|
|
name=>"richMedia",
|
|
label=>$i18n->get("rich"),
|
|
value=>$value,
|
|
hoverHelp=>$i18n->get("rich help")
|
|
);
|
|
$f->fieldSetEnd;
|
|
$f->submit;
|
|
$ac->setHelp('edit ad', 'AdSpace');
|
|
$ac->render($f->print, $i18n->get("edit advertisement"));
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_editAdSave ( )
|
|
|
|
The save method for www_editAd()
|
|
|
|
=cut
|
|
|
|
sub www_editAdSave {
|
|
my $session = shift;
|
|
return $session->privilege->insufficient unless ($session->user->isInGroup("pbgroup000000000000017"));
|
|
my %properties = (
|
|
type=>$session->form->process("type", "selectBox"),
|
|
url=>$session->form->process("url", "url"),
|
|
isActive=>$session->form->process("isActive", "yesNo"),
|
|
textColor=>$session->form->process("textColor", "color"),
|
|
backgroundColor=>$session->form->process("backgroundColor", "color"),
|
|
borderColor=>$session->form->process("borderColor", "color"),
|
|
title=>$session->form->process("title", "text"),
|
|
adText=>$session->form->process("adText", "text"),
|
|
richMedia=>$session->form->process("richMedia", "codearea"),
|
|
priority=>$session->form->process("priority", "integer"),
|
|
impressionsBought=>$session->form->process("impressionsBought", "integer"),
|
|
clicksBought=>$session->form->process("clicksBought", "integer"),
|
|
);
|
|
my $storageId = $session->form->process("image","image");
|
|
$properties{storageId} = $storageId if (defined $storageId);
|
|
if ($session->form->param("adId") eq "new") {
|
|
WebGUI::AdSpace::Ad->create($session, $session->form->param("adSpaceId"), \%properties);
|
|
} else {
|
|
my $ad = WebGUI::AdSpace::Ad->new($session, $session->form->param("adId"));
|
|
if (defined $storageId && $ad->get("storageId")) {
|
|
WebGUI::Storage::Image->get($session, $ad->get("storageId"))->delete;
|
|
}
|
|
$ad->set(\%properties);
|
|
}
|
|
return www_editAdSpace($session);
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_editAdSpace ( )
|
|
|
|
Edit or add an ad space form.
|
|
|
|
=cut
|
|
|
|
sub www_editAdSpace {
|
|
my $session = shift;
|
|
my $adSpace = shift;
|
|
return $session->privilege->insufficient unless ($session->user->isInGroup("pbgroup000000000000017"));
|
|
my $id;
|
|
my $i18n = WebGUI::International->new($session,"AdSpace");
|
|
my $ac = WebGUI::AdminConsole->new($session,"adSpace");
|
|
if (defined $adSpace) {
|
|
$id = $adSpace->getId;
|
|
} else {
|
|
$id = $session->form->param("adSpaceId") || "new";
|
|
$adSpace = WebGUI::AdSpace->new($session, $id);
|
|
}
|
|
$ac->addSubmenuItem($session->url->page("op=editAd;adSpaceId=".$id), $i18n->get("add an ad")) if defined $adSpace;
|
|
$ac->addSubmenuItem($session->url->page("op=manageAdSpaces"), $i18n->get("manage ad spaces"));
|
|
my $f = WebGUI::HTMLForm->new($session);
|
|
$f->submit;
|
|
$f->hidden(name=>"adSpaceId", value=>$id);
|
|
$f->readOnly(label=>$i18n->get("ad space id"), value=>$id);
|
|
$f->hidden(name=>"op", value=>"editAdSpaceSave");
|
|
my $value = $adSpace->get("name") if defined $adSpace;
|
|
$f->text(
|
|
name=>"name",
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("name help"),
|
|
label=>$i18n->get("name")
|
|
);
|
|
$value = $adSpace->get("title") if defined $adSpace;
|
|
$f->text(
|
|
name=>"title",
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("title help"),
|
|
label=>$i18n->get("title")
|
|
);
|
|
$value = $adSpace->get("description") if defined $adSpace;
|
|
$f->textarea(
|
|
name=>"description",
|
|
value=>$value,
|
|
hoverHelp => $i18n->get("description help"),
|
|
label=>$i18n->get("description")
|
|
);
|
|
$value = $adSpace->get("width") if defined $adSpace;
|
|
$f->integer(
|
|
name=>"width",
|
|
value=>$value,
|
|
defaultValue=>468,
|
|
hoverHelp => $i18n->get("width help"),
|
|
label=>$i18n->get("width")
|
|
);
|
|
$value = $adSpace->get("height") if defined $adSpace;
|
|
$f->integer(
|
|
name=>"height",
|
|
value=>$value,
|
|
defaultValue=>60,
|
|
hoverHelp => $i18n->get("height help"),
|
|
label=>$i18n->get("height")
|
|
);
|
|
$f->submit;
|
|
my $ads = "";
|
|
my $code = "";
|
|
if (defined $adSpace) {
|
|
$code = '<p style="padding: 5px; line-height: 20px; text-align: center; border: 3px outset black; font-family: helvetica; font-size: 11px; width: 200px; float: right;">'.$i18n->get("macro code prompt").'<br /><b>^AdSpace('.$adSpace->get("name").');</b></p>';
|
|
my $rs = $session->db->read("select adId, title, renderedAd from advertisement where adSpaceId=?",[$id]);
|
|
while (my ($adId, $title, $ad) = $rs->array) {
|
|
$ads .= '<div style="margin: 15px; float: left;">'.$session->icon->delete("op=deleteAd;adSpaceId=".$id.";adId=".$adId, undef, $i18n->get("confirm ad delete"))
|
|
.$session->icon->edit("op=editAd;adSpaceId=".$id.";adId=".$adId)
|
|
.' '.$title.'<br />'.$ad.'</div>';
|
|
}
|
|
$ads .= '<div style="clear: both;"></div>';
|
|
}
|
|
$ac->setHelp('edit ad space', 'AdSpace');
|
|
$ac->render($code.$f->print.$ads, $i18n->get("edit ad space"));
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_editAdSpaceSave ( )
|
|
|
|
Save the www_editAdSpace method.
|
|
|
|
=cut
|
|
|
|
sub www_editAdSpaceSave {
|
|
my $session = shift;
|
|
return $session->privilege->insufficient unless ($session->user->isInGroup("pbgroup000000000000017"));
|
|
my %properties = (
|
|
name=>$session->form->process("name", "text"),
|
|
title=>$session->form->process("title", "text"),
|
|
description=>$session->form->process("description", "textarea"),
|
|
width=>$session->form->process("width", "integer"),
|
|
height=>$session->form->process("height", "integer"),
|
|
);
|
|
if ($session->form->param("adSpaceId") eq "new") {
|
|
my $adSpace = WebGUI::AdSpace->create($session, \%properties);
|
|
return www_editAdSpace($session, $adSpace);
|
|
} else {
|
|
my $adSpace = WebGUI::AdSpace->new($session, $session->form->param("adSpaceId"));
|
|
$adSpace->set(\%properties);
|
|
}
|
|
return www_manageAdSpaces($session);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_manageAdSpaces ( )
|
|
|
|
Manage ad spaces.
|
|
|
|
=cut
|
|
|
|
sub www_manageAdSpaces {
|
|
my $session = shift;
|
|
return $session->privilege->insufficient unless ($session->user->isInGroup("pbgroup000000000000017"));
|
|
my $ac = WebGUI::AdminConsole->new($session,"adSpace");
|
|
my $i18n = WebGUI::International->new($session,"AdSpace");
|
|
my $output = "";
|
|
foreach my $adSpace (@{WebGUI::AdSpace->getAdSpaces($session)}) {
|
|
$output .= '<div style="float: left; margin: 10px;">'
|
|
.$session->icon->delete("op=deleteAdSpace;adSpaceId=".$adSpace->getId, undef, $i18n->get("confirm ad space delete"))
|
|
.$session->icon->edit("op=editAdSpace;adSpaceId=".$adSpace->getId)
|
|
.' '.$adSpace->get("title").'<br />'
|
|
.$adSpace->displayImpression(1)
|
|
.'</div>';
|
|
}
|
|
$output .= '<div style="clear: both;"></div>';
|
|
$ac->addSubmenuItem($session->url->page("op=editAdSpace"), $i18n->get("add ad space"));
|
|
$ac->setHelp('manage ad spaces', 'AdSpace');
|
|
return $ac->render($output);
|
|
}
|
|
|
|
|
|
1;
|