Pull specific values into DCR upon callout

Hello Folks,

I am using a callout to populate a text field pls find the ipl below.
What it does is it gives me a list of values from a txt file so i can select it for my text field.
What i want to do is when i enter something in the Text Field, lets say Account and click the callout button it should show me only the values like Account* and nothing else in the list box so i cant select from the few options i have...Its more or less like a search...

Can someone help me with what changes i need to nmake in the ipl.

I am using my $item_value = $cgi->{form}{Text}; and trying to do pattern matching ...Is that the right way at all...Pls explain.

#################CALL FROM THE DATACAPTURE.CFG######################
<cgi-callout url="/iw-bin/iw_cgi_wrapper.cgi/datacapture_callout.ipl/test.txt" label="Search" window-features="width=800,height=600,scrollbars=yes,resizable=yes,status=yes,location=yes"/>
################IPL FILE##############

use TeamSite::CGI_lite;
use TeamSite::Config;

$|=1;

my $cgi = TeamSite::CGI_lite->new();
$cgi->parse_data();

my $form_name = $cgi->{'form'}{'iw_form_name'};
my $element_name = $cgi->{'form'}{'iw_callback_var'};
my $user_name = $cgi->{'form'}{'user_name'};
my $item_name = $cgi->{'form'}{'iw_item_name'};
my $item_value = $cgi->{form}{Text};
my $item_description = $cgi->{'form'}{'iw_item_description'};
my $dcr_name = $cgi->{'form'}{'iw_object_name'};

my $flat_file = $ENV{'PATH_INFO'};
if ($flat_file =~ m!^.*/([^/]+)$!) {
$flat_file = $1;
}

my @options = parse_flat_file( make_full_filename( $flat_file ) );
if (! @options)
{
error_message( 'No available selection options were found.' );
exit 1;
}

print_ui( @options );

exit 0;

sub make_full_filename {
my ($filename) = @_;
my $full_filename = TeamSite::Config::iwgetlocation("iwconfigs") . "/" . $filename;
return $full_filename;
}

sub parse_flat_file {
my ($filename) = @_;
my @options;

if ((-f $filename) && (open( FILE, $filename )))
{
while (<FILE>)
{
my $line = $_;
if ($line =~ /^([^,]*),(.*)$/)
{
my %hash = ( 'value' => $1, 'label' => $2);

push( @options, \%hash );
@options = grep(/^($item_value)*/,@options)
}
}
}

close FILE;

return @options;
}

sub print_ui {

my (@options) = @_;

print_header();

print <<"END";
<FORM NAME="callout_form">
<TABLE BORDER="0" CELLPADDING="0" ALIGN="CENTER">
<TR>
<TD VALIGN="TOP" WIDTH="150">
<FONT SIZE="-1">$item_name</FONT>
<BR>
<FONT SIZE="-1"><EM>$item_description</EM></FONT>
</TD>
<TD VALIGN="TOP">
<SELECT NAME="selection_list">
END

foreach my $hash (@options)
{
my $value = $hash->{'value'};
my $label = $hash->{'label'};
if ($label eq '')
{
$label = $value;
}
print "<OPTION VALUE=\"$value\">$label</OPTION>\n";
}

print <<"END";
</SELECT>
</TD>
</TR>
</TABLE>
<CENTER>
<INPUT TYPE="BUTTON" VALUE="OK" onClick="handle_selection()">
<INPUT TYPE="BUTTON" VALUE="Cancel" onClick="self.close()">
</CENTER>
</FORM>
END

print_footer();

return;
}

sub error_message {
my (@msgs) = @_;

print_header();
foreach my $message (@msgs)
{
print $message;
}

print <<"END";
<CENTER>
<FORM>
<INPUT TYPE="BUTTON" VALUE="OK" onClick="self.close()">
</FORM>
</CENTER>
END

print_footer();
return;
}

sub print_header {
print<<"END";
Content-type: text/html

<HTML>
<HEAD>
<TITLE>Datacapture Callout</TITLE>
<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<TABLE BORDER=0 cellpadding=0 cellspacing=0 WIDTH=100%>
<TR>
<TD ALIGN="LEFT"><B>Example Datacapture Callout</B><BR>
<FONT SIZE="-1"><B>Name: $dcr_name</B></FONT><BR></TD>
<TD ALIGN="RIGHT" VALIGN="TOP"><IMG src="/iw-cc/formspub/images/logo.gif"></TD>
</TR>
</TABLE>
END

return;
}

sub print_footer {
print <<"END";
</BODY>
</HTML>
END
return;
}

Find more posts tagged with

Comments

jbonifaci

First off, why are you posting this in the OpenDeploy Forum? You should be posting this in the TeamSite FormsPublisher (Templating) Forum.

