Usunołem kilka zbędnych tablic.
parent
05e4f5b64a
commit
63e588f388
15
bin/app.pl
15
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;
|
||||
|
|
Loading…
Reference in New Issue