loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.131, 2004/06/27 16:43:28	version 1.132, 2004/07/01 21:54:24
Line 157 sub dumpcourse {	Line 157 sub dumpcourse {
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
foreach (keys %replacehash) {	foreach (keys %replacehash) {
my $newfilename=$title.'/'.$replacehash{$_};	my $newfilename=$title.'/'.$replacehash{$_};
$newfilename=~s/[^\w\/\.]+/\_/g;	$newfilename=~s/[^\w\/\.\/]+/\_/g;
my @dirs=split(/\//,$newfilename);	my @dirs=split(/\//,$newfilename);
my $path='/home/'.$ca.'/public_html';	my $path='/home/'.$ca.'/public_html';
my $makepath=$path;	my $makepath=$path;
Line 224 sub dumpcourse {	Line 224 sub dumpcourse {
$title=$_;	$title=$_;
}	}
$title=~s/\.(\w+)$//;	$title=~s/\.(\w+)$//;
$title=~s/\W+/\_/gs;	$title=~s/[^\w\/]+/\_/gs;
$title.='.'.$ext;	$title.='.'.$ext;
$r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");	$r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");
}	}