loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.264, 2006/12/05 02:55:52	version 1.265, 2007/01/05 16:40:27
Line 913 sub group_import {	Line 913 sub group_import {
while (@_) {	while (@_) {
my $name = shift;	my $name = shift;
my $url = shift;	my $url = shift;
if (($url =~ m#^/uploaded/$coursedom/$coursenum/(default_\d+\.)(page\|sequence)$#) && ($caller eq 'londocs')) {	if (($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page\|sequence)$}) && ($caller eq 'londocs')) {
my $errtext = '';	my $errtext = '';
my $fatal = 0;	my $fatal = 0;
my $newmapstr = '<map>'."\n".	my $newmapstr = '<map>'."\n".
Line 1617 sub process_secondary_uploads {	Line 1617 sub process_secondary_uploads {
$destination .= $newidx;	$destination .= $newidx;
my ($url,$filename);	my ($url,$filename);
$url=&Apache::lonnet::userfileupload($formname.$num,1,$destination);	$url=&Apache::lonnet::userfileupload($formname.$num,1,$destination);
($filename) = ($url =~ m-^/uploaded/$coursedom/$coursenum/$destination/(.+)$-);	($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});
return $filename;	return $filename;
}	}