[set page_banner]Article[/set] [set fm_class]product[/set] [set help_name]article[/set] [set page_title]Article[/set] [set icon_name]icon_item.gif[/set] @_FM_STD_HEAD_@ [seti sqlSentence] BEGIN TRANSACTION; [perl] my $trans; my $action = $Values->{"mv_action"}; my $art_id = $Values->{"select_article"} || "currval('pd_artsequence')"; if ($action eq "Update") { $trans = "UPDATE pd_article SET articlenr = '[value articlenr]', altartnr='[value altartnr]', description='[value description]', unitweight=[value unitweight], updated='now' WHERE art_id = [value select_article];"; if ($Values->{"validfrom"}) { $trans .= "UPDATE pd_artprice SET price = [value price], validfrom='[value validfrom]', updated='now' WHERE art_id = [value select_article] AND type=110001 and validto='infinity';"; } } elsif ($action eq "Delete") { $trans .= "DELETE FROM article WHERE art_id = [value select_article];"; return $trans; } else { $trans .= "INSERT INTO pd_article (articlenr, altartnr, description, unitweight, updated) VALUES ('[value articlenr]', '[value altartnr]', '[value description]', [value unitweight], 'now');"; $trans .= "INSERT INTO pd_artprice (art_id, type, price, validfrom, validto, updated) VALUES ($art_id, 110001, [value price], '[value validfrom]', 'infinity', 'now');"; }; $trans; [/perl] COMMIT; [/seti] [if value mv_action eq Update] [set returnpage]freemoney/articleList[/set] [set leadtext]The article has been updated[/set] [elsif value mv_action eq Delete] [set returnpage]freemoney/articleList[/set] [set leadtext]The article entry has been deleted[/set] [/elsif] [else] [set returnpage]freemoney/article[/set] [set leadtext]The article entry has been added[/set] [/else] [/if] [value name=mv_action set=""] [try][sql interpolate=1][scratch sqlSentence][/sql][/try]
[L][scratch leadtext][/L]

[catch] [L]There was an error adding the new article entry. Please check your data.[/L]

[/catch] [L]BACK[/L] @_FM_STD_FOOTER_@