[interchange-cvs] interchange - jon modified lib/Vend/Data.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Mar 8 15:57:21 EST 2008


User:      jon
Date:      2008-03-08 20:57:21 GMT
Modified:  lib/Vend Data.pm
Log:
Allow empty field changes to stick, fixing "(none)" image selections.

Fix by David Christensen <david at endpoint.com>.

Same problem as mentioned by Cameron Prince on interchange-users 2007-02-10,
but this fix covers more cases.

Revision  Changes    Path
2.64      +1 -10     interchange/lib/Vend/Data.pm


rev 2.64, prev_rev 2.63
Index: Data.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Data.pm,v
retrieving revision 2.63
retrieving revision 2.64
diff -u -u -r2.63 -r2.64
--- Data.pm	30 Mar 2007 11:39:44 -0000	2.63
+++ Data.pm	8 Mar 2008 20:57:21 -0000	2.64
@@ -1,6 +1,6 @@
 # Vend::Data - Interchange databases
 #
-# $Id: Data.pm,v 2.63 2007/03/30 11:39:44 pajamian Exp $
+# $Id: Data.pm,v 2.64 2008/03/08 20:57:21 jon Exp $
 # 
 # Copyright (C) 2002-2007 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -1835,8 +1835,6 @@
 	my $prikey		= $CGI::values{mv_data_key};
 	my $decode		= is_yes($CGI::values{mv_data_decode});
 
-	my %skip_for_now;
-
 	my $en_col;
 #::logDebug("data_enable=$::Scratch->{mv_data_enable}, checking");
 	if($::Scratch->{mv_data_enable} =~ /^(\w+):(.*?):/s) {
@@ -2010,9 +2008,6 @@
 				if($file_oldfiles[$i]) {
 					$dref->[0] = $file_oldfiles[$i];
 				}
-				else {
-					$skip_for_now{$nm} = 1;
-				}
 				next;
 			}
 
@@ -2172,8 +2167,6 @@
 #::logDebug("iteration of update_data:db=$base_db key=$prikey data=" . ::uneval(\%data));
 		@k = (); @v = ();
 		for(keys %data) {
-
-			next if $skip_for_now{$_};
 			next unless (length($value = $data{$_}->[$i]) || $CGI::values{mv_update_empty} );
 			push(@k, $_);
 # LEGACY
@@ -2299,8 +2292,6 @@
 				if $CGI::values{mv_data_email};
 		}
 	}
-
-	%skip_for_now = ();
 
 	if(my $new = shift(@multis)) {
 		last SETDATA unless length $CGI::values{"${new}_$multiqual"};








More information about the interchange-cvs mailing list