loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.125, 2004/09/13 12:49:42	version 1.126, 2004/09/15 06:17:11
Line 165 sub list_discussion {	Line 165 sub list_discussion {
}	}

# Get discussion display default settings for user	# Get discussion display default settings for user
my %userenv = &Apache::lonnet::get('environment',['discdisplay','discmarkread'],$ENV{'user.domain'},$ENV{'user.name'});	if ($ENV{'environment.discdisplay'} eq 'unread') {
my $discdisplay=$userenv{'discdisplay'};
if ($discdisplay eq 'unread') {
$showonlyunread = 1;	$showonlyunread = 1;
}	}
my $discmarkread=$userenv{'discmarkread'};	if ($ENV{'environment.discmarkread'} eq 'ondisp') {
if ($discmarkread eq 'ondisp') {
$markondisp = 1;	$markondisp = 1;
}	}

Line 1054 sub get_post_contents {	Line 1051 sub get_post_contents {
return $discussion;	return $discussion;
}	}
}	}
$$screenname=&Apache::loncommon::screenname(	# $$screenname=&Apache::loncommon::screenname(
$$contrib{$idx.':sendername'},	# $$contrib{$idx.':sendername'},
$$contrib{$idx.':senderdomain'});	# $$contrib{$idx.':senderdomain'});
$$plainname=&Apache::loncommon::nickname(	# $$plainname=&Apache::loncommon::nickname(
$$contrib{$idx.':sendername'},	# $$contrib{$idx.':sendername'},
$$contrib{$idx.':senderdomain'});	# $$contrib{$idx.':senderdomain'});
	($$screenname,$$plainname)=($$contrib{$idx.':screenname'},
	$$contrib{$idx.':plainname'});
my $sender=&Apache::loncommon::aboutmewrapper(	my $sender=&Apache::loncommon::aboutmewrapper(
$$plainname,	$$plainname,
$$contrib{$idx.':sendername'},	$$contrib{$idx.':sendername'},