Secondly, please post scripts as attachments, not as text.

Lastly. What exactly are you trying to do? Are you saying you have a text field in your DCT that you have a callout for? This callout takes the value from the item and you want to do filter the options in a select with it? Am I on the right track? If so, make the below change in red:
my @options = grep(/$item_value/, parse_flat_file( make_full_filename( $flat_file ) ) );If the above does not work, please repost this in the proper forum with your script as an attachment and a better explanation.

~Jeff

ruler

Are you saying you have a text field in your DCT that you have a callout for? Yes
When i enter something in the text field and hit the callout button it should return only "similar pattern options" in the list list box that pops up
For example if i enter XYZ in the text field the list box should have XYZ followed by anything or nothing.

my @options = grep(/$item_value/, parse_flat_file( make_full_filename( $flat_file ) ) ); dint work
Does $item_value return the value entered in the textbox in the first place??

ruler

I am using

my $item_value = $cgi->{form}{Text};

Text is the item name in the DCT

Is this right ?

jbonifaci

As I said in my original post, please follow up with this request in the first place.

As far as your variable, I assumed you were getting your value correctly. If not, fix that part of the code and the fix I provided should work.

~Jeff

jbonifaci

This is really an RTFM question, but the value of the item the callout is being invoked is passed as 'iw_item_value'.

~Jeff

ruler

Sorry...I may be sounding too elementary..
I tried this but did not seem to workkkthe listbox still shows up everything

my $item_value = $cgi->{'form'}{'iw_item_value'};
my @options = grep(/$item_value/, parse_flat_file( make_full_filename( $flat_file ) ) );

ruler

Sorry if i sounding too elementary.
I tried this too
my $item_value = $cgi->{'form'}{'iw_item_value'};

Dint work

jbonifaci

What is the value of $item_value?

ruler

I will be what everi enter in the Textbox before hitting the callout button...Say I enetered XYZ that should be its value..
Correct me if i am wrong

jbonifaci

Did you verify that?

ruler

No...how do we verify?

jbonifaci

Print it to a log file? Print it to the screen?

ruler

Yes it is giving the value i enter in the text field.

jbonifaci

Ok, I didn't look very closely at your code before, I didn't realize @options was an array of hashes. Undo the change I suggested before. Then replace these lines of code:
if ($line =~ /^([^,]*),(.*)$/)
{
my %hash = ( 'value' => $1, 'label' => $2);

push( @options, \%hash );
@options = grep(/^($item_value)*/,@options)
}With these lines:
if (my ($value, $label) = ($line =~ m/^([^,]*),(.*)$/))
{
if ($label =~ m/^$item_value/)
{
my %hash = ( 'value' => $value, 'label' => $label);
push( @options, \%hash );
}
}If you want to match on $value instead, then change the if from $label to $value. This should work, assuming that $item_value is being set correctly.

~Jeff

CrossTabs.rptdesign

ruler

Now when i click the button it says
"No available selection options were found." for anything i enter in the textbox

jbonifaci

What do the contents of the file you are pulling this information look like? Please post your script and option file as an attachment (zip them).

Also, what happens if you enter nothing in the text box?

~Jeff

ruler

I am just testing this and have very few values in the flat file...Will just post them here:
The values in the options selection box comes from a text file which has
Accounting,
Accountsbook,
JackieChan,
Chidrens Books,
Fair Files,
Fair Price,
Fairy Tales,
Amusement for Kids,
Hi Fly Guy,
Jack and Jill,

When i enter nothing and just hit th button it shows me all options
And whatever else i enter like A or Jack or anything it says:

No options found

jbonifaci

So it looks like you have no labels, only values. So change the regex that is filtering $label to $value.
if ($value =~ m/^$item_value/)~Jeff

ruler

Kewl beans ....It worked
Thanks a lot dude...You are the best Jeff!!!
One more thing if want to do the same with DB instead of a flat file using DAS config and also be able to provide the user to enter something into the DB if he does not find the option he needs in the DB...Can you breifly tell me what path i need to go in??

jbonifaci

Well, you would have to read the values from the database using a database interfacing module. I prefer DBI. Populate your options from the database. Then if the user doesn't see what they want, provide a text input for them to add a new value and an add button next to it. When they click on the add button, post back to your script and do the insert, then return the form to the user with the new value. Basic CGI and DBI stuff. There should be some online tutorials you could look for if you do some searching.

~Jeff

ruler

Thanks Jeff...appreciate it much!

jbonifaci

No problem, glad I could help. Just promise me you'll try to make your posts in the appropriate Forums in the future and we'll call it even. Have a good night!

~Jeff

ruler

Sure will.. And i hope you look into all the posts :-) Just kidding.