summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xbin/app.pl21
-rw-r--r--bin/ksiazki.dbbin2048 -> 3072 bytes
2 files changed, 8 insertions, 13 deletions
diff --git a/bin/app.pl b/bin/app.pl
index 1c56ec0..7842b0f 100755
--- a/bin/app.pl
+++ b/bin/app.pl
@@ -13,13 +13,10 @@ my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "");
get '/' => sub
{
- my $sth = $dbh->prepare("select * from ksiazki");
- $sth->execute();
-
- my $i=0;
+ my $sth = $dbh->prepare("select * from ksiazki;") or die "Nie mozna spreparowac zapytania";
+ $sth->execute() or die "Nie mozna wykonac zapytania";
+ #my $sth=$dbh->do("select * from ksiazki");
my @result;
- my $ii=0;
-
(@result)=@{$sth->fetchall_arrayref} or die "blad przy pobieraniu danych";
# |kolejne rekordy|kolejne pola rekordow
@@ -35,13 +32,13 @@ get '/req/:book' => sub
my $id=params->{book};
my $sth;
- $sth=$dbh->prepare("select type from ksiazki where id=?");
- $sth->execute($id);
- my $type = $sth->fetchrow_array;
+ $sth=$dbh->prepare("select type from ksiazki where id=?") or die "Nie mozna spreparowac zapytania";
+ $sth->execute($id) or die "Nie mozna wykonac";
+ my $type = $sth->fetchrow_array or die "Nie mozna pobrac danych";
if ($type == 1)
{
- $sth = $dbh->prepare("update ksiazki set state=not state where id=?");
- $sth->execute($id);
+ $sth = $dbh->prepare("update ksiazki set state=not state where id=?") or die "Nie mozna spreparowac zapytania";
+ $sth->execute($id) or die "Nie mozna wykonac zapytania";
return 0;
}
elsif ($type == 0)
@@ -54,7 +51,5 @@ get '/req/:book' => sub
}
};
-$sth->finish();
-$dbh->disconnect();
dance;
diff --git a/bin/ksiazki.db b/bin/ksiazki.db
index 0b16197..ff6d6ee 100644
--- a/bin/ksiazki.db
+++ b/bin/ksiazki.db
Binary files differ