loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.314.2.2, 2008/12/21 15:47:50	version 1.314.2.3, 2008/12/21 15:48:43
Line 1279 sub do_paste_from_buffer {	Line 1279 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;