diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 984fc3beb..3569a492c 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -7,6 +7,7 @@ - WebGUI::Crud can now automatically resolve differences between its definition and the table schema. - Fixed a limit bug in the asset discovery service. + - Fixed #8853: link to manageWorkflows is broken 7.6.1 - changed: the list of extensions for the export system to pass through diff --git a/docs/upgrades/upgrade_7.6.1-7.6.2.pl b/docs/upgrades/upgrade_7.6.1-7.6.2.pl index 56ff732bf..3a1955c40 100644 --- a/docs/upgrades/upgrade_7.6.1-7.6.2.pl +++ b/docs/upgrades/upgrade_7.6.1-7.6.2.pl @@ -29,7 +29,7 @@ my $quiet; # this line required my $session = start(); # this line required # upgrade functions go here - +repairManageWorkflows($session); finish($session); # this line required @@ -42,6 +42,19 @@ finish($session); # this line required # print "DONE!\n" unless $quiet; #} +#---------------------------------------------------------------------------- +sub repairManageWorkflows { + my $session = shift; + print "\tCorrecting the Manage Workflow link in configuration file... " unless $quiet; + # and here's our code + my $ac = $session->config->get('adminConsole'); + if (exists $ac->{'workflow'}) { + $ac->{'workflow'}->{'url'} = "^PageUrl(\"\",op=manageWorkflows);"; + $session->config->set('adminConsole', $ac); + } + print "DONE!\n" unless $quiet; +} + # -------------- DO NOT EDIT BELOW THIS LINE -------------------------------- diff --git a/etc/WebGUI.conf.original b/etc/WebGUI.conf.original index 26acdbeec..b45709b46 100644 --- a/etc/WebGUI.conf.original +++ b/etc/WebGUI.conf.original @@ -325,7 +325,7 @@ "workflow" : { "icon" : "workflow.gif", "uiLevel" : 7, - "url" : "^PageUrl(\"\",manageWorkflows);", + "url" : "^PageUrl(\"\",op=manageWorkflows);", "title" : "^International(topicName,Workflow);", "groupSetting" : "groupIdAdminWorkflow" },