Renamed Navigation template variables and provided upgrade script.

Added Navigation template variables page.inRoot and basepage.hasDaughters
Updated Help documentation and changelog.
This commit is contained in:
Colin Kuskie 2004-10-13 04:41:14 +00:00
parent 5a00148928
commit f9f773a785
4 changed files with 88 additions and 41 deletions

View file

@ -5,6 +5,8 @@
- bugfix [1041937] List Roots broken
- bugfix [1042680] collateralImport.pl --folderId
- Fixed typo in Wobjects/IndexedSearch.pm
- Navigation template variable rename, added template variables for
basepage.hasDaughter, page.inRoot.
6.2.7

View file

@ -0,0 +1,37 @@
#!/usr/bin/perl
use lib "../../lib";
use Getopt::Long;
use strict;
use WebGUI::Id;
use WebGUI::Page;
use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::URL;
my $configFile;
my $quiet;
GetOptions(
'configFile=s'=>\$configFile,
'quiet'=>\$quiet
);
WebGUI::Session::open("../..",$configFile);
print "\tFixing navigation template variables.\n" unless ($quiet);
my $sth = WebGUI::SQL->read("select * from template where namespace in ('Navigation')");
while (my $data = $sth->hashRef) {
$data->{template} =~ s/page.current/basepage/ig;
$data->{template} =~ s/isMy/is/ig;
$data->{template} =~ s/isCurrent/isBasepage/ig;
$data->{template} =~ s/inCurrentRoot/inBranch/ig;
WebGUI::SQL->write("update template set template=".quote($data->{template})." where namespace=".quote($data->{namespace})." and templateId=".quote($data->{templateId}));
}
$sth->finish;
WebGUI::Session::close();