oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Finish updating AdSpace for reorganization.

Browse source 
Remove groupToPurchase, update tests to follow suit.
This commit is contained in:
Colin Kuskie 2009-09-02 18:47:55 -07:00
parent 7ebd486797
commit 13dd3f358c
2 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/AdSpace.pm
View file

@ -310,10 +310,6 @@ An integer indicating the minimum number of impressions an advertiser is allowed
An integer indicating the minimum number of clicks an advertiser is allowed to purchase.
=head4 groupToPurchase
A groupId representing the group allowed to purchase ads directly from the web site.
=head4 width
The width, in pixels, of this ad space.
@ -338,7 +334,6 @@ sub set {
$self->{_properties}{description} = exists $properties->{description} ? $properties->{description} : $self->{_properties}{description};
$self->{_properties}{minimumImpressions} = $properties->{minimumImpressions} || $self->{_properties}{minimumImpressions};
$self->{_properties}{minimumClicks} = $properties->{minimumClicks} || $self->{_properties}{minimumClicks};
$self->{_properties}{groupToPurchase} = $properties->{groupToPurchase} || $self->{_properties}{groupToPurchase} || "3";
$self->{_properties}{width} = $properties->{width} || $self->{_properties}{width} || "468";
$self->{_properties}{height} = $properties->{height} || $self->{_properties}{height} || "60";
$self->session->db->setRow("adSpace","adSpaceId",$self->{_properties});

3
t/AdSpace.t
View file

@ -22,11 +22,8 @@ my $newAdSpaceSettings = {
name => "newAdSpaceName",
title => "Ad Space",
description => 'This is a space reserved for ads',
costPerImpression => '1.00',
costPerClick => '1.00',
minimumImpressions => 100,
minimumClicks => 200,
groupToPurchase => "7",
width => "400",
height => "300",
};