nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Browser Button Options

shivgaytri

The basic requirement is:

When user clicks on the browse button in the DCT,
a window pops up and he should upload a file which opens in only 'Read-Only' mode for the user.

Can I get any views regarding the same?

Find more posts tagged with

Comments

Adam Stoller

The basic requirement is:

When user clicks on the browse button in the DCT,
a window pops up and he should upload a file which opens in only 'Read-Only' mode for the user.

Can I get any views regarding the same?

If you cannot use the OOTB Import option, you need to write your own custom application for this - or hire someone else to do it for you.

ACheethayil

May be following snippet you can tweak and use it.
=====================================
#!F:\Apps\iw-home/iw-perl/bin/iwperl

#

# ----------------------------------------------------------
# Modules to use
# ----------------------------------------------------------
use CGI;
use TeamSite::Config;
require "../cgi-lib.pl";

# ----------------------------------------------------------
# Constants
# ----------------------------------------------------------
$iwMount = TeamSite::Config::iwgetmount();

# ----------------------------------------------------------
# Init
# ----------------------------------------------------------
my $error = "";
my $page = CGI->new();
$| = 1;
my @values = $page->param;
my $prog = $page->param("iw_prog_name");
my $cgi = $prog;
$cgi =~ s/(.*)\.ipl/$1\.cgi/i;
my $upath = $page->param('area_path');
my $dcrname = $page->param('iw_dcr_path');

$upath =~ s |\\|/|g;
if ($upath !~ /WORKAREA/) {
$error = "This command must be executed within a TeamSite Workarea!";
}
$upath =~ s/(.*\/WORKAREA\/.*?\/).*/$1/;
$upath = "$iwMount$upath/";
$tempfile = $upath . $ENV{'REMOTE_ADDR'};
my $title = "Upload File";
my $window_size = "window.resizeTo(350,220);";
# ----------------------------------------------------------
# Main
# ----------------------------------------------------------
&PrintHeaderCustom;

print "";
print "";

if ($error ne "") {
print "Error: $error
";

}else{
print "\n";
foreach (@values) { # Save the current CGI param block
print $page->hidden(-name=>$_,
-value=>$page->param($_),
);
}

print "";
print "\n";
print "

\n";
print "Select a file from your local machine and press Upload to continue.";
print "\n";
}
&print_end;

sub print_end
{
print<<"EOF";

EOF
}
sub PrintHeaderCustom {
print<<"EOF";
Content-type: text/html

$title
<SCRIPT LANGUAGE="JavaScript">
$window_size
//self.toolbar.visible=false;
//self.menubar.visible=false;
//self.focus();
</SCRIPT>

$title

EOF
}
exit;

#----------------------
#---------------------
#backer.ipl is below
#-----------------
#-------------------
#!f:\Apps\iw-home/iw-perl/bin/iwperl

use TeamSite::Config;
require "../cgi-lib.pl";

$iwhome = TeamSite::Config::iwgethome();
$iwMount = TeamSite::Config::iwgetmount();
open (LOG,">>$iwhome/backer/backer.log");

print LOG "\n Start Logging \n";

# When writing files, several options can be set... here we just set one
# Limit upload size to avoid using too much memory
$cgi_lib'maxdata = 20000000;
my $filesize = 0;

# Start off by reading and parsing the data. Save the return value.
# We could also save the file's name and content type, but we don't
# do that in this example.
$ret = &ReadParse;

&CgiDie("Error in reading and parsing of CGI input") if !defined $ret;
&CgiDie("No data uploaded",
"Please enter it in fup.html.") if !$ret;

# Munge the uploaded text so that it doesn't contain HTML elements
# This munging isn't complete -- lots of illegal characters are left as-is.
# However, it takes care of the most common culprits.
$in{'upfile'} =~ s/$in{'upfile'} =~ s/>/>/g;

