--- loncom/interface/londocs.pm 2008/12/21 15:47:50 1.314.2.2 +++ loncom/interface/londocs.pm 2008/12/21 15:48:43 1.314.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.314.2.2 2008/12/21 15:47:50 raeburn Exp $ +# $Id: londocs.pm,v 1.314.2.3 2008/12/21 15:48:43 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1279,7 +1279,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;