- fix [ 1275024 ] Can not edit layout on 6.7.2

- fix [ 1262235 ] sql report form params
 - fix [ 1277529 ] Extra radio buttons in Settings console
 - Removed the last remnants of wobject ids.
 - Fixed a GUID case sensitivity problem.
 - Fixed several large security holes. See the security advisory on
   getwebgui.com for details.
 - fix [ 1279157 ] showInForms option not stored
 - fix [ 1250290 ] ECommerce state field broken on Plainblack.com
 - fix [ 1261985 ] (Fix?) sortby.lastreply.url (Andreas Graf)
This commit is contained in:
JT Smith 2005-09-01 17:41:05 +00:00
parent 01ad8fd12c
commit f6c2dfe6fb
15 changed files with 274 additions and 47 deletions

View file

@ -292,21 +292,18 @@ sub getEditForm {
-namespace=>"EventsCalendar/Event",
-label=>WebGUI::International::get(530,"Asset_Event"),
-hoverHelp=>WebGUI::International::get('530 description',"Asset_Event"),
-afterEdit=>'func=edit;wid='.$self->get("wobjectId")
);
# $tabform->getTab("display")->template(
# -name=>"regNotifyTemplateId",
# -value=>$self->getValue("regNotifyTemplateId"),
# -namespace=>"EventsCalendar/Event",
# -label=>WebGUI::International::get(531,"Asset_Event"),
# -afterEdit=>'func=edit;wid='.$self->get("wobjectId")
# );
# $tabform->getTab("display")->template(
# -name=>"reminderTemplateId",
# -value=>$self->getValue("reminderTemplateId"),
# -namespace=>"EventsCalendar/Event",
# -label=>WebGUI::International::get(532,"Asset_Event"),
# -afterEdit=>'func=edit;wid='.$self->get("wobjectId")
# );
# $tabform->getTab("security")->group(
# -name=>"groupCanRegister", -label=>WebGUI::International::get(533,"Asset_Event"),

View file

@ -114,7 +114,6 @@ sub definition {
defaultValue=>1
},
showInForms=>{
noFormPost=>1,
fieldType=>'yesNo',
defaultValue=>1
},

View file

