88
if ($out !~ /^Location/i) {
$out.="<form><input type=submit value=\\"></form>";
}
$sth = $dbh->prepare( q{ UPDATE ruloni SET ost = ost + ? where id = ? })
|| die "Can't prepare statement: $DBI::errstr";
# $sth2 = $dbh->prepare( q{ DELETE FROM ruloni WHERE id = ? })
# || die "Can't prepare statement: $DBI::errstr";
for (split(/,/,@f{'updateruls'})) {
if ($f{$_}) { $sth->execute($f{$_},$_); }
}
$sth = $dbh->prepare( q{ INSERT INTO ruloni (skladid,ost,rezerv) VALUES (?,?,0) })
|| die "Can't prepare statement: $DBI::errstr";
if ($f{'add1'}) { $sth->execute($f{'updaterulid'},$f{'add1'}); }
if ($f{'add2'}) { $sth->execute($f{'updaterulid'},$f{'add2'}); }
if ($f{'add3'}) { $sth->execute($f{'updaterulid'},$f{'add3'}); }
if ($f{'add4'}) { $sth->execute($f{'updaterulid'},$f{'add4'}); }
if ($f{'add5'}) { $sth->execute($f{'updaterulid'},$f{'add5'}); }
$out.="Location: ./?action=3&addtoid=$f{'updaterulid'}\n\nMoved";
$sth->finish;
# $sth2->finish;
89
$sth = $dbh->prepare( q{ insert into sklad ( skladnum,art,sort ) VALUES (?,?,?) });
$sth->execute($f{'1'},$f{'2'},$f{'3'});
$sth = $dbh->prepare( q{ SELECT LAST_INSERT_ID() });
$sth->execute;
$t=$sth->fetchrow_array;
$out.="Location: ./?action=3&addtoid=$t\n\nMoved";
$sth->finish;
} elsif ($f{'addtoid
$sth = $dbh->prepare( q{ SELECT * FROM ruloni WHERE skladid = ? ORDER BY ost
DESC })
|| die "Can't prepare statement: $DBI::errstr";
$sth->execute($f{'addtoid'});
cellpadding=4><tr><form>\n".
"<input type=hidden name=action value=3><input type=hidden
name=updaterulid value=$f{'addtoid'}>".
-
\n";
@ruls=(); $sum=0; $sum_r=0;
while (@row = $sth->fetchrow_array) {
$out.="<tr>".
90
"<td>$row[0]</td>".
"<td>$row[2]</td><td> $row[3]</td>\n".
"<td><input type=text size=8 name=$row[0]></td></tr>\n";
$ruls[$#ruls+1]=$row[0];
$sum+=$row[2];
$sum_r+=$row[3];
}
$out.="<tr>".
"<td>$sum</td><td>$sum_r</td><td> </td></tr>\n";
$out.="</table><input type=hidden name=updateruls value=\"".join(',',@ruls)."\">".
"<brbr>\n".
"<table border=1 cellspacing=0 cellpadding=4>\n".
"<tr><td>*</td><td><input type=text size=8 name=add1></td></tr>\n".
"<tr><td>*</td><td><input type=text size=8 name=add2></td></tr>\n".
"<tr><td>*</td><td><input type=text size=8 name=add3></td></tr>\n".
"<tr><td>*</td><td><input type=text size=8 name=add4></td></tr>\n".
"<tr><td>*</td><td><input type=text size=8 name=add5></td></tr>\n".
"</table>\n".
"<br><input type=submit value=\\"></form>\n".
"<form><input type=hidden name=action value=3>".
"<input type=hidden name=search value=1>".
"<input type=hidden name=searchid value=$f{'addtoid'}>".
"<input type=submit value=\\"></form>";