use SL::DBUtils;
use SL::CVar;
+use strict;
+
my %project_id_column_prefixes = ("ar" => "global",
"ap" => "global",
"oe" => "global",
}
- my $where = 'WHERE ' . join(' AND ', map { "($_)" } @filters) if (scalar @filters);
+ my $where = @filters ? 'WHERE ' . join(' AND ', map { "($_)" } @filters) : '';
my $sortorder = $params{sort} ? $params{sort} : "projectnumber";
$sortorder =~ s/[^a-z_]//g;
$params{active} = 1;
}
- $query = qq|UPDATE project SET projectnumber = ?, description = ?, active = ?
+ my $query = qq|UPDATE project SET projectnumber = ?, description = ?, active = ?
WHERE id = ?|;
@values = ($params{projectnumber}, $params{description}, $params{active} ? 't' : 'f', conv_i($params{id}));
CVar->save_custom_variables('dbh' => $dbh,
'module' => 'Projects',
'trans_id' => $params{id},
- 'variables' => $form);
+ 'variables' => $form,
+ 'always_valid' => 1);
$dbh->commit();