Usunołem kilka zbędnych tablic.

1 files changed, 4 insertions, 11 deletions

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;