- fix [ 1381694 ] Unable to reset votes on poll

- fix [ 1381309 ] FormParam macro returns always undef
 - fix [ 1379595 ] http proxy broken
 - fix [ 1379060 ] Unable to view subscription codes

docs/changelog/6.x.x.txt

@@ -5,6 +5,10 @@
  - fix [ 1381551 ] epochToHuman for foreign languages
  - fix [ 1381305 ] SQLReports report nothing!!!
  - fix [ 1381873 ] Matrix missing toolbar
+ - fix [ 1381694 ] Unable to reset votes on poll
+ - fix [ 1381309 ] FormParam macro returns always undef
+ - fix [ 1379595 ] http proxy broken
+ - fix [ 1379060 ] Unable to view subscription codes
 
 
 6.8.2

docs/upgrades/upgrade_6.8.2-6.8.3.pl

@@ -14,6 +14,7 @@ use Getopt::Long;
 use WebGUI::Session;
 use WebGUI::SQL;
 use WebGUI::Asset;
+use Parse::PlainConfig;
 
 my $toVersion = "6.8.3"; # make this match what version you're going to
 my $quiet; # this line required

lib/WebGUI/Asset/Wobject/HttpProxy/Parse.pm

@@ -37,6 +37,11 @@ my %tag_attr = (
 	"script src" => 1
 	);
 
+sub DESTROY {
+	my $self = shift;
+	$self = undef;
+}
+
 sub new {
   	my $pack = shift;
   	my $self = $pack->SUPER::new();

lib/WebGUI/Asset/Wobject/Poll.pm

@@ -238,7 +238,7 @@ sub getEditForm {
 		-name=>"resetVotes",
 		-label=>WebGUI::International::get(10,"Asset_Poll"),
 		-hoverHelp=>WebGUI::International::get('10 description',"Asset_Poll")
-		) if $session{form}{func} eq 'add';
+		) if $session{form}{func} ne 'add';
 	return $tabform;
 }
 

lib/WebGUI/DateTime.pm

@@ -130,7 +130,9 @@ The number of seconds to add to the epoch.
 =cut
 
 sub addToTime {
-	my $date		= DateTime->from_epoch( epoch =>shift);
+	my $epoch = shift;
+	return undef unless $epoch;
+	my $date		= DateTime->from_epoch( epoch =>$epoch);
 	my $hours 		= shift || 0;
 	my $mins	 	= shift || 0;
 	my $secs	 	= shift || 0;

lib/WebGUI/Macro/FormParam.pm

@@ -15,7 +15,7 @@ use WebGUI::Session;
 
 #-------------------------------------------------------------------
 sub process {
-	return $session{form}{shift};
+	return $session{req}->param(shift) if ($session{req});
 }