[Scoop-checkins] scoop/lib/Scoop/Users Prefs.pm

[scoop at lithium.sabren.com]

Update of /cvs/scoop/scoop/lib/Scoop/Users
In directory lithium.sabren.com:/tmp/cvs-serv30994/lib/Scoop/Users

Modified Files:
	Prefs.pm 
Log Message:
bugs 147 and 170: small bugfixes for userprefs and story permissions, 
respectively.

-janra



Index: Prefs.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop/Users/Prefs.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Prefs.pm	25 Jan 2005 17:15:24 -0000	1.4
--- Prefs.pm	10 Feb 2005 23:08:50 -0000	1.5
***************
*** 344,347 ****
--- 344,348 ----
  	# skip unchanged params
  	return if $user->{prefs}->{$pref} eq $value;
+ 	return if ( !defined($user->{prefs}->{$pref}) && ($value eq $S->{PREF_ITEMS}->{$pref}->{default_value}) );
  	# check length then regexp
  	if ( $pref_item->{length} ) {