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

[interchange-core@icdevgroup.org]

User:      racke
Date:      2003-03-26 21:05:58 GMT
Modified:  lib/Vend/Table Editor.pm
Log:
avoid code duplication

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


rev 1.27, prev_rev 1.26
Index: Editor.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Table/Editor.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- Editor.pm	12 Feb 2003 03:59:13 -0000	1.26
+++ Editor.pm	26 Mar 2003 21:05:58 -0000	1.27
@@ -1,6 +1,6 @@
 # Vend::Table::Editor - Swiss-army-knife table editor for Interchange
 #
-# $Id: Editor.pm,v 1.26 2003/02/12 03:59:13 mheins Exp $
+# $Id: Editor.pm,v 1.27 2003/03/26 21:05:58 racke Exp $
 #
 # Copyright (C) 2002 ICDEVGROUP <interchange@icdevgroup.org>
 # Copyright (C) 2002 Mike Heins <mike@perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Table::Editor;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.26 $, 10);
+$VERSION = substr(q$Revision: 1.27 $, 10);
 
 use Vend::Util;
 use Vend::Interpolate;
@@ -1409,13 +1409,12 @@
 	if($opt->{wizard}) {
 		$opt->{noexport} = 1;
 		$opt->{next_text} = 'Next -->' unless $opt->{next_text};
-		$opt->{cancel_text} = 'Cancel' unless $opt->{cancel_text};
 		$opt->{back_text} = '<-- Back' unless $opt->{back_text};
 	}
 	else {
-		$opt->{cancel_text} = 'Cancel' unless $opt->{cancel_text};
 		$opt->{next_text} = "Ok" unless $opt->{next_text};
 	}
+	$opt->{cancel_text} = 'Cancel' unless $opt->{cancel_text};
 
 	for(qw/ next_text cancel_text back_text/ ) {
 		$opt->{$_} = errmsg($opt->{$_});