diff --git a/app/chelmek.hs b/app/chelmek.hs index 8eb2e0a..b0dcaa5 100644 --- a/app/chelmek.hs +++ b/app/chelmek.hs @@ -12,7 +12,7 @@ import Text.Regex.Posix import Text.Printf -extractRecords = extractLinksWithText "//div[@class='span4']//a[contains(@href,'o-nas')]" -- pary adres-tytuł +extractRecords = extractLinksWithText "//div[@class='span4']//h2[@itemprop='name']/a[contains(@href,'o-nas')]" -- pary adres-tytuł >>> first (extractLinksWithText "//a[contains(@href,'.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) @@ -24,8 +24,8 @@ toShadowItem ((url, articleTitle), yearlyTitle) = itype = "periodical", format = Just "pdf", finalUrl = url - } - where title = "yearlyTitle: " ++ replace "\"" "'" (replace "\t\t\t\t\t" "" (replace "\n" "" yearlyTitle)) ++ " articleTitle: " ++ articleTitle + } + where title = replace "\"" "'" articleTitle date = getDate yearlyTitle getDate yearlyTitle =