[interchange-cvs] interchange - heins modified 2 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Jul 21 17:21:24 EDT 2004
User: heins
Date: 2004-07-21 21:21:24 GMT
Modified: dist/lib/UI/pages/admin meta_editor.html
Modified: code/Widget uploadblob.widget
Log:
* Remove "File Upload" tab from meta_editor, which only served one
widget.
* Relocate name_to and size_to from "File Upload" to ExtraMeta for
uploadblob widget, where it now belongs.
Revision Changes Path
2.14 +1 -14 interchange/dist/lib/UI/pages/admin/meta_editor.html
rev 2.14, prev_rev 2.13
Index: meta_editor.html
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/meta_editor.html,v
retrieving revision 2.13
retrieving revision 2.14
diff -u -r2.13 -r2.14
--- meta_editor.html 21 Jul 2004 05:46:55 -0000 2.13
+++ meta_editor.html 21 Jul 2004 21:21:24 -0000 2.14
@@ -125,11 +125,6 @@
extended.data_cell_class
extended.data_cell_style
- =File Upload
-
- extended.name_to
- extended.size_to
-
=Advanced
outboard
@@ -143,8 +138,6 @@
options => {
'extended.ui_sort_option' => qq{=--default--,f=Case insensitive, fr=Case insensitive/Reverse, n=Numeric, nr=Reverse Numeric},
- 'extended.size_to' => qq{columns::$m_table},
- 'extended.name_to' => qq{columns::$m_table},
'field' => qq{columns::$m_table},
},
@@ -180,8 +173,6 @@
'extended.maxlength' => 'Maxlength',
'extended.check' => 'Profile check',
'extended.blank_default' => 'Default value',
- 'extended.size_to' => 'Field to store uploadblob size in',
- 'extended.name_to' => 'Field to store uploadblob file name in',
'extended.restrict_allow' => 'Allow these ITL tags',
'display_filter' => 'Display filter',
},
@@ -191,8 +182,6 @@
'extended.maxlength' => 'For text widget (HTML maxlength=NN)',
'extended.blank_default' => 'Applies only when empty',
'extended.check' => 'Standard IC mv_profile checks -- required, postcode, etc.',
- 'extended.size_to' => 'if any -- must be in fields of table editor',
- 'extended.name_to' => 'if any -- must be in fields of table editor',
'extended.restrict_allow' => 'in append/prepend/lookup_query',
'display_filter' => 'Only used for hidden_text type',
},
@@ -200,8 +189,6 @@
extended => "textarea_5_50",
'extended.ui_more_alpha' => 'yesno',
'extended.ui_sort_option' => 'select',
- 'extended.size_to' => 'select',
- 'extended.name_to' => 'select',
'extended.fs_no_group' => 'yesno',
'extended.fs_display_filter' => 'text_50',
'extended.fs_data_calc' => 'textarea_4_70',
@@ -284,4 +271,4 @@
][/table-editor]
@_UI_STD_FOOTER_@
-<!-- page: @@MV_PAGE@@ version: $Revision: 2.13 $ -->
+<!-- page: @@MV_PAGE@@ version: $Revision: 2.14 $ -->
1.2 +24 -2 interchange/code/Widget/uploadblob.widget
rev 1.2, prev_rev 1.1
Index: uploadblob.widget
===================================================================
RCS file: /var/cvs/interchange/code/Widget/uploadblob.widget,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- uploadblob.widget 3 Jun 2004 06:31:19 -0000 1.1
+++ uploadblob.widget 21 Jul 2004 21:21:24 -0000 1.2
@@ -6,7 +6,9 @@
my $name = $opt->{name};
my $size = $opt->{cols} || $opt->{width};
- my $out = '';
+ my $pre = $opt->{prepend} || '';
+ my $app = $opt->{append} || '';
+ my $out = $pre;
if(my $n = $opt->{name_to}) {
$out .= qq{<INPUT TYPE=hidden NAME="mv_data_file_name_to_$name" VALUE="$n">};
@@ -17,8 +19,28 @@
$size = qq{ SIZE="$size"} if $size > 0;
$out .= qq{<INPUT TYPE=hidden NAME="mv_data_file_field" VALUE="$name">
-<INPUT TYPE=file NAME="$name"$size>};
+<INPUT TYPE=hidden NAME="mv_data_file_path" VALUE="">
+<INPUT TYPE=hidden NAME="mv_data_file_oldfile" VALUE="">
+<INPUT TYPE=file NAME="$name"$size>$app};
return $out;
}
EOR
+
+CodeDef uploadblob ExtraMeta <<EOM
+{
+ _order => [ qw/ name_to size_to /],
+ name_to => {
+ options => 'columns::',
+ label => 'Field to store uploadblob file name in',
+ help => 'if any -- must be in fields of table editor',
+ widget => 'select',
+ },
+ size_to => {
+ options => 'columns::',
+ label => 'Field to store uploadblob size in',
+ help => 'if any -- must be in fields of table editor',
+ widget => 'select',
+ },
+}
+EOM
More information about the interchange-cvs
mailing list