loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.289, 2007/07/12 23:56:29	version 1.290, 2007/07/13 00:29:21
Line 1259 sub do_paste_from_buffer {	Line 1259 sub do_paste_from_buffer {
&Apache::lonnet::getfile($url));	&Apache::lonnet::getfile($url));
$url = $newurl;	$url = $newurl;
}	}
	# published maps can only exists once, so remove it from paste buffer when done
if (($url=~/\.(page\|sequence)$/) && ($url=~m {^/res/})) {	if (($url=~/\.(page\|sequence)$/) && ($url=~m {^/res/})) {
&Apache::lonnet::delenv('docs\\.markedcopy');	&Apache::lonnet::delenv('docs\\.markedcopy');
}	}
	if ($url=~ m{/smppg$}) {
	my $db_name = &Apache::lonsimplepage::get_db_name($url);
	if ($db_name =~ /^smppage_/) {
	#simple pages, need to copy the db contents to a new one.
	my %contents=&Apache::lonnet::dump($db_name,$coursedom,$coursenum);
	my $now = time();
	$db_name =~ s{_\d*$ }{_$now}x;
	my $result=&Apache::lonnet::put($db_name,\%contents,
	$coursedom,$coursenum);
	$url =~ s{/(\d*)/smppg$ }{/$now/smppg}x;
	$title=&mt('Copy of').' '.$title;
	}
	}
$title = &LONCAPA::map::qtunescape($title);	$title = &LONCAPA::map::qtunescape($title);
my $ext='false';	my $ext='false';
if ($url=~m{^http(\|s)://}) { $ext='true'; }	if ($url=~m{^http(\|s)://}) { $ext='true'; }