Commit info for scoop/lib:
Modified Files:
Scoop.pm
Log Message:
Checking in two janra patches. One takes the new user emails out of the code
and puts them into blocks, while the other fixes some error messages coming out
the who's online code. Also including the new, table-bound whos_online box,
since it never made it into the default db.
Index: Scoop.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop.pm,v
retrieving revision 1.130
retrieving revision 1.131
diff -r1.130 -r1.131
1749,1750c1749,1750
< my ($to, $subject, $content) = @_;
< my $from = $S->{UI}->{VARS}->{local_email};
---
> my ($to, $subject, $content, $from) = @_;
> $from ||= $S->{UI}->{VARS}->{local_email};
2036,2038c2036,2038
< SET => "uid = $uid, last_visit = NULL",
< WHERE => "ip = '$ip'"});
< warn "rv = $rv\n";
---
> SET => "last_visit = NULL",
> WHERE => "ip = '$ip' AND uid = '$uid'"});
> warn "rv = $rv\n" if $DEBUG;
2041c2041
< if ($rv != 1){
---
> unless ($rv == 1) {