version 1.322, 2008/12/15 06:09:37
|
version 1.323, 2008/12/15 06:32:01
|
Line 1280 sub do_paste_from_buffer {
|
Line 1280 sub do_paste_from_buffer {
|
# Maps need to be copied first |
# Maps need to be copied first |
if (($url=~/\.(page|sequence)$/) && ($url=~/^\/uploaded\//)) { |
if (($url=~/\.(page|sequence)$/) && ($url=~/^\/uploaded\//)) { |
$title=&mt('Copy of').' '.$title; |
$title=&mt('Copy of').' '.$title; |
my $newid=$$.time; |
my $newid=$$.int(rand(100)).time; |
my ($oldid,$ext) = ($url=~/^(.+)\.(\w+)$/); |
my ($oldid,$ext) = ($url=~/^(.+)\.(\w+)$/); |
if ($oldid =~ m{^(/uploaded/\Q$coursedom\E/\Q$coursenum\E/)(\D+)(\d+)$}) { |
if ($oldid =~ m{^(/uploaded/\Q$coursedom\E/\Q$coursenum\E/)(\D+)(\d+)$}) { |
my $path = $1; |
my $path = $1; |