update

app/pti.hs

@@ -15,20 +15,23 @@ import Text.Printf
 extractRecords = extractLinksWithText "//div[@class='sidebar']/ul/li/a"  -- pary adres-tytuł
                  >>> second (arr $ replace "\r\n            " " ") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków
                  -- >>> first (arr ((++"tr") . init))  -- modyfikujemy pierwszy element pary, czyli adres URL
-                 >>> first (extractLinksWithText "//a[contains(@href,'post.php?wpfb')]") -- pobieramy stronę z adresu URL i wyciągamy linki z tej strony pasujące do wyrażenia XPathowego
+                 >>> first (extractLinksWithText "//a[contains(@href,'?wpfb') and contains(text(),'pdf')]") -- pobieramy stronę z adresu URL i wyciągamy linki z tej strony pasujące do wyrażenia XPathowego
                  -- ostatecznie wyjdą trójki ((adres URL, tytuł artykułu), tytuł rocznika)
+                 
+
 
 -- ... a tutaj te trójki przerabiamy do docelowej struktury ShadowItem
 toShadowItem :: ((String, String), String) -> ShadowItem
 toShadowItem ((url, articleTitle), yearlyTitle) =
   (defaultShadowItem url title) {
-    originalDate = Just date,
+    originalDate = Nothing,
     itype = "periodical",
     format = Just "pdf",
     finalUrl = url
     }
-  where title = "Historia Informatyki " ++ yearlyTitle ++ " " ++ (replace "\r\n" "" (replace "\r\n          " "" articleTitle))
-        date = "date"
+
+  where title = "Historia Informatyki " ++ yearlyTitle
+        date = getDate url
 
 getDate url =
   case url =~~ "/(19[0-9][0-9]|20[0-9][0-9])/" :: Maybe [[String]] of