Revision 001601a5
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/FU.pm | ||
|---|---|---|
| 45 | 45 |
|
| 46 | 46 |
do_query($form, $dbh, qq|DELETE FROM follow_up_links WHERE follow_up_id = ?|, conv_i($params{id}));
|
| 47 | 47 |
|
| 48 |
my $query = qq|INSERT INTO follow_up_links (follow_up_id, trans_id, trans_type, trans_info) VALUES (?, ?, ?, ?)|;
|
|
| 48 |
$query = qq|INSERT INTO follow_up_links (follow_up_id, trans_id, trans_type, trans_info) VALUES (?, ?, ?, ?)|; |
|
| 49 | 49 |
my $sth = prepare_query($form, $dbh, $query); |
| 50 | 50 |
|
| 51 | 51 |
foreach my $link (@{ $params{LINKS} }) {
|
Auch abrufbar als: Unified diff
strictness