Ok I have it working for one line with this code.

@ln = &make_list;
print"<font size=5>Delete Attribute From Database</font>\n";
print"<form method=post action=/cgi-bin/BXJOH27/del_attrib_admin.pl>\n
+";
print"<select size=10 name=\"attrib_lines\">\n";
print"<option>$ln[0] $ln[1] $ln[2] $ln[3]</option>\n";
print"</select>\n";
print"</form>\n";


sub make_list
{
  $sql  = "select * \n";
  $sql .= "from e1_attrib_type \n";
  my $cur = ora_open( $lda, $sql );
  my @d = ora_fetch( $cur );
  ora_close( $cur );
  return( @d );
}
[download]

But I need the list box to have every line from the database table. How can I modufy this code to make the list box contain every line and not just 1. Thanks

---

---

• 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.