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

nit-picky GUID changes

Browse source
This commit is contained in:
Colin Kuskie 2004-10-14 05:06:23 +00:00
parent 361a9ee684
commit 896448d5b5
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Wobject.pm
View file

@ -225,13 +225,13 @@ sub duplicate {
my %properties; my %properties;
tie %properties, 'Tie::CPHash'; tie %properties, 'Tie::CPHash';
%properties = %{$_[0]->get}; %properties = %{$_[0]->get};
$properties{pageId} = $_[1] || 2; $properties{pageId} = $_[1] || '2';
$properties{sequenceNumber} = _getNextSequenceNumber($properties{pageId}); $properties{sequenceNumber} = _getNextSequenceNumber($properties{pageId});
my $page = WebGUI::SQL->quickHashRef("select groupIdView,ownerId,groupIdEdit from page where pageId=".quote($properties{pageId})); my $page = WebGUI::SQL->quickHashRef("select groupIdView,ownerId,groupIdEdit from page where pageId=".quote($properties{pageId}));
$properties{ownerId} = $page->{ownerId}; $properties{ownerId} = $page->{ownerId};
$properties{groupIdView} = $page->{groupIdView}; $properties{groupIdView} = $page->{groupIdView};
$properties{groupIdEdit} = $page->{groupIdEdit}; $properties{groupIdEdit} = $page->{groupIdEdit};
if ($properties{pageId} == 2) { if ($properties{pageId} eq '2') {
$properties{bufferUserId} = $session{user}{userId}; $properties{bufferUserId} = $session{user}{userId};
$properties{bufferDate} = time(); $properties{bufferDate} = time();
$properties{bufferPrevId} = {}; $properties{bufferPrevId} = {};
@ -1114,7 +1114,7 @@ sub www_createShortcut {
return WebGUI::Privilege::insufficient() unless ($self->canEdit); return WebGUI::Privilege::insufficient() unless ($self->canEdit);
my $w = WebGUI::Wobject::WobjectProxy->new({wobjectId=>"new",namespace=>"WobjectProxy"}); my $w = WebGUI::Wobject::WobjectProxy->new({wobjectId=>"new",namespace=>"WobjectProxy"});
$w->set({ $w->set({
pageId=>2, pageId=>'2',
templatePosition=>1, templatePosition=>1,
title=>$self->getValue("title"), title=>$self->getValue("title"),
proxiedNamespace=>$self->get("namespace"), proxiedNamespace=>$self->get("namespace"),
@ -1138,7 +1138,7 @@ sub www_cut {
my $self = shift; my $self = shift;
return WebGUI::Privilege::insufficient() unless ($self->canEdit); return WebGUI::Privilege::insufficient() unless ($self->canEdit);
$self->set({ $self->set({
pageId=>2, pageId=>'2',
templatePosition=>1, templatePosition=>1,
bufferUserId=>$session{user}{userId}, bufferUserId=>$session{user}{userId},
bufferDate=>WebGUI::DateTime::time(), bufferDate=>WebGUI::DateTime::time(),
@ -1188,7 +1188,7 @@ Moves this instance to the trash.
sub www_deleteConfirm { sub www_deleteConfirm {
my $self = shift; my $self = shift;
if ($self->canEdit) { if ($self->canEdit) {
$self->set({pageId=>3, templatePosition=>1, $self->set({pageId=>'3', templatePosition=>1,
bufferUserId=>$session{user}{userId}, bufferUserId=>$session{user}{userId},
bufferDate=>WebGUI::DateTime::time(), bufferDate=>WebGUI::DateTime::time(),
bufferPrevId=>$session{page}{pageId}}); bufferPrevId=>$session{page}{pageId}});