@ -890,7 +890,7 @@ sub view {
$var{'sortby.title.url'} = $self->getSortByUrl("title");
$var{'sortby.username.url'} = $self->getSortByUrl("username");
$var{'sortby.date.url'} = $self->getSortByUrl("dateSubmitted");
$var{'sortby.lastreply.url'} = $self->getSortByUrl("lastUpdated");
$var{'sortby.lastreply.url'} = $self->getSortByUrl("lastPostDate");
$var{'sortby.views.url'} = $self->getSortByUrl("views");
$var{'sortby.replies.url'} = $self->getSortByUrl("replies");
$var{'sortby.rating.url'} = $self->getSortByUrl("rating");

View file

@ -131,7 +131,6 @@ sub getEditForm {
-label=>WebGUI::International::get(80,"Asset_EventsCalendar"),
-value=>$self->getValue('eventTemplateId'),
-namespace=>"EventsCalendar/Event",
-afterEdit=>'func=edit;wid='.$self->get("wobjectId")
);
$tabform->getTab("display")->selectList(
-name=>"startMonth",

View file

@ -288,7 +288,7 @@ sub getEditForm {
-hoverHelp => WebGUI::International::get('13 description','Asset_Survey'),
-value => [$self->getValue("groupToViewReports")]
);
if ($self->get("wobjectId") eq "new") {
if ($self->get("assetId") eq "new") {
$tabform->getTab('properties')->whatNext(
-options=>{
addQuestion=>WebGUI::International::get(28,'Asset_Survey'),
@ -810,8 +810,8 @@ sub www_editAnswer {
$answer = $self->getCollateral("Survey_answer","Survey_answerId",$session{form}{aid});
$f = WebGUI::HTMLForm->new(-action=>$self->getUrl);
$f->hidden(
-name => "wid",
-value => $session{form}{wid}
-name => "assetId",
-value => $session{form}{assetId}
);
$f->hidden(
-name => "func",
@ -913,8 +913,8 @@ sub www_editQuestion {
$f = WebGUI::HTMLForm->new(-action=>$self->getUrl);
$f->hidden(
-name => "wid",
-value => $self->get("wobjectId")
-name => "assetId",
-value => $self->get("assetId")
);
$f->hidden(
-name => "func",
@ -1080,8 +1080,8 @@ sub www_editSection {
$f = WebGUI::HTMLForm->new(-action=>$self->getUrl);
$f->hidden(
-name => "wid",
-value => $self->get("wobjectId")
-name => "assetId",
-value => $self->get("assetId")
);
$f->hidden(
-name => "func",

View file

@ -805,7 +805,7 @@ sub validateFormData {
push (@error, $i18n->get('invalid lastName')) unless ($session{form}{lastName});
push (@error, $i18n->get('invalid address')) unless ($session{form}{address});
push (@error, $i18n->get('invalid city')) unless ($session{form}{city});
push (@error, $i18n->get('invalid zip')) unless ($session{form}{zipcode});
push (@error, $i18n->get('invalid zip')) if ($session{form}{zipcode} eq "" && $session{form}{country} eq "United States");
push (@error, $i18n->get('invalid email')) unless ($session{form}{email});
push (@error, $i18n->get('invalid card number')) unless ($session{form}{cardNumber} =~ /^\d+$/);

View file

@ -327,8 +327,8 @@ our $HELP = {
namespace => 'WebGUI',
},
{
title => 'Enable Metadata ?',
description => 'Enable Metadata ? description',
title => 'Enable Metadata',
description => 'Enable Metadata description',
namespace => 'WebGUI',
},
{
@ -432,8 +432,8 @@ our $HELP = {
namespace => 'WebGUI',
},
{
title => 'Enable passive profiling ?',
description => 'Enable passive profiling ? description',
title => 'Enable passive profiling',
description => 'Enable passive profiling description',
namespace => 'WebGUI',
},
{

View file

@ -108,7 +108,7 @@ sub www_editSettings {
);
$tabform->getTab("content")->yesNo(
-name=>"metaDataEnabled",
-label=>$i18n->get("Enable Metadata ?"),
-label=>$i18n->get("Enable Metadata"),
-value=>$session{setting}{metaDataEnabled}
);
# user interface settings
@ -224,7 +224,7 @@ sub www_editSettings {
);
$tabform->getTab("user")->yesNo(
-name=>"passiveProfilingEnabled",
-label=>$i18n->get("Enable passive profiling ?"),
-label=>$i18n->get("Enable passive profiling"),
-value=>$session{setting}{passiveProfilingEnabled},
-extras=>' onChange="alert(\''.$i18n->get("Illegal Warning").'\')" '
);

View file

@ -33,7 +33,7 @@ This package provides an interface to the passive profiling system.
=head1 SYNOPSIS
use WebGUI::PassiveProfiling;
WebGUI::PassiveProfiling::add( $wobjectId );
WebGUI::PassiveProfiling::add( $assetId );
=head1 METHODS
@ -43,24 +43,24 @@ These functions/methods are available from this package:
#-------------------------------------------------------------------
=head2 add ( wobjectId )
=head2 add ( assetId )
Adds a wobjectId to the passive profile log.
Adds a assetId to the passive profile log.
=head3 wobjectId
=head3 assetId
The wobjectId to add.
The assetId to add.
=cut
sub add {
return unless ($session{setting}{passiveProfilingEnabled});
my $wobjectId = shift;
my $sql = "insert into passiveProfileLog (passiveProfileLogId, userId, sessionId, wobjectId, dateOfEntry)
my $assetId = shift;
my $sql = "insert into passiveProfileLog (passiveProfileLogId, userId, sessionId, assetId, dateOfEntry)
values (".quote(WebGUI::Id::generate()).",".
quote($session{user}{userId}).",".
quote($session{var}{sessionId}).",".
quote($wobjectId).",".
quote($assetId).",".
quote(WebGUI::DateTime::time()).")";
WebGUI::SQL->write($sql);
return;
@ -98,7 +98,7 @@ is logged in the passiveProfileAOI table.
=head3 hashRef
A hashRef with userId and wobjectId.
A hashRef with userId and assetId.
=cut
@ -108,11 +108,11 @@ sub summarizeAOI {
select f.fieldName,
f.fieldType,
d.fieldId,
d.wobjectId,
d.assetId,
d.value
from metaData_values d , metaData_properties f
where f.fieldId = d.fieldId
and d.wobjectId = ".quote($data->{wobjectId});
and d.assetId = ".quote($data->{assetId});
my $sth = WebGUI::SQL->read($sql);
while (my $field = $sth->hashRef) {

View file

@ -68,7 +68,7 @@ Package for interfacing with SQL databases. This package implements Perl DBI fun
$dbh = WebGUI::SQL->getSlave;
$id = getNextId("wobjectId");
$id = getNextId("someId");
$string = quote($string);
=head1 METHODS

View file

@ -3529,7 +3529,7 @@ Privileges and styles assigned to pages in the package will not be copied when t
lastUpdated => 1120239343,
},
'Enable Metadata ? description' => {
'Enable Metadata description' => {
message => q|This enables the metadata tab on Assets so that metadata can be entered
and tracked by WebGUI.|,
lastUpdated => 1120239343,
@ -3638,7 +3638,7 @@ Optionally, if you are running a sendmail server on the same machine as WebGUI,
lastUpdated => 1120239343,
},
'Enable passive profiling ? description' => {
'Enable passive profiling description' => {
message => q|Used in conjuction with Metadata, this keeps a record of every wobject viewed by
a user.|,
lastUpdated => 1120239343,
@ -3744,8 +3744,8 @@ Select which of the configured LDAP connections to use to authenticate users.
lastUpdated => 1089039511
},
'Enable passive profiling ?' => {
message => q|Enable passive profiling ?|,
'Enable passive profiling' => {
message => q|Enable passive profiling?|,
lastUpdated => 1089039511
},
@ -3856,8 +3856,8 @@ Message Boards hold forums for users. There are many different Wobjects in WebG
lastUpdated => 1031514049
},
'Enable Metadata ?' => {
message => q|Enable Metadata ?|,
'Enable Metadata' => {
message => q|Enable Metadata?|,
lastUpdated => 1089039511
},

View file

@ -19,16 +19,16 @@ A conditional variable for whether or not the title should be displayed.
The description of this wobject.
<p/>
<b>wobjectId</b><br/>
The unique identifier that WebGUI uses to control this wobject.
<b>assetId</b><br/>
The unique identifier that WebGUI uses to control this asset.
<p/>
<b>isShortcut</b><br />
A conditional indicating if this wobject is a shortcut to an original wobject.
A conditional indicating if this wobject is a shortcut to an original asset.
<p />
<b>originalURL</b><br />
If this wobject is a shortcut, then this URL will direct you to the original wobject.
If this wobject is a shortcut, then this URL will direct you to the original asset.
|
},