--- loncom/interface/loncommon.pm 2008/09/19 22:52:41 1.679.2.2 +++ loncom/interface/loncommon.pm 2008/09/19 22:54:46 1.679.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.679.2.2 2008/09/19 22:52:41 raeburn Exp $ +# $Id: loncommon.pm,v 1.679.2.3 2008/09/19 22:54:46 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -9323,7 +9323,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