- 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

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});
 }