# Do some initialization to copy the file to the right directory
$area = $in{'area_path'};
$area =~ s|\\|\/|g;
$area =~ s|(.*\/WORKAREA\/.*?\/).*|$1|;
$filename = $incfn{'filename'};
$filename =~ s|\\|\/|g;
$filename =~ s|.*\/(.*)|$1|;
$uploaded_file = $in{'filename'};
$dcr_path = $in{'iw_dcr_path'};

print LOG "\n Filename *** [$filename]*** \n";
print LOG "\n Uploaded file *** [$uploaded_file]*** \n";

print LOG "IWMOUNT = " . $iwMount . "\n";
print LOG "AREA = " . $area . "\n";

$area =~ s|//[^/]+(/default/.*)$|$1|;
print LOG "AREA = " . $area . "\n";

$target_directory = "$iwMount$area\\Content\\DAsFiles";
my $wrong_filetype = 0;

my $value = 2;
my $doesfileexist = 0;

my $testfile = "$target_directory/$filename";
if (-e "$testfile")
{
# Uncommented : C1
$doesfileexist = 1;
`del $testfile`;
}

my @ext_attr_cmd;
#if ($doesfileexist == 0) {
# Copy the file from the temp directory if it is valid

if ($filename ne "" && $wrong_filetype ne 1)
{
$cmd = "copy $uploaded_file \"$target_directory/$filename\"";
$cmd =~ s|\/|\\|g;
print LOG "Command: [$cmd] \n";
`$cmd`;
$filepath = "$target_directory/$filename";
$filepath =~ s|\/|\\|g;
print LOG "File path is [$filepath] \n";
$filesize = (stat("$filepath"))[7];
print LOG "File size [$filesize] \n";
}
close LOG;

# Delete what is in temp
if ($filename ne "")
{
$cmd = "del \"$uploaded_file\"";
$cmd =~ s|\/|\\|g;
`$cmd`;
}
# We play around with the element name. Since we don't want to have the data stored in the Upload field,
# but in the field with the browse button.
# This implies that the two fields (items in datacapture.cfg) should have the same name. The name for the
# upload field should have the _Upload tag behing it:
# Z.B.: for the field with the browse button
# for the associated upload button
# We find the browse field by removing the _Upload tag.
$element_name = $in{'iw_callback_var'}; # Get the name of the Upload field
$element_filesize = "AttachFile/FileSize";
$element_fileuploaded = "AttachFile/FileUploaded";
$form_name = $in{'iw_form_name'};

# Now produce the result: an HTML page... Since it has javascript OnLoad, you will not see this page.
# It will self.close in a few seconds (maximum). The javascript will insert the Upload value in the DCR form.
print &PrintHeader;

print <

Upload Error.
<SCRIPT LANGUAGE="JavaScript">
var doesfileexist = $doesfileexist;
var FileSize = $filesize;
var dcrpath = "$dcr_path";

function set_datacapture_item_value(selectedValue, sizeoffile)
{
if ((window.opener == null) ||
(window.opener.closed))
{
return false;
}

var calloutForm = eval($form_name);
if (!calloutForm)
{
return false;
}

var calloutElementFound = false;
var sizeelementfound = false;
var fileuploadedelementfound = false;

opener.top.getScriptFrame().setFileValues(selectedValue,sizeoffile);
opener.top.getScriptFrame().Redraw();

return true;
}

function handle_selection()
{

if ($filesize <= 0)
{
alert("Please select a valid file");
self.close();
return false;
}
else
{
if ($wrong_filetype == 1)
{
alert ("Can't Handle Files of this type!");
self.close();
return false;
}
}

if ($doesfileexist == 1 && dcrpath == "")
{
alert("This file exists within the repository. Use the replace function to replace the document");
self.close();

}
else
{
if (callback())
{
opener.top.datacapture.refreshForm();
self.close();

}
else
{
alert('Please make a selection.');

}
}

}

function callback()
{
if (!set_datacapture_item_value( '/Content/Documents/Forms_and_Marketing_Materials/$filename', '$filesize'))
{
alert('Fatal callout error. Did you close the datacapture window?');
}
return true;
}

</SCRIPT>

EOT

print &HtmlBot;