cvsuser 05/01/07 05:39:40
Modified: App-Repository/lib/App/ValueDomain Repository.pm
Log:
fix bug that caused a reload on every access to a non-qualified value domain
Revision Changes Path
1.2 +2 -2 p5ee/App-Repository/lib/App/ValueDomain/Repository.pm
Index: Repository.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Repository/lib/App/ValueDomain/Repository.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Repository.pm 22 Mar 2003 04:04:36 -0000 1.1
+++ Repository.pm 7 Jan 2005 13:39:40 -0000 1.2
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Repository.pm,v 1.1 2003/03/22 04:04:36 spadkins Exp $
+## $Id: Repository.pm,v 1.2 2005/01/07 13:39:40 spadkins Exp $
#############################################################################
package App::ValueDomain::Repository;
@@ -80,7 +80,7 @@
if (defined $repository && $repository ne "") { #
repository-based domain
if (!defined $values || !defined $labels || #
never loaded them yet
(!$values_string && $self->{values_string}) || # asking for
the whole domain, only subset loaded
- ($values_string && $self->{values_string} && # asking for a
different subset than is loaded
+ (defined $values_string && defined $self->{values_string} && #
asking for a different subset than is loaded
$values_string ne $self->{values_string})) {
$needs_loading = 1;
}
