--- loncom/interface/loncommon.pm 2008/09/11 14:47:21 1.683 +++ loncom/interface/loncommon.pm 2008/09/11 15:15:29 1.684 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.683 2008/09/11 14:47:21 bisitz Exp $ +# $Id: loncommon.pm,v 1.684 2008/09/11 15:15:29 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -9344,7 +9344,7 @@ sub init_user_environment { } # Give them a new cookie my $id = ($args->{'robot'} ? 'robot'.$args->{'robot'} - : $now); + : $now.$$.int(rand(10000))); $cookie="$username\_$id\_$domain\_$authhost"; # Initialize roles