I want to update all Disabled in mysql table, but I am only being Abel to update just one? HELP
$username = DB::trim (param ("Username"));
$password = DB::trim (param ("Password"));
$dbh = DB::connect();
$sth = $dbh->prepare ("SELECT * FROM EmployerJobs WHERE Username =
+ ? AND Password = ?");
$sth->execute($username, $password);
while (my $row = $sth->fetchrow_hashref ())
{
$ID = $row->{ID};
if ($userid eq $row->{USERID}) {
$DISABLE = $row->{Disabled};
if (param("Disabled") eq "Yes") {
$DISABLE = "Yes";
param (-name => "Disabled", -value => $DISABLE);
param (-name => "ID", -value => $ID);
$tbl_info = DB::TableInfo->get ($dbh, "EmployerJobs");
$tbl_info->update_record ($dbh, "ID");
}elsif (param("Disabled") eq "No") {
$DISABLE = "No";
param (-name => "Disabled", -value => $DISABLE);
param (-name => "ID", -value => $ID);
$tbl_info = DB::TableInfo->get ($dbh, "EmployerJobs");
$tbl_info->update_record ($dbh, "ID");
}else
{
param (-name => "Disabled", -value => "No");
param (-name => "ID", -value => $ID);
$tbl_info = DB::TableInfo->get ($dbh, "EmployerJobs");
$tbl_info->update_record ($dbh, "ID");
}
}
}
$sth->finish ();
$dbh->disconnect ();
-
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.
|