Local file
Upload mode
[if session arg =~ /\.(gif|jpe?g|png)$/i]
[or cgi ui_upload_binary]
ASCII
Binary
[if scratch existing]
Use new file name
Use existing file name
[/if]
[else]
ASCII
Binary
[/else]
[/if]
Backup mode
[if cgi ui_backup]
Back up
NO backup
[else]
Back up
NO backup
[/else]
[/if]
[button text="Upload" src="@_UI_IMG_@admin/upload.gif"]
[calc]
if( $CGI->{ui_upload_newfn} or $CGI->{ui_upload_fn} =~ m:/$:) {
my $image = $CGI->{ui_upload_file};
$image =~ s:.*[\\/]::;
$CGI->{ui_upload_fn} =~ s:/[^/]*$:/:;
$CGI->{ui_upload_fn} .= $image;
$Session->{ui_message} = sprintf ("[L]Uploaded file: %s[/L]", $image);
if($CGI->{ui_preload}) {
my $pre =
$CGI->{ui_preload} =~ /:/
? $CGI->{ui_preload}
: "$Values->{mv_data_table}:$CGI->{ui_preload}";
#Log("preloading $pre=$image");
$CGI->{ui_return_to} .= "\0ui_preload:$pre=$image";
#Log(qq{actual preload: CGI->{"ui_preload:$pre"} = $CGI->{"ui_preload:$pre"}});
}
}
$regex = q{@_UI_CONST_IMAGE_REGEX_@} || '\.(?:gif|jpe?g|png)$';
if( $CGI->{ui_upload_fn} =~ m{$regex}i) {
$CGI->{ui_upload_umask} = '022';
}
return;
[/calc]
[/button]
[button text="Cancel" src="@_UI_IMG_@admin/dalete.gif"]
[return-to click]
mv_todo=back
[/button]
|