diff --git a/expert.pl b/expert.pl index 438629b..e52d6fe 100755 --- a/expert.pl +++ b/expert.pl @@ -84,12 +84,15 @@ package main; my $buyer = $self->param('buyer'); my $article = $self->param('article'); my $date = $self->param('date'); + my $amount = $self->param('amount'); my $price = $self->param('price'); my $comment = $self->param('comment'); - unless (defined($seller) and defined($buyer) and defined($article) and defined($date) and defined($price)) { + unless (defined($seller) and defined($buyer) and defined($article) and + defined($date) and defined($amount) and defined($price)) { $self->render_json({message => 'seller, buyer, article, date and price are obligatory parameters'}, status => 400); } else { - my $record = Model::Prices->create(seller => $seller, buyer => $buyer, article => $article, date => $date, price => $price, comment => $comment); + my $record = Model::Prices->create(seller => $seller, buyer => $buyer, + article => $article, date => $date, amount => $amount, price => $price, comment => $comment); $self->render_json( { id => $record->id, @@ -141,6 +144,7 @@ package main; del '/prices' => sub { my $self = shift; my $id = $self->param('id'); + warn "here for id is $id\n"; if (defined $id) { my $rows_affected = Model::Prices->delete('where id=?', $id); if ($rows_affected == 0) { @@ -162,29 +166,38 @@ package main; % title 'Welcome'; % content_for header => begin % end @@ -197,7 +210,7 @@ package main;

@@ -217,6 +230,17 @@ package main; %# search content should be here + + + + + + + + + + +