loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.396, 2007/01/05 06:43:34	version 1.397, 2007/01/11 21:09:39
Line 38 use Apache::lonnet;	Line 38 use Apache::lonnet;
use POSIX qw (floor strftime);	use POSIX qw (floor strftime);
use Data::Dumper; # for debugging, not always	use Data::Dumper; # for debugging, not always
use Time::HiRes qw( gettimeofday tv_interval );	use Time::HiRes qw( gettimeofday tv_interval );
use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;

# symbolic constants	# symbolic constants
Line 1802 See iterator documentation below.	Line 1801 See iterator documentation below.
use strict;	use strict;
use GDBM_File;	use GDBM_File;
use Apache::lonnet;	use Apache::lonnet;
	use LONCAPA;

sub new {	sub new {
# magic invocation to create a class instance	# magic invocation to create a class instance
Line 2057 sub discussion_info {	Line 2057 sub discussion_info {

my $ressymb = $self->wrap_symb($symb);	my $ressymb = $self->wrap_symb($symb);
# keys used to store bulletinboard postings use 'unwrapped' 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};	my $version = $self->{DISCUSSION_DATA}{'version:'.$discsymb};
if (!$version) { return; }	if (!$version) { return; }