--- loncom/interface/loncommon.pm 2013/09/29 06:57:54 1.1075.2.54 +++ loncom/interface/loncommon.pm 2013/11/20 05:11:34 1.1075.2.55 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1075.2.54 2013/09/29 06:57:54 raeburn Exp $ +# $Id: loncommon.pm,v 1.1075.2.55 2013/11/20 05:11:34 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -9861,12 +9861,13 @@ sub ask_for_embedded_content { } else { $embed_file = $file; } - my $absolutepath; - my $cleaned_file = &clean_path($embed_file); - if ($cleaned_file =~ m{^\w+://}) { + my ($absolutepath,$cleaned_file); + if ($embed_file =~ m{^\w+://}) { + $cleaned_file = $embed_file; $newfiles{$cleaned_file} = 1; $mapping{$cleaned_file} = $embed_file; } else { + $cleaned_file = &clean_path($embed_file); if ($embed_file =~ m{^/}) { $absolutepath = $embed_file; }