[Scoop-checkins] scoop/lib/Scoop/Comments Post.pm

[scoop at sodium.sabren.com]

Update of /cvs/scoop/scoop/lib/Scoop/Comments
In directory sodium.sabren.com:/tmp/cvs-serv14523/lib/Scoop/Comments

Modified Files:
	Post.pm 
Log Message:
Fixes for userprefs (and comment post form) and some patented rusty 
"wouldn't it be cool if" features for userprefs.

-janra



Index: Post.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop/Comments/Post.pm,v
retrieving revision 1.73
retrieving revision 1.74
diff -C2 -d -r1.73 -r1.74
*** Post.pm	4 Aug 2004 21:49:48 -0000	1.73
--- Post.pm	17 Aug 2004 19:03:41 -0000	1.74
***************
*** 114,120 ****
  	} 
  	
- 	$keys->{'not_logged_in'} = $S->{UI}->{BLOCKS}->{comment_not_logged_in} if ($S->{UID} <= 0);
- 
  	my $anon = $S->get_nick_from_uid('-1');
  	my $self = $S->{NICK};
  	my $content = '';
--- 114,124 ----
  	} 
  	
  	my $anon = $S->get_nick_from_uid('-1');
+ 
+ 	if ($S->{UID} <= 0) {
+ 		$keys->{'not_logged_in'} = $S->{UI}->{BLOCKS}->{comment_not_logged_in};
+ 		$keys->{'not_logged_in'} =~ s/%%anon_user_nick%%/$anon/g;
+ 	}
+ 
  	my $self = $S->{NICK};
  	my $content = '';