loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.302, 2005/12/09 20:54:23	version 1.304, 2005/12/10 00:46:23
Line 3594 sub dump_dcmail_handler {	Line 3594 sub dump_dcmail_handler {
if ($hashref) {	if ($hashref) {
while (my ($key,$value) = each(%$hashref)) {	while (my ($key,$value) = each(%$hashref)) {
my $match = 1;	my $match = 1;
$key = &unescape($key);	my ($timestamp,$subj,$uname,$udom) =
my ($timestamp,$subj,$uname,$udom) = split(/:/,&unescape($key),5);	split(/:/,&unescape(&unescape($key)),5); # yes, twice really
$timestamp = &unescape($timestamp);
$subj = &unescape($subj);	$subj = &unescape($subj);
$uname = &unescape($uname);
$udom = &unescape($udom);
unless ($startfilter eq '.' \|\| !defined($startfilter)) {	unless ($startfilter eq '.' \|\| !defined($startfilter)) {
if ($timestamp < $startfilter) {	if ($timestamp < $startfilter) {
$match = 0;	$match = 0;