loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.273, 2007/05/22 00:38:25	version 1.274, 2007/06/11 17:13:30
Line 1586 sub ask_for_embedded_content {	Line 1586 sub ask_for_embedded_content {
foreach my $embed_file (keys(%{$allfiles})) {	foreach my $embed_file (keys(%{$allfiles})) {
$upload_output .= &Apache::loncommon::start_data_table_row().	$upload_output .= &Apache::loncommon::start_data_table_row().
'<td>'.$embed_file.'</td><td>';	'<td>'.$embed_file.'</td><td>';
if ($args->{'error_on_invalid_names'}	if ($args->{'ignore_remote_references'}
	&& $embed_file =~ m{^\w+://}) {
	$upload_output.='<span class="LC_warning">'.&mt("URL points to other server.").'</span>';
	} elsif ($args->{'error_on_invalid_names'}
&& $embed_file ne &Apache::lonnet::clean_filename($embed_file,{'keep_path' => 1,})) {	&& $embed_file ne &Apache::lonnet::clean_filename($embed_file,{'keep_path' => 1,})) {

$upload_output.='<span class="LC_warning">'.&mt("Invalid characters").'</span>';	$upload_output.='<span class="LC_warning">'.&mt("Invalid characters").'</span>';

} else {	} else {

$upload_output .='	$upload_output .='
<input name="embedded_item_'.$num.'" type="file" value="bob" />	<input name="embedded_item_'.$num.'" type="file" value="bob" />
<input name="embedded_orig_'.$num.'" type="hidden" value="'.&escape($embed_file).'" />';	<input name="embedded_orig_'.$num.'" type="hidden" value="'.&escape($embed_file).'" />';