Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

comment on
( [id://3333]=superdoc: print w/replies, xml ) Need Help??
Hi, I have been trying to find someone to help me create Perl Dynamic Dropdowns in my auction site... http://www.efret.com/cgi-bin/test/test34.pl?action=new (please disregard first dropdown...doesn't work) (go down to select category, click automobiles, hit go,...) This displays subcats on new p[age instead of in the 2nd dropdown? I am getting closer, but don't know how to: Make my dropdfown list selectable(without hitting "go")? or Get the correct subcats to display when "go" button is hit? Get the 2nd dropdwon box to display respective sub cats? and display "no more subcats", when finished? Can anyone help? Here is my code: 
#-#############################################
# Sub: Add New Item
# This allows a new item to be put up for sale

sub new {

######################################################################
+#####################
print "<form ACTION=$ENV{'SCRIPT_NAME'} method=post> ",

    my $catinfo="<!--$form{category}-->";$catinfo=~s/\:/--><!--/g;$cat
+info=~s/<!---->//g;
    umask(000);
    my($key, %numfiles, %mycategory, %caticon);
    foreach $key (keys %category) {
        next if $category{$key}!~/^\Q$catinfo\E/;
         opendir(THEDIR, "$config{'basepath'}$key") || mkdir("$config{
+'basepath'}$key", 0777) || &oops("Category directory $key could not b
+e opened.");
        readdir THEDIR;readdir THEDIR;
        my @allfiles = readdir THEDIR;
        closedir THEDIR;
        if($category{$key} =~ /^\Q$catinfo\E<!--([^>]*)-->/ && $superc
+at{$1} ne ''){
            $mycategory{"$form{category}:$1"} = $supercat{$1};
            $numfiles{"$form{category}:$1"} += @allfiles;
            $caticon{"$form{category}:$1"} = $config{supercaticon};
        }else{
            $mycategory{$key} = $category{$key};
            $numfiles{$key} += @allfiles;
            $caticon{$key} = $config{regularcaticon};
        }
    }
    my $cols = $config{maincatcols} || 2;
    my $pc = int(100/$cols);

print "<select name=category>",

    my @keys = sort {lc $mycategory{$a} cmp lc $mycategory{$b}} keys %
+mycategory;
    my $definedkeys = $#keys + $cols-(($#keys+1)%$cols);
    my $cmove = int(@keys/$cols);
    $cmove++ if (@keys%$cols);
    for(my $i = 0;$i<=$cmove-1;$i++) {
#    print "<tr>";
        my $j = $i;
        for(1..$cols){
            my $key=$keys[$j];
            if($key ne ''){
print "<OPTION value=$key>@mycategory{$key}</OPTION>",
            }else{
                print(
                    # Print Padding (Empty Cells)
                    "<td>&nbsp;</td>",
                );
            }
            $j+=$cmove;
        }
    }
print (
"</select>",
"<INPUT TYPE='SUBMIT' NAME=action VALUE='go'>",
"</tr>",

);
######################################################################
+#####################

    my ($title, $reserve, $inc, $desc, $image, $buyit, @bids);
    my $inc = '1.00'; # default increment
    if ($form{'REPOST'}) {
        $form{'REPOST'} =~ s/\W//g;
        if (-T "$config{'basepath'}$config{'closedir'}/$form{'REPOST'}
+.dat") {
            open THEFILE, "$config{'basepath'}$config{'closedir'}/$for
+m{'REPOST'}.dat";
            ($title, $reserve, $inc, $desc, $image, $buyit, @bids) = <
+THEFILE>;
            close THEFILE;
            chomp($title, $reserve, $inc, $desc, $image, $buyit, @bids
+);
        }
    }
    print <<"EOF";

<!-- Add the following line to add a back button - between (print <<"E
+OF";) & (EOF) -->

    <input type="button" name="Button" value="Back" onClick="MM_callJS
+('if (history.length     &gt; 0){history.back()}')">



#####################
# Post new Item Form
<FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST>
<H2>Post A New Item</H2>
<TABLE WIDTH=100% BORDER=1 BGCOLOR=$config{'colortablebody'}>
<INPUT TYPE=HIDDEN NAME=action VALUE=procnew>
<TR><TD VALIGN=TOP><B>Title/Item Name:<BR></B>No HTML</TD><TD><INPUT N
+AME=TITLE VALUE=\"$title\" TYPE=TEXT SIZE=50 MAXLENGTH=50></TD></TR>
<TR><TD VALIGN=TOP><B>Category:<BR></B>Select One</TD><TD>

#####################
# Select Main Cat pulldown

<FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST>
EOF

    my $catinfo="<!--$form{category}-->";$catinfo=~s/\:/--><!--/g;$cat
+info=~s/<!---->//g;
    umask(000);
    my($key, %numfiles, %mycategory, %caticon);
    foreach $key (keys %category) {
        next if $category{$key}!~/^\Q$catinfo\E/;
         opendir(THEDIR, "$config{'basepath'}$key") || mkdir("$config{
+'basepath'}$key", 0777) || &oops("Category directory $key could not b
+e opened.");
        readdir THEDIR;readdir THEDIR;
        my @allfiles = readdir THEDIR;
        closedir THEDIR;
        if($category{$key} =~ /^\Q$catinfo\E<!--([^>]*)-->/ && $superc
+at{$1} ne ''){
            $mycategory{"$form{category}:$1"} = $supercat{$1};
            $numfiles{"$form{category}:$1"} += @allfiles;
            $caticon{"$form{category}:$1"} = $config{supercaticon};
        }else{
            $mycategory{$key} = $category{$key};
            $numfiles{$key} += @allfiles;
            $caticon{$key} = $config{regularcaticon};
        }
    }
    my $cols = $config{maincatcols} || 2;
    my $pc = int(100/$cols);
print "<SELECT NAME=CATEGORY>",


    my @keys = sort {lc $mycategory{$a} cmp lc $mycategory{$b}} keys %
+mycategory;
    my $definedkeys = $#keys + $cols-(($#keys+1)%$cols);
    my $cmove = int(@keys/$cols);
    $cmove++ if (@keys%$cols);
    for(my $i = 0;$i<=$cmove-1;$i++) {
#    print "<tr>";
        my $j = $i;
        for(1..$cols){
            my $key=$keys[$j];
            if($key ne ''){
print "<OPTION value=$key>@mycategory{$key}</OPTION>",
            }else{
                print(
                    # Print Padding (Empty Cells)
                    "<td>&nbsp;</td>",
                );
            }
            $j+=$cmove;
        }
    }

print "</select>",
print "<INPUT TYPE='submit' NAME=action VALUE=go>",
#print "</tr>",


    print <<"EOF";

print "<INPUT TYPE='submit' NAME=action VALUE=go>",
<SELECT NAME=CATEGORY TYPE=TEXT SIZE=5>
<OPTION SELECTED>Test2</OPTION>
EOF
    my $key;
    foreach $key (sort keys %category) {
        print "<OPTION VALUE=\"$key\">$category{$key}</OPTION>\n";
    }
    print <<"EOF";
</SELECT></TD></TR>
</SELECT></TD></TR>
#########################
<TR><TD VALIGN=TOP><B>Image URL:<BR></B>Optional, should be no larger 
+than 200x200</TD><TD><INPUT NAME=IMAGE VALUE=\"$image\" TYPE=TEXT SIZ
+E=50 VALUE="http://"></TD></TR>
<TR><TD VALIGN=TOP><B>Days Until Close:<BR></B>1-30</TD><TD><INPUT NAM
+E=DAYS TYPE=TEXT SIZE=2 MAXLENGTH=2></TD></TR>
<TR><TD VALIGN=TOP><B>Description:<BR></B>May include HTML - This shou
+ld include the condition of the item, payment and shipping informatio
+n, and
any other information the buyer should know.</TD><TD><TEXTAREA NAME=DE
+SC ROWS=5 COLS=45>$desc</TEXTAREA></TD></TR>
<TR><TD COLSPAN=2 VALIGN=TOP>Please note that by placing an item up fo
+r bid you are making a contract between you and the buyer.<br>
Once you place an item, you may not retract it and you must sell it fo
+r the highest bid.<br>
In other words, if you don't want to sell it, don't place it up for bi
+d!
EOF

    if ($config{'regdir'}) {
        print <<"EOF";
<P><B><A HREF="$ENV{'SCRIPT_NAME'}?action=reg">Registration</A> is req
+uired to post or bid!</B></TD></TR>
<TR><TD VALIGN=TOP><B>Your Handle/Alias:<BR></B>Used to track your pos
+t</TD><TD><INPUT NAME=ALIAS TYPE=TEXT SIZE=30 MAXLENGTH=30>
<TR><TD VALIGN=TOP><B>Your Password:<BR></B>Must be valid</TD><TD><INP
+UT NAME=PASSWORD TYPE=PASSWORD SIZE=30>
<TR><TD VALIGN=TOP><B>Your Starting Bid:</B></TD><TD>\$<INPUT NAME=BID
+ TYPE=TEXT SIZE=7 VALUE=0>
<TR><TD VALIGN=TOP><B>Your Reserve Price:<BR></B>You are not obligated
+ to sell below this price.  Leave blank if none.</TD><TD>\$<INPUT NAM
+E=RESERVE TYPE=TEXT SIZE=7 VALUE=0>

<!-- ############################ -->
<TR><TD VALIGN=TOP><B>Bid Increment:</B></TD><TD>\$<INPUT NAME=INC TYP
+E=TEXT SIZE=7 VALUE="$inc"></TD></TR>
<TR><TD VALIGN=TOP><B>Buy-it Now:</B><BR>Optional, this feature allows
+ the first bidder to win the auction with a bid at this set price.</T
+D><TD>\$<INPUT NAME="BUYIT" TYPE="text" SIZE="7"></TD></TR></TABLE>
<!-- ############################ -->


EOF
    }
    else {
        print <<"EOF";
</TD></TR>
<TR><TD VALIGN=TOP><B>Your Handle/Alias:<BR></B>Used to track your pos
+t</TD><TD><INPUT NAME=ALIAS TYPE=TEXT SIZE=30 MAXLENGTH=30>
<TR><TD VALIGN=TOP><B>Your E-Mail Address:<BR></B>Must be valid</TD><T
+D><INPUT NAME=EMAIL TYPE=TEXT SIZE=30>
<TR><TD VALIGN=TOP><B>Your Starting Bid:</B></TD><TD>\$<INPUT NAME=BID
+ TYPE=TEXT SIZE=7 VALUE=0>
<TR><TD VALIGN=TOP><B>Your Reserve Price:<BR></B>You are not obligated
+ to sell below this price.  Leave blank if none.</TD><TD>\$<INPUT NAM
+E=RESERVE TYPE=TEXT SIZE=7 VALUE=0>
<TR><TD VALIGN=TOP><B>Bid Increment:</B></TD><TD>\$<INPUT NAME=INC TYP
+E=TEXT SIZE=7 VALUE="$inc">

<!-- ############################ -->
<TR><TD VALIGN=TOP><B>Buy-it Now:</B><BR>Optional, this feature allows
+ the first bidder to win the auction with a bid at this set price.</T
+D><TD>\$<INPUT NAME="BUYIT" TYPE="text" SIZE="7">
<!-- ############################ -->



<TR><TD VALIGN=TOP><B>Contact Information:<BR></B>Will be given out on
+ly to the buyer</TD><TD>
<TT>Full Name: </TT><BR><INPUT NAME=ADDRESS1 TYPE=TEXT SIZE=30><BR>
<TT>Street Address: </TT><BR><INPUT NAME=ADDRESS2 TYPE=TEXT SIZE=30><B
+R>
<TT>City, State, ZIP: </TT><BR><INPUT NAME=ADDRESS3 TYPE=TEXT SIZE=30>
+</TD></TR></TABLE>
EOF
    }
    print <<"EOF";
<CENTER>Adult Content IS NOT Allowed!!! <INPUT TYPE=SUBMIT VALUE=Previ
+ew></CENTER>
EOF
}

[download]

20040711 Edit by ysth: add code tags

edit (broquaint): added <readmore> tag

In reply to Select Category dropdowns? by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":


  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or How to display code and escape characters are good places to start.
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others cooling their heels in the Monastery: (2)
As of 2024-04-20 15:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found