--- loncom/cgi/decompress.pl 2012/04/19 02:13:00 1.18 +++ loncom/cgi/decompress.pl 2012/11/27 11:33:17 1.19 @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $Id: decompress.pl,v 1.18 2012/04/19 02:13:00 raeburn Exp $ +# $Id: decompress.pl,v 1.19 2012/11/27 11:33:17 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -72,7 +72,7 @@ END } else { my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; my $lonuserroot = $Apache::lonnet::perlvar{'lonUsersDir'}; - if (($dir !~ /^\Qlondocroot\E/) && ($dir !~ /^\Q$lonuserroot\E/)) { + if (($dir !~ /^\Q$londocroot\E/) && ($dir !~ /^\Q$lonuserroot\E/)) { print(''.$lt{'extf'}.'
'."\n". &Apache::lonlocal::mt('The specified directory "[_1]" is invalid',$dir). '');