--- loncom/interface/lonnavmaps.pm 2007/01/05 06:43:34 1.396 +++ loncom/interface/lonnavmaps.pm 2007/01/11 21:09:39 1.397 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.396 2007/01/05 06:43:34 raeburn Exp $ +# $Id: lonnavmaps.pm,v 1.397 2007/01/11 21:09:39 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,7 +38,6 @@ use Apache::lonnet; use POSIX qw (floor strftime); use Data::Dumper; # for debugging, not always use Time::HiRes qw( gettimeofday tv_interval ); -use lib '/home/httpd/lib/perl/'; use LONCAPA; # symbolic constants @@ -1802,6 +1801,7 @@ See iterator documentation below. use strict; use GDBM_File; use Apache::lonnet; +use LONCAPA; sub new { # magic invocation to create a class instance @@ -2057,7 +2057,7 @@ sub discussion_info { my $ressymb = $self->wrap_symb($symb); # keys used to store bulletinboard postings use 'unwrapped' symb. - my $discsymb = $self->unwrap_symb($ressymb); + my $discsymb = &escape($self->unwrap_symb($ressymb)); my $version = $self->{DISCUSSION_DATA}{'version:'.$discsymb}; if (!$version) { return; }