preparing for 7.0.8 bugfix cycle

- Fixed a couple of minor bugs with the default values of the Request
   Approval for Version Tag workflow activity.
 - Updated the hoverhelp to denote that you can use ranges in the WebGUI
   scheduler.
This commit is contained in:
JT Smith 2006-09-15 04:58:03 +00:00
parent a1bf6a2b21
commit 7852441151
7 changed files with 171 additions and 19 deletions

View file

@ -1,3 +1,9 @@
7.0.8
- Fixed a couple of minor bugs with the default values of the Request
Approval for Version Tag workflow activity.
- Updated the hoverhelp to denote that you can use ranges in the WebGUI
scheduler.
7.0.7
- rfe: Image Management (funded by Formation Design Systems)
- fix: can't change default size of text fields (midellaq)

File diff suppressed because one or more lines are too long

View file

@ -0,0 +1,125 @@
#-------------------------------------------------------------------
# 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.8"; # make this match what version you're going to
my $quiet; # this line required
my $session = start(); # this line required
# upgrade functions go here
finish($session); # this line required
##-------------------------------------------------
#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,"<templates-".$toVersion."/".$file);
my $first = 1;
my $create = 0;
my $head = 0;
my %properties = (className=>"WebGUI::Asset::Template");
while (my $line = <FILE>) {
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;
}

View file

@ -1,5 +1,5 @@
package WebGUI;
our $VERSION = "7.0.7";
our $VERSION = "7.0.8";
our $STATUS = "stable";
#-------------------------------------------------------------------

View file

@ -101,11 +101,19 @@ Removes this workflow and everything associated with it..
sub delete {
my $self = shift;
# delete crons
foreach my $cron (@{$self->getCrons}) {
$cron->delete;
}
foreach my $instance (@{$self->getInstances}) {
$instance->delete;
}
foreach my $activity (@{$self->getActivities}) {
$activity->delete;
}
# delete instances
$self->session->db->deleteRow("Workflow","workflowId",$self->getId);
$self = undef;
}

View file

@ -70,8 +70,9 @@ sub definition {
},
doOnDeny => {
fieldType=>"workflow",
defaultValue=>"pbwf",
defaultValue=>"pbworkflow000000000006",
label=>$i18n->get("do on deny"),
type=>"WebGUI::VersionTag",
hoverHelp => $i18n->get("do on deny help")
}
}

View file

@ -2,7 +2,7 @@ package WebGUI::i18n::English::Workflow_Cron;
our $I18N = {
'day of week help' => {
message => q|Which day of the week do you want this workflow triggered? The range is between 0 and 6 where 0 is Sunday. You can specify a specific day like "0" or "2". You may also specify all days of the week by "*". And finally you can specify a list of days of the week like "1,5,6".|,
message => q|Which day of the week do you want this workflow triggered? The range is between 0 and 6 where 0 is Sunday. You can specify a specific day like "0" or "2". You can specify a range like "3-6". You may also specify all days of the week by "*". And finally you can specify a list of days of the week like "1,5,6".|,
context => q|the hover help for the month of year field|,
lastUpdated => 0,
},
@ -14,7 +14,7 @@ our $I18N = {
},
'month of year help' => {
message => q|Which month of the year do you want this workflow triggered? The range is between 1 and 12. You can specify a specific month like "2" or 12". You may also specify all months by "*". You can specify intervals like "*/3" (every 3 months). And finally you can specify a list of months like "1,5,11".|,
message => q|Which month of the year do you want this workflow triggered? The range is between 1 and 12. You can specify a specific month like "2" or 12". You can specify a range like "3-6". You may also specify all months by "*". You can specify intervals like "*/3" (every 3 months). And finally you can specify a list of months like "1,5,11".|,
context => q|the hover help for the month of year field|,
lastUpdated => 1154368718,
},
@ -26,7 +26,7 @@ our $I18N = {
},
'day of month help' => {
message => q|Which day of the month do you want this workflow triggered? The range is between 1 and 31. You can specify a specific day like "2" or 12". You may also specify all days by "*". You can specify intervals like "*/3" (every 3 days). And finally you can specify a list of days like "1,5,11".|,
message => q|Which day of the month do you want this workflow triggered? The range is between 1 and 31. You can specify a specific day like "2" or 12". You can specify a range like "3-6". You may also specify all days by "*". You can specify intervals like "*/3" (every 3 days). And finally you can specify a list of days like "1,5,11".|,
context => q|the hover help for the day of month field|,
lastUpdated => 0,
},
@ -38,7 +38,7 @@ our $I18N = {
},
'hour of day help' => {
message => q|Which hour of the day do you want this workflow triggered? The range is between 0 and 23. You can specify a specific hour like "0" or 12". You may also specify all hours by "*". You can specify intervals like "*/3" (every 3 hours). And finally you can specify a list of hours like "1,5,17,21".|,
message => q|Which hour of the day do you want this workflow triggered? The range is between 0 and 23. You can specify a specific hour like "0" or 12". You may also specify all hours by "*". You can specify a range like "3-6". You can specify intervals like "*/3" (every 3 hours). And finally you can specify a list of hours like "1,5,17,21".|,
context => q|the hover help for the hour of day field|,
lastUpdated => 0,
},
@ -50,7 +50,7 @@ our $I18N = {
},
'minute of hour help' => {
message => q|Which minute of the hour do you want this workflow triggered? The range is between 0 and 59. You can specify a specific minute like "0" or 12". You may also specify all minutes by "*". You can specify intervals like "*/3" (every 3 minutes). And finally you can specify a list of minutes like "1,5,17,24".|,
message => q|Which minute of the hour do you want this workflow triggered? The range is between 0 and 59. You can specify a specific minute like "0" or 12". You may also specify all minutes by "*". You can specify a range like "3-6". You can specify intervals like "*/3" (every 3 minutes). And finally you can specify a list of minutes like "1,5,17,24".|,
context => q|the hover help for the minute of hour field|,
lastUpdated => 0,
},