[interchange-cvs] interchange - racke modified 3 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed May 20 09:39:19 UTC 2009
User: racke
Date: 2009-05-20 09:39:19 GMT
Modified: . WHATSNEW-5.7
Modified: code/Widget uploadhelper.widget
Modified: dist/lib/UI/profiles process_filter
Log:
Allow file removal with uploadhelper widget (#180).
Revision Changes Path
2.43 interchange/WHATSNEW-5.7
rev 2.43, prev_rev 2.42
Index: WHATSNEW-5.7
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.7,v
retrieving revision 2.42
retrieving revision 2.43
diff -u -r2.42 -r2.43
--- WHATSNEW-5.7 20 May 2009 02:40:11 -0000 2.42
+++ WHATSNEW-5.7 20 May 2009 09:39:19 -0000 2.43
@@ -160,6 +160,11 @@
* Allow custom error messages for email_only check.
+Admin UI
+--------
+
+* Allow file removal with uploadhelper widget (#180).
+
Standard demo
-------------
1.7 interchange/code/Widget/uploadhelper.widget
rev 1.7, prev_rev 1.6
Index: uploadhelper.widget
===================================================================
RCS file: /var/cvs/interchange/code/Widget/uploadhelper.widget,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- uploadhelper.widget 17 Jul 2008 14:37:09 -0000 1.6
+++ uploadhelper.widget 20 May 2009 09:39:19 -0000 1.7
@@ -5,7 +5,7 @@
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. See the LICENSE file for details.
#
-# $Id: uploadhelper.widget,v 1.6 2008-07-17 14:37:09 racke Exp $
+# $Id: uploadhelper.widget,v 1.7 2009-05-20 09:39:19 racke Exp $
CodeDef uploadhelper Widget 1
CodeDef uploadhelper Description File upload
@@ -30,7 +30,11 @@
$out .= qq{<A HREF="$view_url">};
}
$out .= $val;
- $out .= "</A>" if $path;
+ if ($path) {
+ $out .= "</A>";
+ $out .= qq{<input type="checkbox" name="ui_upload_file_delete:$name" value="1">};
+ $out .= errmsg('Delete');
+ }
$out .= qq{ <INPUT TYPE=file NAME="$name" VALUE="$val">
<INPUT TYPE=hidden NAME="ui_upload_file_path:$name" VALUE="$path">
<INPUT TYPE=hidden NAME="$name" VALUE="$val">};
2.4 interchange/dist/lib/UI/profiles/process_filter
rev 2.4, prev_rev 2.3
Index: process_filter
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/profiles/process_filter,v
retrieving revision 2.3
retrieving revision 2.4
diff -u -r2.3 -r2.4
--- process_filter 14 Jan 2003 02:25:53 -0000 2.3
+++ process_filter 20 May 2009 09:39:19 -0000 2.4
@@ -1,7 +1,7 @@
__NAME__ process_filter
[flag type=write table="[cgi mv_data_table]"]
[perl tables="[list-databases]"]
-# $Id: process_filter,v 2.3 2003-01-14 02:25:53 mheins Exp $
+# $Id: process_filter,v 2.4 2009-05-20 09:39:19 racke Exp $
my @filters = grep /^ui_filter:/, keys %$CGI;
FILTERS: {
last FILTERS unless @filters;
@@ -71,6 +71,20 @@
next unless defined $CGI->{$key};
$CGI->{$key} =~ s/\0(.*)//s;
my $old = $1;
+ if ($CGI->{"ui_upload_file_delete:$key"}) {
+ if ($Tag->if_mm({function => 'files', name => "$path/$old",
+ body => 1})) {
+ unless ($Tag->unlink_file("$path/$old", $path)) {
+ $Tag->error({name => "$path/$old",
+ set => 'Failed to delete file'});
+ }
+ }
+ else {
+ $Tag->error({name => "$path/$old",
+ set => 'Not allowed to delete file'});
+ }
+ $old = '';
+ }
unless($CGI->{$key}) {
$CGI->{$key} = $old;
next;
@@ -84,6 +98,7 @@
$fn =~ s,.*\\,,;
$fn = $Tag->filter('filesafe', $fn);
#Debug("cgi->$key now='$CGI->{$key}'");
+ $CGI->{$key} = $fn;
my $out = "$path/$fn";
unless ($Tag->value_extended( { name => $key, outfile => $out , yes => 1} ) ) {
$Scratch->{ui_failure} .= "\nFailed to write upload file $out";
More information about the interchange-cvs
mailing list