loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2002/08/08 13:44:17	version 1.2, 2002/08/14 15:57:53
Line 51 sub handler {	Line 51 sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);
my $include=0;	my $include=0;
my $newstuff='';	my $newstuff='';
unless ($ENV{'form.lastid'}) { $include=1; }	unless ($ENV{'form.lastid'}) {
	$include=1;
	$newstuff='<html><body bgcolor="#FFFFFF">';
	}
foreach (@entries) {	foreach (@entries) {
if ($include) {	if ($include) {
my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_));	my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_));
Line 67 sub handler {	Line 70 sub handler {
my $sender=$snum.' at '.$sdom;	my $sender=$snum.' at '.$sdom;
if ($anon) {	if ($anon) {
}	}
$newstuff.='<b>'.$sender.'</b> ('.localtime($msgtime).'): '.	$newstuff.='<a name="'.$id.'"><b>'.
	$sender.'</b> ('.localtime($msgtime).'): '.
$contrib."<br>";	$contrib."<br>";
} else {	} else {
$_=~/^(\w+)/;	$_=~/^(\w+)/;