Dodano zapisywanie informacji o czasie wzi?cia/zwrócenia ksi??ki.

Poprawiono informacje o jednej ksi??ce w bazie.

bin/app.pl

@@ -1,12 +1,10 @@
 #!/usr/bin/env perl
 use warnings;
 use strict;
+
 use Dancer;
 use DBI;
-
-#Struktura bazy
-#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)
+use Time::localtime;
 
 my $dbfile = 'ksiazki.db';
 my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "");
@@ -32,22 +30,33 @@ get '/req/:book' => sub
 	my ($id,$who) = split (/,/,params->{book});
 	my $sth=$dbh->prepare("select can_borrow from ksiazki where id=?") or die "Nie mozna spreparowac zapytania";
 	$sth->execute($id) or die "Nie mozna wykonac";
-	my $type = $sth->fetchrow_array or die "Nie mozna pobrac danych";
-	if ($type == 1)
+	my $can_borrow = $sth->fetchrow_array or die "Nie mozna pobrac danych";
+	if ($can_borrow == 1) 
 	{
 		my $sth=$dbh->prepare("select who from ksiazki where id=?") or die "Nie mozna spreparowac zapytania";
 		$sth->execute($id) or die "Nie mozna wykonac";
 		my $who_from_base = $sth->fetchrow_array or die "Nie mozna pobrac danych";
-
-		if ($who_from_base ne 'nikt')
+		my $when_borrow='wzieta: ';
+		if ($who_from_base ne 'nikt') #Jesli jest zapisane, ze ksiazka jest wzieta przez kogos, to znaczy ze teraz zostaje zwrocona
 		{
-			$who='nikt'
+			$who='nikt';
+			$when_borrow='zwrocona: ';
 		}
-		$sth = $dbh->prepare("update ksiazki set state=not state,who=? where id=?") or die "Nie mozna spreparowac zapytania";
-		$sth->execute($who,$id) or die "Nie mozna wykonac zapytania";
+		
+		my ($year,$mon,$mday,$hour,$min,$sec);
+		$year = localtime->year() + 1900;
+		$mon = localtime->mon() +1 ; #Miesiace zaczynamy liczyc od 1, a nie od 0, wiec zeby styczen mial numer 1 dodajemy 1
+		$mday = localtime->mday();
+		$hour = localtime->hour();
+		$min = localtime->min();
+		$sec = localtime->sec();
+		$when_borrow = $when_borrow."$hour:$min:$sec, $mday $mon $year";
+		
+		$sth = $dbh->prepare("update ksiazki set state=not state,who=?,comment=? where id=?") or die "Nie mozna spreparowac zapytania";
+		$sth->execute($who,$when_borrow,$id) or die "Nie mozna wykonac zapytania";
 		return 0;
 	}
-	elsif ($type == 0)
+	elsif ($can_borrow == 0)
 	{
 		return 1;
 	}

notatki/TODO

@@ -1,3 +1,3 @@
+1)Pokolorowac tabelke generowana przez template
 2)Dodać uwieżytelnianie
 3)Dodać możliwość łączenia się po https
-4)Zintegrować z LDAP'em

views/main_page.tt

@@ -17,7 +17,7 @@
 		
 		% for (my $i=0;$i<$#tab+1;$i++)
 		% {
-		% 	for (my $ii=0;$ii<9;$ii++) #Jest 9 pol w kazdym rekordzie
+		% 	for (my $ii=0;$ii<10;$ii++) #Jest 9 pol w kazdym rekordzie
 		% 	{
 		
 		% 		if ($ii==$pool_state || $ii==$pool_can_borrow || $ii==$pool_reserved)