[interchange-cvs] interchange - heins modified lib/Vend/Table/Editor.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sun Apr 17 08:41:25 EDT 2005


User:      heins
Date:      2005-04-17 12:41:25 GMT
Modified:  lib/Vend/Table Editor.pm
Log:
* Correct exclusion mapping for top buttons and messages area. This corrects
  an empty table data cell which was not displaying messages when BOTTOM_BUTTONS
  was in effect.

Revision  Changes    Path
1.71      +4 -4      interchange/lib/Vend/Table/Editor.pm


rev 1.71, prev_rev 1.70
Index: Editor.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/Editor.pm,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -r1.70 -r1.71
--- Editor.pm	15 Apr 2005 13:57:05 -0000	1.70
+++ Editor.pm	17 Apr 2005 12:41:24 -0000	1.71
@@ -1,6 +1,6 @@
 # Vend::Table::Editor - Swiss-army-knife table editor for Interchange
 #
-# $Id: Editor.pm,v 1.70 2005/04/15 13:57:05 mheins Exp $
+# $Id: Editor.pm,v 1.71 2005/04/17 12:41:24 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Table::Editor;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.70 $, 10);
+$VERSION = substr(q$Revision: 1.71 $, 10);
 
 use Vend::Util;
 use Vend::Interpolate;
@@ -2723,6 +2723,7 @@
 						|| defined $opt->{include_form}
 						|| $mlabel;
 	
+	$mlabel ||= '&nbsp;';
 	if ($extra_ok and ! $opt->{no_top} and ! $opt->{nosave}) {
 	  	if($opt->{back_text}) {
 		  chunk ttag(), 'OUTPUT_MAP', <<EOF; # unless $wo;
@@ -2751,9 +2752,8 @@
 <INPUT TYPE=submit NAME=mv_click VALUE="$opt->{cancel_text}"$opt->{cancel_button_extra}>&nbsp;<B><INPUT TYPE=submit NAME=mv_click VALUE="$opt->{next_text}"$opt->{next_button_extra}></B>
 <BR>
 EOF
-			chunk 'MLABEL', 'BOTTOM_BUTTONS OUTPUT_MAP', 'MESSAGES', $mlabel;
+			chunk 'MLABEL', 'NO_TOP OUTPUT_MAP', 'MESSAGES', $mlabel;
 			chunk ttag(), 'NO_TOP OUTPUT_MAP', <<EOF;
-	&nbsp;
 	</td>
 </tr>
 $opt->{spacer_row}








More information about the interchange-cvs mailing list