[interchange-cvs] interchange - heins modified 2 files

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Fri May 1 16:02:50 UTC 2009


User:      heins
Date:      2009-05-01 16:02:50 GMT
Modified:  dist/lib/UI/pages/admin db_metaconfig.html
Modified:  code/UI_Tag flex_select.coretag
Log:
* table_editor/flex_select: Add ability to link "edit record" to custom
  page with custom parameter. Also can now change "edit record to
  something else like "view user".

Revision  Changes    Path
2.24                 interchange/dist/lib/UI/pages/admin/db_metaconfig.html


rev 2.24, prev_rev 2.23
Index: db_metaconfig.html
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/db_metaconfig.html,v
retrieving revision 2.23
retrieving revision 2.24
diff -u -r2.23 -r2.24
--- db_metaconfig.html	1 Sep 2006 07:46:29 -0000	2.23
+++ db_metaconfig.html	1 May 2009 16:02:50 -0000	2.24
@@ -75,8 +75,9 @@
 
 		height
 		extended.explicit_edit extended.number_list
+		extended.explicit_edit_page extended.explicit_edit_form
+		extended.explicit_edit_anchor extended.check_uncheck_all
 		extended.no_code_link extended.no_checkbox
-		extended.check_uncheck_all
 		extended.radio_box extended.user_merge
 		extended.ui_sort_field
 		extended.ui_sort_option
@@ -151,6 +152,9 @@
 		'extended.bottom_buttons'		=> 'Buttons only on bottom',
 		'extended.restrict_allow'		=> 'Allow these ITL tags',
 		'extended.explicit_edit'		=> 'Show "edit record" link',
+		'extended.explicit_edit_page'	=> 'Destination for explicit edit',
+		'extended.explicit_edit_form'	=> 'Form for explicit edit',
+		'extended.explicit_edit_anchor'	=> 'Anchor for explicit edit',
 		'extended.no_code_link'		    => "Don't link key column to editor",
 		'extended.no_checkbox'		    => "No checkbox for group ops",
 		'extended.check_uncheck_all'	=> 'Links to check/uncheck all',
@@ -250,6 +254,9 @@
 </pre>
 			</blockquote>},
 		'extended.display_type'		    => "Sets the general style of column edit areas",
+		'extended.explicit_edit_page'	=> 'Landing page when clicking explicit edit.',
+		'extended.explicit_edit_form'	=> 'Form string for explicit edit, code will be appended',
+		'extended.explicit_edit_anchor'	=> 'Anchor to link for explicit edit',
 		'extended.link_rows_blank'		=> 'default 1',
 		'extended.link_row_qual'		=> 'Default is key field, needs to be different field if auto-numbering. Must not be same as Foreign Key if in auto mode.',
 		'extended.link_blank_auto'		=> 'Requires link row qualifier be separate from primary key and foreign key in linked table.',
@@ -407,4 +414,4 @@
 
 ]
 @_UI_STD_FOOTER_@
-<!-- page: @@MV_PAGE@@ version: $Revision: 2.23 $ -->
+<!-- page: @@MV_PAGE@@ version: $Revision: 2.24 $ -->



1.18                 interchange/code/UI_Tag/flex_select.coretag


rev 1.18, prev_rev 1.17
Index: flex_select.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/flex_select.coretag,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- flex_select.coretag	6 Jul 2007 08:54:20 -0000	1.17
+++ flex_select.coretag	1 May 2009 16:02:50 -0000	1.18
@@ -5,13 +5,13 @@
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.  See the LICENSE file for details.
 # 
-# $Id: flex_select.coretag,v 1.17 2007-07-06 08:54:20 racke Exp $
+# $Id: flex_select.coretag,v 1.18 2009-05-01 16:02:50 mheins Exp $
 
 UserTag flex-select Order      table
 UserTag flex-select addAttr
 UserTag flex-select attrAlias  ml height
 UserTag flex-select hasEndTag
-UserTag flex-select Version    $Revision: 1.17 $
+UserTag flex-select Version    $Revision: 1.18 $
 UserTag flex-select Routine    <<EOR
 use vars qw/$CGI $Tmp $Tag/;
 my @fs_more = qw/
@@ -661,6 +661,9 @@
 		data_row_style_odd   => '',
 		form_method => 'GET',
 		explicit_edit => '',
+		explicit_edit_page => '',
+		explicit_edit_form => '',
+		explicit_edit_anchor => '',
 		no_code_link => '',
 		group_image   => 'smindex.gif',
 		group_class   => 'rhead',
@@ -1114,7 +1117,7 @@
 		my $edit_anchor;
 		my $ee_extra;
 		if($opt->{explicit_edit}) {
-			$edit_anchor = errmsg('edit record');
+			$edit_anchor = $opt->{explicit_edit_anchor} || errmsg('edit record');
 			$edit_anchor =~ s/ /&nbsp;/g;
 			$ee_extra = '';
 			for(qw/ class style width align valign /) {
@@ -1135,6 +1138,7 @@
 			my $out = qq{<tr class="$rc">\n};
 
 			my $code_pre; my $code_post;
+			my $ep_string = '';
 			if($opt->{no_code_link} and ! $opt->{explicit_edit}) {
 				$code_pre = $code_post = '';
 			}
@@ -1149,7 +1153,7 @@
 
 				}
 
-				my $ep_string = join "\n", @what, $edit_extra;
+				$ep_string = join "\n", @what, $edit_extra;
 
 				my $edit_url = $Tag->area({
 									href => $edit_page,
@@ -1176,8 +1180,17 @@
 			}
 
 			if($opt->{explicit_edit}) {
-				$out .= qq{<td$ee_extra>&nbsp;$code_pre$edit_anchor$code_post&nbsp;</td>};
-				$opt->{no_code_link} and $code_pre = $code_post = '';
+				my $form = $opt->{explicit_edit_form} || '';
+				if($form) {
+					$form .= $ecode;
+				}
+				my $url = $Tag->area({
+									href => $opt->{explicit_edit_page} || $edit_page,
+									form => $form || $ep_string,
+								});
+				my $msg = errmsg('process %s', $ecode);
+				my $pre = qq{<a href="$url" title="$msg">};
+				$out .= qq{<td$ee_extra>&nbsp;$pre$edit_anchor$code_post&nbsp;</td>};
 			}
 
 #::logDebug("keyname=$ts->{keyname}");







More information about the interchange-cvs mailing list