Poprawion blad przy wyswietlaniu ksiazek,
Dodano informacje o dostepnosci ksiazki i mozliwosci wypozyczenia w postaci Tak/Nie zamiast 0/1master
parent
022f4e34f2
commit
8179e55fe0
|
@ -9,7 +9,49 @@ use DBI;
|
|||
my $dbfile = 'ksiazki.db';
|
||||
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "");
|
||||
|
||||
my$sth=$dbh->prepare("select * from ksiazki where id=(select max(id) from ksiazki)");
|
||||
my $sth=$dbh->prepare("select * from ksiazki where id=(select max(id) from ksiazki)");
|
||||
$sth->execute;
|
||||
(my @dupa)=$sth->fetchall_arrayref;
|
||||
my $max_id = ${$dupa[0]}[0][0];
|
||||
|
||||
my $id=$max_id+1; #Nowe id tworzymy, biorac stare najwieksze i dodajac 1
|
||||
print 'Podaj isbn:';
|
||||
my $isbn = <STDIN>;
|
||||
chomp $isbn;
|
||||
print 'Podaj tytul:';
|
||||
my $title = <STDIN>;
|
||||
chomp $title;
|
||||
$title='\''.$title.'\'';
|
||||
print 'Podaj autora:';
|
||||
my $author = <STDIN>;
|
||||
chomp $author;
|
||||
$author = '\''.$author.'\'';
|
||||
print 'Podaj wlasciciela:';
|
||||
my $owner = <STDIN>;
|
||||
chomp $owner;
|
||||
$owner = '\''.$owner.'\'';
|
||||
print 'Czy ksiazke mozna pozyczac?:';
|
||||
my $can_borrow = <STDIN>;
|
||||
chomp $can_borrow;
|
||||
while (1)
|
||||
{
|
||||
if ($can_borrow eq 'Tak')
|
||||
{
|
||||
$can_borrow = 1;
|
||||
last;
|
||||
}
|
||||
elsif ($can_borrow eq 'Nie')
|
||||
{
|
||||
$can_borrow = 0;
|
||||
last;
|
||||
}
|
||||
else
|
||||
{
|
||||
print 'Odpowiedz Tak lub Nie!';
|
||||
$can_borrow = <STDIN>;
|
||||
chomp $can_borrow;
|
||||
}
|
||||
}
|
||||
$sth=$dbh->prepare("insert into ksiazki values($id,$isbn,$title,$author,$owner,1,$can_borrow)"); #Zakladamy, ze dodawana ksiazka jest na miejscu,
|
||||
#wiec zamiast sie o to pytac, wpisuje, ze jest.
|
||||
$sth->execute or die 'Blad przy pisaniu do bazy!';
|
||||
|
|
|
@ -5,7 +5,8 @@ use Dancer;
|
|||
use DBI;
|
||||
|
||||
#Struktura bazy
|
||||
#id, int; isbn, int; tytul, string; autor, string; owner, string; state, bool (czy pozyczona, 0=dostepna, 1=wzieta); type, bool (mozna brac ze soba? 1=tak, 0=nie)
|
||||
#id, int; isbn, int; tytul, string; autor, string; owner, string;
|
||||
#state, bool (czy pozyczona, 1=dostepna, 0=wzieta); can_borrow, bool (mozna brac ze soba? 1=tak, 0=nie)
|
||||
|
||||
my $dbfile = 'ksiazki.db';
|
||||
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "");
|
||||
|
|
BIN
bin/ksiazki.db
BIN
bin/ksiazki.db
Binary file not shown.
13
views/a.tt
13
views/a.tt
|
@ -6,11 +6,22 @@
|
|||
<tr><td>id</td><td>isbn</td><td>tytul</td><td>autor</td><td>wlasiciciel</td><td>jest?</td><td>mozna brac?</td></tr>
|
||||
<tr>
|
||||
|
||||
% for (my $i=0;$i<$#tab;$i++)
|
||||
% for (my $i=0;$i<$#tab+1;$i++)
|
||||
% {
|
||||
% for (my $ii=0;$ii<7;$ii++) #Jest 7 pol w kazdym rekordzie
|
||||
% {
|
||||
|
||||
% if ($ii==5 || $ii==6)
|
||||
% {
|
||||
% if ($tab[$i][$ii]==1)
|
||||
% {
|
||||
% $tab[$i][$ii] = 'Tak';
|
||||
% }
|
||||
% else
|
||||
% {
|
||||
% $tab[$i][$ii] = 'Nie';
|
||||
% }
|
||||
% }
|
||||
<td> <%= $tab[$i][$ii] %> </td>
|
||||
% }
|
||||
%= "\n"
|
||||
|
|
Loading…
Reference in New Issue