--- loncom/interface/londocs.pm 2008/12/15 06:09:37 1.322 +++ loncom/interface/londocs.pm 2008/12/15 06:32:01 1.323 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.322 2008/12/15 06:09:37 raeburn Exp $ +# $Id: londocs.pm,v 1.323 2008/12/15 06:32:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1280,7 +1280,7 @@ sub do_paste_from_buffer { # Maps need to be copied first if (($url=~/\.(page|sequence)$/) && ($url=~/^\/uploaded\//)) { $title=&mt('Copy of').' '.$title; - my $newid=$$.time; + my $newid=$$.int(rand(100)).time; my ($oldid,$ext) = ($url=~/^(.+)\.(\w+)$/); if ($oldid =~ m{^(/uploaded/\Q$coursedom\E/\Q$coursenum\E/)(\D+)(\d+)$}) { my $path = $1;