diff options
author | Cranix <you@example.com> | 2013-03-19 18:06:06 -0400 |
---|---|---|
committer | Cranix <you@example.com> | 2013-03-19 18:06:06 -0400 |
commit | 63e588f3882eb421a015de10c401773ff9021c53 (patch) | |
tree | 10d0a1ca72ed6b2ab7e21d4380c3462deb47dc1e | |
parent | 05e4f5b64a94ecc105e99db3ef37862da16aafb2 (diff) | |
download | Biblioteka-63e588f3882eb421a015de10c401773ff9021c53.tar.gz Biblioteka-63e588f3882eb421a015de10c401773ff9021c53.tar.bz2 Biblioteka-63e588f3882eb421a015de10c401773ff9021c53.tar.xz Biblioteka-63e588f3882eb421a015de10c401773ff9021c53.zip |
Usunołem kilka zbędnych tablic.
-rwxr-xr-x | bin/app.pl | 15 |
1 files changed, 4 insertions, 11 deletions
@@ -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; |