{templatePosition}.'> | ';
my $spliton = "{templatePosition}.">";
my @parts = split(/$spliton/, $template);
$template = $parts[0].$replacement.$parts[1];
my ($id) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='Page'");
$id++;
WebGUI::SQL->write("insert into template (templateId, name, template, namespace) values ($id, ".quote($name).", ".quote($template).", 'Page')");
WebGUI::SQL->write("update page set templateId=$id where pageId=".$data->{pageId});
WebGUI::SQL->write("update wobject set templatePosition=".$position." where pageId=".$data->{pageId}." and templatePosition=".
$data->{templatePosition}." and sequenceNumber>".$data->{sequenceNumber});
WebGUI::SQL->write("delete from wobject where wobjectId=".$data->{wobjectId});
my $b = WebGUI::SQL->read("select wobjectId from wobject where pageId=".$data->{pageId}." order by templatePosition,sequenceNumber");
my $i = 0;
while (my ($wid) = $b->array) {
$i++;
WebGUI::SQL->write("update wobject set sequenceNumber='$i' where wobjectId=$wid");
}
$b->finish;
}
$a->finish;
WebGUI::SQL->write("drop table ExtraColumn");
} else {
print "\t\tExtraColumn table does not exist.\n" unless ($quiet);
}
#--------------------------------------------
print "\tMigrating page templates.\n" unless ($quiet);
my $sth = WebGUI::SQL->read("select * from template where namespace='Page'");
while (my $template = $sth->hashRef) {
#eliminate the need for compatibility with old-style page templates
$template->{template} =~ s/\^(\d+)\;/_positionFormat5x($1)/eg;
unless ($template->{template} =~ m/draggable\.js/) {
$template->{template} = '
'.$template->{template};
$template->{template} =~ s/\/_positionFormat6x($1)/eg;
$template->{template} .= '
';
WebGUI::SQL->write("update template set namespace='page', template=".quote($template->{template})
." where templateId=".$template->{templateId}." and namespace='Page'");
}
}
$sth->finish;
#--------------------------------------------
print "\tUpdating SQL Reports.\n" unless ($quiet);
if( grep /^identifier$/i, WebGUI::SQL->buildArray("SHOW COLUMNS FROM SQLReport") ){
my %dblink;
$dblink{$session{config}{dsn}}{id} = 0;
$dblink{$session{config}{dsn}}{user} = $session{config}{dbuser};
my $sth = WebGUI::SQL->read("select DSN, databaseLinkId, username, identifier, wobjectId from SQLReport");
while (my $data = $sth->hashRef) {
my $id = undef;
next if ($data->{databaseLinkId} > 0);
foreach my $dsn (keys %dblink) {
if ($dsn eq $data->{DSN} && $dblink{$dsn}{user} eq $data->{username}) {
$id = $dblink{$dsn}{id};
last;
}
}
unless (defined $id) {
$id = getNextId("databaseLinkId");
my $title = $data->{username}.'@'.$data->{DSN};
WebGUI::SQL->write("insert into databaseLink (databaseLinkId, title, DSN, username, identifier) values ($id, ".quote($title).",
".quote($data->{DSN}).", ".quote($data->{username}).", ".quote($data->{identifier}).")");
$dblink{$data->{DSN}}{id} = $id;
$dblink{$data->{DSN}}{user} = $data->{username};
}
WebGUI::SQL->write("update SQLReport set databaseLinkId=".$id." where wobjectId=".$data->{wobjectId});
}
$sth->finish;
WebGUI::SQL->write("alter table SQLReport drop column DSN");
WebGUI::SQL->write("alter table SQLReport drop column username");
WebGUI::SQL->write("alter table SQLReport drop column identifier");
} else {
print "\t\tDSN mods already done.\n" unless ($quiet);
}
if( grep /^template$/i, WebGUI::SQL->buildArray("SHOW COLUMNS FROM SQLReport") ){
use WebGUI::DatabaseLink;
my $templateId;
my $a = WebGUI::SQL->read("select a.databaseLinkId, a.dbQuery, a.template, a.wobjectId, b.title
from SQLReport a , wobject b where a.wobjectId=b.wobjectId");
while (my $data = $a->hashRef) {
next if ($data->{dbQuery} eq "");
my $db = WebGUI::DatabaseLink->new($data->{databaseLinkId});
if ($data->{template} ne "") {
($templateId) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='SQLReport'");
if ($templateId > 999) {
$templateId++;
} else {
$templateId = 1000;
}
my $b = WebGUI::SQL->unconditionalRead($data->{dbQuery},$db->dbh);
my @template = split(/\^\-\;/,$data->{template});
my $final = '
'.$template[0].'
';
my $i;
unless ($b->errorCode) {
foreach my $col ($b->getColumnNames) {
my $replacement = '';
$template[1] =~ s/\^$i\;/$replacement/g;
$i++;
}
}
$template[1] =~ s/\^rownum\;/\/g;
$final .= $template[1].'
'.$template[2].'
';
WebGUI::SQL->write("insert into template (templateId, name, template, namespace) values ($templateId,
".quote($data->{title}).",".quote($final).",'SQLReport')");
} else {
$templateId = 1;
}
WebGUI::SQL->write("update wobject set templateId=$templateId where wobjectId=".$data->{wobjectId});
}
$a->finish;
WebGUI::SQL->write("alter table SQLReport drop column template");
WebGUI::SQL->write("alter table SQLReport drop column convertCarriageReturns");
} else {
print "\t\ttemplate mods already done.\n" unless ($quiet);
}
#--------------------------------------------
print "\tConverting items into articles.\n" unless ($quiet);
if ( grep /^Item$/i, @tables ){
my $sth = WebGUI::SQL->read("select * from template where namespace='Item'");
while (my $template = $sth->hashRef) {
$template->{name} =~ s/Default (.*?)/$1/i;
if ($template->{templateId} < 1000) {
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='Article' and templateId<1000");
$template->{templateId}++;
} else {
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='Article'");
if ($template->{templateId} > 999) {
$template->{templateId}++;
} else {
$template->{templateId} = 1000;
}
}
WebGUI::SQL->write("insert into template (templateId,name,template,namespace) values (".$template->{templateId}.",
".quote($template->{name}).", ".quote($template->{template}).", 'Article')");
}
$sth->finish;
WebGUI::SQL->write("delete from template where namespace='Item'");
WebGUI::SQL->write("update wobject set namespace='Article' where namespace='Item'");
my $sth = WebGUI::SQL->read("select * from Item");
while (my $data = $sth->hashRef) {
WebGUI::SQL->write("insert into Article (wobjectId,linkURL,attachment) values (".$data->{wobjectId}.",
".quote($data->{linkURL}).", ".quote($data->{attachment}).")");
}
$sth->finish;
WebGUI::SQL->write("drop table Item");
} else {
print "\t\tItems table does not exist.\n" unless ($quiet);
}
#--------------------------------------------
my $ussId = 1000;
print "\tSequencing user submissions.\n" unless ($quiet);
if( !(grep /^userDefined5$/, (WebGUI::SQL->buildArray("SHOW COLUMNS FROM USS_submission")) ) ){
WebGUI::SQL->write("alter table USS_submission add column sequenceNumber int not null");
WebGUI::SQL->write("alter table USS add column USS_id int not null");
WebGUI::SQL->write("alter table USS_submission add column USS_id int not null");
my $a = WebGUI::SQL->read("select wobjectId from USS");
while (my ($wobjectId) = $a->array) {
WebGUI::SQL->write("update USS set USS_id=$ussId where wobjectId=$wobjectId");
my $b = WebGUI::SQL->read("select USS_submissionId from USS_submission where wobjectId=$wobjectId order by dateSubmitted");
my $seq = 1;
while (my ($subId) = $b->array) {
WebGUI::SQL->write("update USS_submission set sequenceNumber=$seq, USS_id=$ussId where USS_submissionId=$subId");
$seq++;
}
$b->finish;
$ussId++;
}
$a->finish;
WebGUI::SQL->write("alter table USS_submission drop column wobjectId");
WebGUI::SQL->write("alter table USS add column submissionFormTemplateId int not null default 1");
WebGUI::SQL->write("alter table USS_submission add column contentType varchar(35) not null default 'mixed'");
WebGUI::SQL->write("update USS_submission set contentType='html' where convertCarriageReturns=0");
WebGUI::SQL->write("alter table USS_submission drop column convertCarriageReturns");
WebGUI::SQL->write("insert into incrementer (incrementerId,nextValue) values ('USS_id',$ussId)");
WebGUI::SQL->write("alter table USS_submission add column userDefined1 text");
WebGUI::SQL->write("alter table USS_submission add column userDefined2 text");
WebGUI::SQL->write("alter table USS_submission add column userDefined3 text");
WebGUI::SQL->write("alter table USS_submission add column userDefined4 text");
WebGUI::SQL->write("alter table USS_submission add column userDefined5 text");
} else {
print "\t\tAlready Sequenced.\n" unless ($quiet);
}
#--------------------------------------------
print "\tConverting FAQs into USS Submissions.\n" unless ($quiet);
if ( grep /^FAQ$/i, @tables ){
my %tempMatch = ();
my $sth = WebGUI::SQL->read("select * from template where namespace='FAQ'");
while (my $template = $sth->hashRef) {
my $oldTid = $template->{templateId};
$template->{name} =~ s/Default (.*?)/$1/i;
if ($template->{templateId} < 1000) {
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='USS' and templateId<1000");
$template->{templateId}++;
} else {
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='USS'");
if ($template->{templateId} > 999) {
$template->{templateId}++;
} else {
$template->{templateId} = 1000;
}
}
$tempMatch{$oldTid} = $template->{templateId};
$template->{template} =~ s/\/\/igs;
my $replacement = '
[]
';
$template->{template} =~ s/\\s*\\s*\<\/tmpl_if\>/$replacement/igs;
$replacement = '
';
$template->{template} =~ s/\\s*\"\>/$replacement/igs;
$template->{template} =~ s/\/\/igs;
$template->{template} =~ s/\/\/igs;
$template->{template} =~ s/\/\/igs;
WebGUI::SQL->write("insert into template (templateId,name,template,namespace) values (".$template->{templateId}.",
".quote($template->{name}).", ".quote($template->{template}).", 'USS')");
}
$sth->finish;
foreach my $oldTid (keys %tempMatch) {
WebGUI::SQL->write("update wobject set templateId=".$tempMatch{$oldTid}." where templateId=".$oldTid." and namespace='FAQ'");
}
WebGUI::SQL->write("delete from template where namespace='FAQ'");
my $a = WebGUI::SQL->read("select a.wobjectId,a.groupIdEdit,a.ownerId,a.lastEdited,b.username,a.dateAdded from wobject a left join users b on
a.ownerId=b.userId where a.namespace='FAQ'");
while (my $data = $a->hashRef) {
$data->{lastEdited} = 0 unless ($data->{lastEdited});
$ussId = getNextId("USS_id");
WebGUI::SQL->write("insert into USS (wobjectId, USS_id, groupToContribute, submissionsPerPage, filterContent, sortBy, sortOrder,
submissionFormTemplateId) values (
".$data->{wobjectId}.", $ussId, ".$data->{groupIdEdit}.", 1000, 'none', 'sequenceNumber', 'asc', 2)");
my $b = WebGUI::SQL->read("select * from FAQ_question where wobjectId=".$data->{wobjectId});
while (my $sub = $b->hashRef) {
my $subId = getNextId("USS_submissionId");
my $forumId = getNextId("forumId");
WebGUI::SQL->write("insert into forum (forumId) values (".$forumId.")");
WebGUI::SQL->write("insert into USS_submission (USS_submissionId, USS_id, title, username, userId, content,
dateUpdated, dateSubmitted, forumId,contentType) values ( $subId, $ussId, ".quote($sub->{question}).",
".quote($data->{username}).", ".$data->{ownerId}.", ".quote($sub->{answer}).", ".$data->{lastEdited}.",
".$data->{dateAdded}.", ".$forumId.", 'html')");
}
$b->finish;
}
$a->finish;
WebGUI::SQL->write("update wobject set namespace='USS' where namespace='FAQ'");
WebGUI::SQL->write("drop table FAQ");
WebGUI::SQL->write("drop table FAQ_question");
WebGUI::SQL->write("delete from incrementer where incrementerId='FAQ_questionId'");
} else {
print "\t\tAlready converted.\n" unless ($quiet);
}
#--------------------------------------------
print "\tMigrating Link Lists to USS Submissions.\n" unless ($quiet);
if ( grep /^LinkList$/i, @tables ){
my %tempMatch = ();
my $sth = WebGUI::SQL->read("select * from template where namespace='LinkList'");
while (my $template = $sth->hashRef) {
my $oldTid = $template->{templateId};
$template->{name} =~ s/Default (.*?)/$1/i;
if ($template->{templateId} < 1000) {
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='USS' and templateId<1000");
$template->{templateId}++;
} else {
($template->{templateId}) = WebGUI::SQL->quickArray("select max(templateId) from template where namespace='USS'");
if ($template->{templateId} > 999) {
$template->{templateId}++;
} else {
$template->{templateId} = 1000;
}
}
$tempMatch{$oldTid} = $template->{templateId};
$template->{template} =~ s/\/\/igs;
$template->{template} =~ s/\//igs;
$template->{template} =~ s/\<\/tmpl\_if\>\s*\<\/tmpl\_if\>/\<\/tmpl_if>/igs;
my $replacement = '
[]
';
$template->{template} =~ s/\\s*\\s*/$replacement/igs;
$replacement = '
';
$template->{template} =~ s/\\s*\"\>/$replacement/igs;
$template->{template} =~ s/\/\/igs;
$template->{template} =~ s/\/\/igs;
$template->{template} =~ s/\/\/igs;
$template->{template} =~ s/\/\/igs;
$template->{template} =~ s/\/\/igs;
$template->{template} =~ s/\/\/igs;
WebGUI::SQL->write("insert into template (templateId,name,template,namespace) values (".$template->{templateId}.",
".quote($template->{name}).", ".quote($template->{template}).", 'USS')");
}
$sth->finish;
foreach my $oldTid (keys %tempMatch) {
WebGUI::SQL->write("update wobject set templateId=".$tempMatch{$oldTid}." where templateId=".$oldTid." and namespace='LinkList'");
}
WebGUI::SQL->write("delete from template where namespace='LinkList'");
my $a = WebGUI::SQL->read("select a.wobjectId,a.groupIdEdit,a.ownerId,a.lastEdited,b.username,a.dateAdded from wobject a left join users b on
a.ownerId=b.userId where a.namespace='LinkList'");
while (my $data = $a->hashRef) {
$data->{lastEdited} = 0 unless ($data->{lastEdited});
$ussId = getNextId("USS_id");
WebGUI::SQL->write("insert into USS (wobjectId, USS_id, groupToContribute, submissionsPerPage, filterContent, sortBy, sortOrder,
submissionFormTemplateId) values (
".$data->{wobjectId}.", $ussId, ".$data->{groupIdEdit}.", 1000, 'none', 'sequenceNumber', 'asc', 3)");
my $b = WebGUI::SQL->read("select * from LinkList_link where wobjectId=".$data->{wobjectId});
while (my $sub = $b->hashRef) {
my $subId = getNextId("USS_submissionId");
my $forumId = getNextId("forumId");
WebGUI::SQL->write("insert into forum (forumId) values (".$forumId.")");
WebGUI::SQL->write("insert into USS_submission (USS_submissionId, USS_id, title, username, userId, content,
dateUpdated, dateSubmitted, forumId,contentType,userDefined1, userDefined2) values ( $subId, $ussId, ".quote($sub->{name}).",
".quote($data->{username}).", ".$data->{ownerId}.", ".quote($sub->{description}).", ".$data->{lastEdited}.",
".$data->{dateAdded}.", ".$forumId.", 'html', ".quote($sub->{url}).", ".quote($sub->{newWindow}).")");
}
$b->finish;
}
$a->finish;
WebGUI::SQL->write("update wobject set namespace='USS' where namespace='LinkList'");
WebGUI::SQL->write("drop table LinkList");
WebGUI::SQL->write("drop table LinkList_link");
WebGUI::SQL->write("delete from incrementer where incrementerId='LinkList_linkId'");
} else {
print "\t\tLinkList table does not exist.\n" unless ($quiet);
}
#--------------------------------------------
print "\tUpdating Authentication.\n" unless ($quiet);
WebGUI::SQL->write("delete from authentication where authMethod='WebGUI' and fieldName='passwordLastUpdated'");
WebGUI::SQL->write("delete from authentication where authMethod='WebGUI' and fieldName='passwordTimeout'");
WebGUI::SQL->write("delete from authentication where authMethod='WebGUI' and fieldName='changeUsername'");
WebGUI::SQL->write("delete from authentication where authMethod='WebGUI' and fieldName='changePassword'");
my $authSth = WebGUI::SQL->read("select userId from users where authMethod='WebGUI'");
while (my $authHash = $authSth->hashRef){
WebGUI::SQL->write("insert into authentication (userId,authMethod,fieldName,fieldData) values ('".$authHash->{userId}."','WebGUI','passwordLastUpdated','".time()."')");
WebGUI::SQL->write("insert into authentication (userId,authMethod,fieldName,fieldData) values ('".$authHash->{userId}."','WebGUI','passwordTimeout','3122064000')");
WebGUI::SQL->write("insert into authentication (userId,authMethod,fieldName,fieldData) values ('".$authHash->{userId}."','WebGUI','changeUsername','1')");
WebGUI::SQL->write("insert into authentication (userId,authMethod,fieldName,fieldData) values ('".$authHash->{userId}."','WebGUI','changePassword','1')");
}
#--------------------------------------------
print "\tRemoving unneeded files and directories.\n" unless ($quiet);
my @unlinks = ( "../../lib/WebGUI/Wobject/Item.pm", \
"../../lib/WebGUI/Wobject/LinkList.pm", \
"../../lib/WebGUI/Wobject/FAQ.pm", \
"../../lib/WebGUI/Wobject/ExtraColumn.pm", \
"../../lib/WebGUI/Authentication.pm", \
"../../lib/WebGUI/Operation/Account.pm", \
"../../lib/WebGUI/Macro/m_currentMenuHorizontal.pm", \
"../../lib/WebGUI/Macro/M_currentMenuVertical.pm", \
"../../lib/WebGUI/Macro/s_specificMenuHorizontal.pm", \
"../../lib/WebGUI/Macro/S_specificMenuVertical.pm", \
"../../lib/WebGUI/Macro/t_topMenuHorizontal.pm", \
"../../lib/WebGUI/Macro/T_topMenuVertical.pm", \
"../../lib/WebGUI/Macro/p_previousMenuHorizontal.pm", \
"../../lib/WebGUI/Macro/P_previousMenuVertical.pm", \
"../../lib/WebGUI/Macro/C_crumbTrail.pm", \
"../../lib/WebGUI/Macro/FlexMenu.pm", \
"../../lib/WebGUI/Macro/PreviousDropMenu.pm", \
"../../lib/WebGUI/Macro/Synopsis.pm", \
"../../lib/WebGUI/Macro/rootmenuHorizontal.pm", \
"../../lib/WebGUI/Macro/RootTab.pm", \
"../../lib/WebGUI/Macro/SpecificDropMenu.pm", \
"../../lib/WebGUI/Macro/TopDropMenu.pm", \
"../../lib/WebGUI/Macro/Question_search.pm", \
"../../lib/WebGUI/Operation/Search.pm" );
unlink(@unlinks);
my @rmtrees = ( "../../lib/WebGUI/Authentication", \
"../../www/extras/toolbar/default" );
rmtree(@rmtrees);
#--------------------------------------------
print "\tMigrating wobject privileges.\n" unless ($quiet);
if( !(grep /^wobjectPrivileges$/i, WebGUI::SQL->buildArray("SHOW COLUMNS FROM page")) ){
WebGUI::SQL->write("alter table page add column wobjectPrivileges int not null default 0");
WebGUI::SQL->write("update page set wobjectPrivileges=$session{setting}{wobjectPrivileges}");
WebGUI::SQL->write("delete from settings where name='wobjectPrivileges'");
} else {
print "\t\tMigration already done.\n" unless ($quiet);
}
#--------------------------------------------
if( !(grep /^gotoQuestion$/i, WebGUI::SQL->buildArray("SHOW COLUMNS FROM Survey_question")) ){
print "\tMigrating surveys.\n" unless ($quiet);
WebGUI::SQL->write("alter table Survey_response rename Survey_questionResponse");
WebGUI::SQL->write("update Survey_questionResponse set userId='1' where userId='c4ca4238'");
WebGUI::SQL->write("alter table Survey_questionResponse drop primary key");
WebGUI::SQL->write("alter table Survey_questionResponse add primary key (Survey_questionId, Survey_answerId, Survey_responseId)");
WebGUI::SQL->write("create table Survey_response (Survey_id int, Survey_responseId int not null primary key, userId varchar(11),
username varchar(255), ipAddress varchar(15), startDate int, endDate int, isComplete int not null default 0)");
my $a = WebGUI::SQL->read("select Survey_id from Survey");
while (my ($surveyId) = $a->array) {
my $b = WebGUI::SQL->read("select distinct userId from Survey_questionResponse where Survey_id=$surveyId");
while (my ($userId) = $b->array) {
my ($username,$ipAddress) = WebGUI::SQL->quickArray("select username,ipAddress from Survey_questionResponse where Survey_id=$surveyId and
userId=".quote($userId));
WebGUI::SQL->write("insert into Survey_response (Survey_id, Survey_responseId, userId, username, isComplete, ipAddress) values ($surveyId,
".getNextId("Survey_responseId")." ,".quote($userId).", ".quote($username).", 1, ".quote($ipAddress).")");
}
$b->finish;
$b = WebGUI::SQL->read("select distinct ipAddress from Survey_questionResponse where Survey_id=$surveyId and userId='1'");
while (my ($ipAddress) = $b->array) {
WebGUI::SQL->write("insert into Survey_response (Survey_id, Survey_responseId, userId, username, isComplete, ipAddress) values (
$surveyId, ".getNextId("Survey_responseId")." ,'1', 'Visitor', 1, ".quote($ipAddress).")");
}
$b->finish;
}
$a->finish;
$a = WebGUI::SQL->read("select Survey_id, Survey_responseId, userId, ipAddress from Survey_response");
while (my $data = $a->hashRef) {
my ($end) = WebGUI::SQL->quickArray("select max(dateOfResponse) from Survey_questionResponse where Survey_id=".$data->{Survey_id}."
and ((userId=".quote($data->{userId})." and userId<>1) or (userId=1 and ipAddress=".quote($data->{ipAddress})."))");
my ($start) = WebGUI::SQL->quickArray("select min(dateOfResponse) from Survey_questionResponse where Survey_id=".$data->{Survey_id}."
and ((userId=".quote($data->{userId})." and userId<>1) or (userId=1 and ipAddress=".quote($data->{ipAddress})."))");
WebGUI::SQL->write("update Survey_response set startDate=$start, endDate=$end where Survey_responseId=".$data->{Survey_responseId});
WebGUI::SQL->write("update Survey_questionResponse set Survey_responseId=".$data->{Survey_responseId}." where Survey_id=".$data->{Survey_id}."
and ((userId=".quote($data->{userId})." and userId<>1) or (userId=1 and ipAddress=".quote($data->{ipAddress})."))");
}
$a->finish;
WebGUI::SQL->write("alter table Survey_questionResponse drop column userId");
WebGUI::SQL->write("alter table Survey_questionResponse drop column username");
WebGUI::SQL->write("alter table Survey_questionResponse drop column ipAddress");
WebGUI::SQL->write("alter table Survey add column questionsPerPage int not null default 1");
WebGUI::SQL->write("alter table Survey add column responseTemplateId int not null default 1");
WebGUI::SQL->write("alter table Survey add column reportcardTemplateId int not null default 1");
WebGUI::SQL->write("alter table Survey add column overviewTemplateId int not null default 1");
WebGUI::SQL->write("alter table Survey add column maxResponsesPerUser int not null default 1");
WebGUI::SQL->write("alter table Survey add column questionsPerResponse int not null default 9999999");
WebGUI::SQL->write("alter table Survey_question add column gotoQuestion int");
} else {
print "\t\tMigration already done.\n" unless ($quiet);
}
#--------------------------------------------
print "\tMigrating Navigation Macro's.\n" unless ($quiet);
my %dbFields = (
template => { id => [ "templateId", "namespace" ], fields => [ "template" ] },
wobject => { id => [ "wobjectId" ], fields => [ "description" ] },
collateral => { id => [ "collateralId" ], fields => [ "parameters" ] }
);
my %replace;
$replace{'C'} = {
columns => {
identifier=>'crumbTrail', depth=>1, method=>'self_and_ancestors', startAt=>'current', stopAtLevel=>'-1',
templateId=>'2', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>1, seperator=>'>'
},
parameter => [ "seperator" ],
template => q{
target="_blank"
href="">
__SEPARATOR__
},
};
$replace{'FlexMenu'} = {
columns => {
identifier=>'FlexMenu', depth=>99, method=>'pedigree', startAt=>'current', stopAtLevel=>'2',
templateId=>'1', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ "depth" ]
};
$replace{'M'} = {
'columns'=>{
identifier=>'currentMenuVertical', depth=>1, method=>'descendants', startAt=>'current', stopAtLevel=>'-1',
templateId=>'1', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ "depth" ]
};
$replace{'m'} = {
'columns'=>{
identifier=>'currentMenuHorizontal', depth=>1, method=>'descendants', startAt=>'current',stopAtLevel=>'-1',
templateId=>'3', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>'·'
},
'parameter'=>[ "seperator" ],
template=>q{
href="">
__SEPARATOR__
},
};
$replace{'PreviousDropMenu'} = {
'columns'=>{
identifier=>'PreviousDropMenu', depth=>99, method=>'self_and_sisters', startAt=>'current',stopAtLevel=>'-1',
templateId=>'4', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ ]
};
$replace{'P'} = {
'columns'=>{
identifier=>'previousMenuVertical', depth=>1, method=>'descendants', startAt=>'mother', stopAtLevel=>'-1',
templateId=>'1', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ "depth" ]
};
$replace{'p'} = {
'columns'=>{
identifier=>'previousMenuHorizontal', depth=>1, method=>'descendants', startAt=>'mother', stopAtLevel=>'-1',
templateId=>'3', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>'·'
},
'parameter'=>[ "seperator" ],
template=>q{
},
};
$replace{'rootmenu'} = {
'columns'=>{
identifier=>'rootmenu', depth=>1, method=>'daughters', startAt=>'root', stopAtLevel=>'-1',
templateId=>'3', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>'·'
},
'parameter'=>[ "seperator" ],
template=>q{
},
};
$replace{'RootTab'} = {
'columns'=>{
identifier=>'RootTab', depth=>99, method=>'daughters', startAt=>'root', stopAtLevel=>'-1',
templateId=>'5', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ ]
};
$replace{'SpecificDropMenu'} = {
'columns'=>{
identifier=>'SpecificDropMenu', depth=>3, method=>'descendants', startAt=>'home', stopAtLevel=>'-1',
templateId=>'4', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ "startAt", "depth" ]
};
$replace{'S'} = {
'columns'=>{
identifier=>'SpecificMenuVertical', depth=>3, method=>'descendants', startAt=>'home', stopAtLevel=>'-1',
templateId=>'1', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ "startAt", "depth" ]
};
$replace{'s'} = {
'columns'=>{
identifier=>'SpecificMenuHorizontal', depth=>3, method=>'descendants', startAt=>'home', stopAtLevel=>'-1',
templateId=>'3', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ "startAt", "seperator" ],
template=>q{
},
};
$replace{'TopDropMenu'} = {
'columns'=>{
identifier=>'TopDropMenu', depth=>0, method=>'descendants', startAt=>'WebGUIroot', stopAtLevel=>'-1',
templateId=>'4', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ ]
};
$replace{'T'} = {
'columns'=>{
identifier=>'TopLevelMenuVertical', depth=>0, method=>'descendants', startAt=>'WebGUIroot', stopAtLevel=>'-1',
templateId=>'1', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ "depth" ]
};
$replace{'Synopsis'} = {
'columns'=>{
identifier=>'Synopsis', depth=>99, method=>'self_and_descendants', startAt=>'current', stopAtLevel=>'-1',
templateId=>'8', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>''
},
'parameter'=>[ "depth" ]
};
$replace{'t'} = {
'columns'=>{
identifier=>'TopLevelMenuHorizontal', depth=>0, method=>'WebGUIroot', startAt=>'WebGUIroot', stopAtLevel=>'-1',
templateId=>'3', showSystemPages=>0, showHiddenPages=>0, showUnprivilegedPages=>0, reverse=>0, seperator=>'·'
},
'parameter'=>[ "seperator" ],
template=>q{
},
};
my ($sth, $data, $code, $table, $column, %identifier);
foreach $table (keys %dbFields){
$sth = WebGUI::SQL->read("SELECT * FROM $table");
#unless ($sth = WebGUI::SQL->read("SELECT * FROM $table")) {die "Cannot read from table $table ";}
while ($data = $sth->hashRef){
foreach $column (@{$dbFields{$table}{fields}}){
$code = $data->{$column};
while ($code =~ /$WebGUI::Macro::nestedMacro/gs){
my ($macro, $searchString, $params) = ($1, $2, $3);
next if ($searchString =~ /^\d+$/); # don't process ^0; ^1; ^2; etc.
next if ($searchString =~ /^\-$/); # don't process ^-;
if ($params ne "") {
$params =~ s/(^\(|\)$)//g; # remove parenthesis
$params = WebGUI::Macro::process($params); # recursive process params
}
my @param = WebGUI::Macro::getParams($params);
if($replace{$searchString}){
my $repNav = $replace{$searchString};
my $replaceId = $macro.'_'.join('_',@param);
# print "\nReplacing macro: $macro\n";
for(my $i=0; $i{columns}->{$repNav->{parameter}->[$i]} = $param[$i];
# print "Found parameters:\n";
# print "\t".$repNav->{parameter}->[$i].": ".$repNav->{columns}->{$repNav->{parameter}->[$i]}."\n";
}
my $doTemplate = ($repNav->{template} && $repNav->{columns}->{seperator});
if($doTemplate) {
if($identifier{cachedTemplate}{$replaceId."_".$repNav->{columns}->{seperator}}) {
$repNav->{columns}->{templateId} =
$identifier{cachedTemplate}{$replaceId."_".$repNav->{columns}->{seperator}};
} else {
$repNav->{template} =~ s/__SEPARATOR__/$repNav->{columns}->{seperator}/g;
($repNav->{columns}->{templateId}) = WebGUI::SQL->quickArray("select max(templateId)
from template where namespace=".quote('Navigation'));
if ($repNav->{columns}->{templateId} > 999) {
$repNav->{columns}->{templateId}++;
} else {
$repNav->{columns}->{templateId} = 1000;
}
}
}
unless ($identifier{cachedConfig}{$replaceId}) {
$identifier{cachedConfig}{$replaceId} = addNavigation($repNav->{columns});
}
if($doTemplate &&
! $identifier{cachedTemplate}{$replaceId."_".$repNav->{columns}->{seperator}}) {
WebGUI::SQL->write("insert into template (templateId,namespace,name,template) values
($repNav->{columns}->{templateId}, ".quote('Navigation').", ".
quote("AutoGen ".$macro).", ".quote($repNav->{template}).")");
}
my $replacement = "^Navigation($identifier{cachedConfig}{$replaceId});";
# print "\tReplacing macro $macro with $replacement ";
$code =~ s/\Q$macro/$replacement/ges;
}
}
my ($update, @where);
$update = "UPDATE $table SET $column=".quote($code)." WHERE ";
foreach (@{$dbFields{$table}{id}}){
push (@where, $_."=".quote($data->{$_}));
}
$update .= join (" AND ", @where);
WebGUI::SQL->write($update);
}
}
$sth->finish;
}
WebGUI::Session::close();
#-------------------------------------------------------------------
sub _positionFormat5x {
return "";
}
#-------------------------------------------------------------------
sub _positionFormat6x {
my $newPositionCode = '
';
return $newPositionCode;
}
#--------------------------------------------
sub addNavigation {
my $properties = shift;
# use Data::Dumper; print "\n\n". Dumper($properties);
my $navId = (getNextId("navigationId") || WebGUI::SQL->quickArray("SELECT MAX(navigationId) FROM Navigation") + 1);
my $identifier = $properties->{identifier}."_".$navId;
WebGUI::SQL->write("INSERT INTO Navigation(navigationId, identifier) VALUES ($navId, ".quote($identifier).")");
my ($update, @set);
$update = "UPDATE Navigation SET ";
foreach (keys %{$properties}){
next if (/seperator/i);
push (@set, $_."=".quote($properties->{$_})) unless($_ eq "identifier");
}
$update .= join(",", @set);
$update .= " WHERE navigationId=".quote($navId);
WebGUI::SQL->write($update);
return $identifier;
}
#--------------------------------------------
|