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:
parent
5a00148928
commit
f9f773a785
4 changed files with 88 additions and 41 deletions
|
|
@ -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
|
||||
|
|
|
|||
37
docs/upgrades/upgrade_6.2.7-6.3.0.pl
Normal file
37
docs/upgrades/upgrade_6.2.7-6.3.0.pl
Normal 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();
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue