diff --git a/docs/upgrades/upgrade_6.7.8-6.8.0.pl b/docs/upgrades/upgrade_6.7.8-6.8.0.pl index 57014da03..a80d3f85c 100644 --- a/docs/upgrades/upgrade_6.7.8-6.8.0.pl +++ b/docs/upgrades/upgrade_6.7.8-6.8.0.pl @@ -42,8 +42,74 @@ addZipArchive(); updateUserProfileDayLabels(); changeSelectListToSelectBox(); fixVeryLateDates(); +updateFolderTemplate(); finish(); +#------------------------------------------------- +sub updateFolderTemplate { + print "\tUpdate folder template\n" unless ($quiet); + my $template = < + + +

+
+ + +

+
+ + + + + + +

Add files.

+
+ + + + + + + + + + + + + + + + + + + +
+ <tmpl_var title> + + +
+ + + + + + <tmpl_var title> + + + + ^D("%z %Z",); + + +
+STOP + my $asset = WebGUI::Asset->new("PBtmpl0000000000000078","WebGUI::Asset::Template"); + if (defined $asset) { + $asset->addRevision({template=>$template})->commit; + } +} + #------------------------------------------------- sub addZipArchive { print "\tAdding Zip Archive Asset\n" unless ($quiet); diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm index 01594605e..af046f353 100644 --- a/lib/WebGUI.pm +++ b/lib/WebGUI.pm @@ -98,7 +98,7 @@ sub contentHandler { } ### form variables foreach ($session{req}->param) { - $session{form}{$_} = $session{req}->param($_); + $session{form}{$_} = $session{req}->body($_) || $session{req}->param($_); } if ($session{env}{HTTP_X_MOZ} eq "prefetch") { # browser prefetch is a bad thing WebGUI::HTTP::setStatus("403","We don't allow prefetch, because it increases bandwidth, hurts stats, and can break web sites.");