version 1.395, 2006/12/24 22:13:19
|
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 1916 sub generate_email_discuss_status {
|
Line 1916 sub generate_email_discuss_status {
|
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid, |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid, |
$symb,$error) = &Apache::lonmsg::unpackmsgid($msgid); |
$symb,$error) = &Apache::lonmsg::unpackmsgid($msgid); |
|
&Apache::lonenc::check_decrypt(\$symb); |
|
if (($fromcid ne '') && ($fromcid ne $cid)) { |
|
next; |
|
} |
if (defined($symb)) { |
if (defined($symb)) { |
if (defined($error) && $error == 1) { |
if (defined($error) && $error == 1) { |
$error{$symb}.=','.$msgid; |
$error{$symb}.=','.$msgid; |
Line 2053 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; } |
|
|