diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 462baf92e..66987c538 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -1,6 +1,7 @@ 7.0.9 - partial fix: invalid Message-ID headers in outgoing mail - fix: HttpProxy not doing file uploads correctly + - fix: leftover discussion template variables in Default Article template 7.0.8 - Fixed a couple of minor bugs with the default values of the Request diff --git a/docs/upgrades/templates-7.0.9/default_article.tmpl b/docs/upgrades/templates-7.0.9/default_article.tmpl new file mode 100644 index 000000000..29f1a6340 --- /dev/null +++ b/docs/upgrades/templates-7.0.9/default_article.tmpl @@ -0,0 +1,46 @@ +#PBtmpl0000000000000002 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +· + +· + + + + + + + + diff --git a/docs/upgrades/upgrade_7.0.8-7.0.9.pl b/docs/upgrades/upgrade_7.0.8-7.0.9.pl new file mode 100644 index 000000000..c2a88cc84 --- /dev/null +++ b/docs/upgrades/upgrade_7.0.8-7.0.9.pl @@ -0,0 +1,124 @@ +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2006 Plain Black Corporation. +#------------------------------------------------------------------- +# Please read the legal notices (docs/legal.txt) and the license +# (docs/license.txt) that came with this distribution before using +# this software. +#------------------------------------------------------------------- +# http://www.plainblack.com info@plainblack.com +#------------------------------------------------------------------- + +use lib "../../lib"; +use strict; +use Getopt::Long; +use WebGUI::Session; + + +my $toVersion = "7.0.9"; +my $quiet; + +my $session = start(); + +# upgrade functions go here + +finish($session); + + +##------------------------------------------------- +#sub exampleFunction { +# my $session = shift; +# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); +# # and here's our code +#} + + + +# ---- DO NOT EDIT BELOW THIS LINE ---- + +#------------------------------------------------- +sub start { + my $configFile; + $|=1; #disable output buffering + GetOptions( + 'configFile=s'=>\$configFile, + 'quiet'=>\$quiet + ); + my $session = WebGUI::Session->open("../..",$configFile); + $session->user({userId=>3}); + my $versionTag = WebGUI::VersionTag->getWorking($session); + $versionTag->set({name=>"Upgrade to ".$toVersion}); + $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")"); + updateTemplates($session); + return $session; +} + +#------------------------------------------------- +sub finish { + my $session = shift; + my $versionTag = WebGUI::VersionTag->getWorking($session); + $versionTag->commit; + $session->close(); +} + +#------------------------------------------------- +sub updateTemplates { + my $session = shift; + return undef unless (-d "templates-".$toVersion); + print "\tUpdating templates.\n" unless ($quiet); + opendir(DIR,"templates-".$toVersion); + my @files = readdir(DIR); + closedir(DIR); + my $importNode = WebGUI::Asset->getImportNode($session); + my $newFolder = undef; + foreach my $file (@files) { + next unless ($file =~ /\.tmpl$/); + open(FILE,""WebGUI::Asset::Template"); + while (my $line = ) { + if ($first) { + $line =~ m/^\#(.*)$/; + $properties{id} = $1; + $first = 0; + } elsif ($line =~ m/^\#create$/) { + $create = 1; + } elsif ($line =~ m/^\#(.*):(.*)$/) { + $properties{$1} = $2; + } elsif ($line =~ m/^~~~$/) { + $head = 1; + } elsif ($head) { + $properties{headBlock} .= $line; + } else { + $properties{template} .= $line; + } + } + close(FILE); + if ($create) { + $newFolder = createNewTemplatesFolder($importNode) unless (defined $newFolder); + my $template = $newFolder->addChild(\%properties, $properties{id}); + } else { + my $template = WebGUI::Asset->new($session,$properties{id}, "WebGUI::Asset::Template"); + if (defined $template) { + my $newRevision = $template->addRevision(\%properties); + } + } + } +} + +#------------------------------------------------- +sub createNewTemplatesFolder { + my $importNode = shift; + my $newFolder = $importNode->addChild({ + className=>"WebGUI::Asset::Wobject::Folder", + title => $toVersion." New Templates", + menuTitle => $toVersion." New Templates", + url=> $toVersion."_new_templates", + groupIdView=>"12" + }); + return $newFolder; +} + + +