[interchange-cvs] interchange - heins modified 2 files

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Sat Sep 28 13:49:00 2002


User:      heins
Date:      2002-09-28 17:48:32 GMT
Modified:  .        WHATSNEW
Modified:  lib/Vend/Table Editor.pm
Log:
* Minor things:

	-- Add some WHATSNEW updates

	-- Optimize the form_name and form_extra stuff

	-- Make help_anchor work as in docs

Revision  Changes    Path
2.41      +14 -5     interchange/WHATSNEW


rev 2.41, prev_rev 2.40
Index: WHATSNEW
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/WHATSNEW,v
retrieving revision 2.40
retrieving revision 2.41
diff -u -r2.40 -r2.41
--- WHATSNEW	19 Sep 2002 18:44:10 -0000	2.40
+++ WHATSNEW	28 Sep 2002 17:48:32 -0000	2.41
@@ -54,7 +54,7 @@
         2. Prevent useless session files from cluttering disk
         3. Prevent session writes from inhibiting disk performance.
=20
-* Add the oft-requested DirectoryIndex feature.
+* Add the oft-requested DirectoryIndex feature.=20
=20
 * Add new content management features. This allows Interchange to:
=20
@@ -138,6 +138,9 @@
=20
   This should allow REAL_NAME many more places.
=20
+* New mv_cleanup operates like mv_click and mv_check, but operates
+  after a form processing action is done.
+
 Payment
 -------
=20
@@ -186,12 +189,15 @@
             [/tabbed-panel]
         [/tabbed-display]
=20
-  It is pretty much that simple. It is documented.
+  It is pretty much that simple. It is documented, and an example is
+  on the pages/admin/genconfig.html page.
=20
-* [table-editor ...] tag starts extensive rework. Added tabbed displays,
-  with eventual full templating of the display.
+* [table-editor ...] tag updated extensively. Added tabbed displays,
+  full templating of the display, user-includeable forms, almost all
+  features supported with metadata.
=20
-* Many minor changes in metadata and preferences.
+* Many minor changes in metadata and preferences. Changed default
+  in some tables to tabbed display.
=20
 UI
 ----
@@ -208,7 +214,10 @@
=20
     -- Tabbed displays
     -- Insert spreadsheet linked via foreign key
+    -- Insert custom form widgets for form processing use,
+	   a "recompute transaction" included for an example
     -- Control over styles and classes for table columns
+	-- Completely templateable
=20
 * Add the suggested feature from Dan Browning -- a great idea --
   a spreadsheet of a linked table within the table editor.



1.10      +13 -6     interchange/lib/Vend/Table/Editor.pm


rev 1.10, prev_rev 1.9
Index: Editor.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/lib/Vend/Table/Editor.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- Editor.pm	27 Sep 2002 15:26:40 -0000	1.9
+++ Editor.pm	28 Sep 2002 17:48:32 -0000	1.10
@@ -1,6 +1,6 @@
 # Vend::Table::Editor - Swiss-army-knife table editor for Interchange
 #
-# $Id: Editor.pm,v 1.9 2002/09/27 15:26:40 mheins Exp $
+# $Id: Editor.pm,v 1.10 2002/09/28 17:48:32 mheins Exp $
 #
 # Copyright (C) 2002 ICDEVGROUP <interchange@icdevgroup.org>
 # Copyright (C) 2002 Mike Heins <mike@perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Table::Editor;
=20
 use vars qw($VERSION);
-$VERSION =3D substr(q$Revision: 1.9 $, 10);
+$VERSION =3D substr(q$Revision: 1.10 $, 10);
=20
 use Vend::Util;
 use Vend::Interpolate;
@@ -177,6 +177,7 @@
 	}
 	else {
 		$record =3D $mdb->row_hash($mkey);
+#::logDebug("used mkey=3D$mkey to select record=3D$record");
 	}
=20
 	$record ||=3D $mdb->row_hash($item) if $view;
@@ -922,6 +923,7 @@
 my %o_default =3D (
 	action				=3D> 'set',
 	wizard_next			=3D> 'return',
+	help_anchor			=3D> 'help',
 	wizard_cancel		=3D> 'back',
 	across				=3D> 1,
 	color_success		=3D> '#00FF00',
@@ -1074,6 +1076,7 @@
 		file_upload
 		help_cell_class
 		help_cell_style
+		help_anchor
 		include_before
 		include_form
 		label_cell_class
@@ -1294,10 +1297,14 @@
=20
 	$opt->{form_extra} =3D~ s/^\s*/ /
 		if $opt->{form_extra};
+	$opt->{form_extra} ||=3D '';
=20
-	$opt->{form_name} =3D qq{ NAME=3D"$opt->{form_name}"}
+	$opt->{form_extra} .=3D qq{ NAME=3D"$opt->{form_name}"}
 		if $opt->{form_name};
=20
+	$opt->{form_extra} .=3D qq{ TARGET=3D"$opt->{form_target}"}
+		if $opt->{form_target};
+
 	$opt->{enctype} =3D $opt->{file_upload} ? ' ENCTYPE=3D"multipart/form-dat=
a"' : '';
=20
 }
@@ -1329,6 +1336,7 @@
 	$opt->{mv_data_table} =3D $table if $table;
 	$opt->{item_id}		  =3D $key if $key;
 	$opt->{table}		  =3D $opt->{mv_data_table};
+	$opt->{ui_meta_view}  ||=3D $CGI->{ui_meta_view} if $opt->{cgi};
=20
 	resolve_options($opt);
 	$table =3D $opt->{table};
@@ -1848,7 +1856,7 @@
 	no strict 'subs';
=20
 	chunk 'FORM_BEGIN', <<EOF; # unless $wo;
-$restrict_begin<FORM METHOD=3D$opt->{method} ACTION=3D"$opt->{href}"$opt->=
{form_name}$opt->{enctype}$opt->{form_extra}>
+$restrict_begin<FORM METHOD=3D$opt->{method} ACTION=3D"$opt->{href}"$opt->=
{enctype}$opt->{form_extra}>
 EOF
 	chunk 'HIDDEN_ALWAYS', <<EOF;
 $sidstr<INPUT TYPE=3Dhidden NAME=3Dmv_todo VALUE=3D"$opt->{action}">
@@ -2292,7 +2300,6 @@
=20=09
 	if(! $row_template) {
 		if($opt->{simple_row}) {
-			$opt->{help_anchor} ||=3D 'help';
 			$row_template =3D <<EOF;
    <td$opt->{label_cell_extra}>=20
      {BLABEL}{LABEL}{ELABEL}
@@ -2312,7 +2319,7 @@
          <td$opt->{widget_cell_extra}>
            {WIDGET}
          </td>
-         <td$opt->{help_cell_extra}>{TKEY}{HELP?}<i>{HELP}</i>{/HELP?}{HEL=
P_URL?}<BR><A HREF=3D"{HELP_URL}">help</A>{/HELP_URL?}</td>
+         <td$opt->{help_cell_extra}>{TKEY}{HELP?}<i>{HELP}</i>{/HELP?}{HEL=
P_URL?}<BR><A HREF=3D"{HELP_URL}">$opt->{help_anchor}</A>{/HELP_URL?}</td>
        </tr>
      </table>
    </td>