.

app/pbsociety.hs

@@ -19,12 +19,13 @@ extractRecords = extractLinksWithText "//a[@class='image-link']"  -- pary adres-
 toShadowItem :: ((String, String),String) -> ShadowItem
 toShadowItem ((url, articleTitle), yearlyTitle) =
   (defaultShadowItem url title) {
+    --originalDate = Just date,
     itype = "periodical",
     format = Just "pdf",
     finalUrl = url
     }
-  where title = "Pbsociety " 
-
+  where title = "Pbsociety " ++ yearlyTitle ++ " " ++ articleTitle
+        --date = getDate url
 getDate url =
   case url =~~ "/(19[0-9][0-9]|20[0-9][0-9])/" :: Maybe [[String]] of
     Just [[_, year]] -> year