[otrs-cvs] Survey/Kernel/System Survey.pm,1.73,1.74

Comments:
Update of /home/cvs/Survey/Kernel/System
In directory lancelot:/tmp/cvs-serv28093/Kernel/System

Modified Files:
	Survey.pm 
Log Message:
Fixed Bug#9544 thanx to Daniel Santos.

Author: jh

Index: Survey.pm
===================================================================
RCS file: /home/cvs/Survey/Kernel/System/Survey.pm,v
retrieving revision 1.73
retrieving revision 1.74
diff -2 -u -d -r1.73 -r1.74
--- Survey.pm	22 Nov 2012 14:22:11 -0000	1.73
+++ Survey.pm	24 Jun 2013 15:08:56 -0000	1.74
@@ -1,5 +1,5 @@
 # --
 # Kernel/System/Survey.pm - all survey funtions
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -1852,7 +1852,13 @@
 
     # create PublicSurveyKey
-    my $md5 = Digest::MD5->new();
-    $md5->add( $Self->{TimeObject}->SystemTime() . int( rand(999999999) ) );
-    my $PublicSurveyKey = $md5->hexdigest;
+    my $PublicSurveyKey;
+    if ( !$Param{PublicSurveyKey} ) {
+        my $md5 = Digest::MD5->new();
+        $md5->add( $Self->{TimeObject}->SystemTime() . int( rand(999999999) ) );
+        $PublicSurveyKey = $md5->hexdigest;
+    }
+    else {
+        $PublicSurveyKey = $Param{PublicSurveyKey};
+    }
 
     # find master survey
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log