diff --git a/bin/app.pl b/bin/app.pl index 5b8d7be..fbe6fdc 100755 --- a/bin/app.pl +++ b/bin/app.pl @@ -16,16 +16,6 @@ get '/' => sub my $sth = $dbh->prepare("select * from ksiazki"); $sth->execute(); - my @id; - my @isbn; - my @title; - my @author; - my @owner; - my @state; - my @type; - - #my $result=''; #Poniewaz trzeba zwrocic string, wartosci kolejno pobierane z bazy, - #beda dodawane do zmiennej ze stringiem, na razie pustym my $i=0; my @result; my $ii=0; @@ -60,8 +50,11 @@ get '/req/:book' => sub } else #Stalo sie cos dziwnego... { - return "OMGLOLWTF"; + return "-1"; } }; +$sth->finish(); +$dbh->disconnect(); + dance;