From f838321bf2f720c24ce3152c08a74381130e7faf Mon Sep 17 00:00:00 2001 From: Marijana Glavica Date: Fri, 22 Oct 2010 14:12:25 +0000 Subject: [PATCH] local git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1350 07558da8-63fa-0310-ba24-9fe276d99e06 --- vhost/ecas/config.yml | 4 ++-- vhost/ecas/ecas-labels.txt | 1 + vhost/ecas/html.pm | 14 +++++++++++--- vhost/ecas/marc.pl | 9 +++++++-- 4 files changed, 21 insertions(+), 7 deletions(-) diff --git a/vhost/ecas/config.yml b/vhost/ecas/config.yml index 5c5aa32..202bdf3 100644 --- a/vhost/ecas/config.yml +++ b/vhost/ecas/config.yml @@ -115,7 +115,7 @@ databases: path: 'vhost/ecas/jstor.pl' - name: 'ovid' description: 'Ovid Full Text' - module: 'WebPAC::Input::Ovid' + module: 'WebPAC::Input::OvidOld' path: '/data/FF/ecasopisi/ovid/cites-all.txt' normalize: path: 'vhost/ecas/ovid.pl' @@ -131,7 +131,7 @@ databases: module: 'WebPAC::Input::MARC' path: '/data/FF/ecasopisi/muse/premium.mrc' normalize: - path: 'vhost/ecas/marc.pl' + path: 'vhost/ecas/marc-muse.pl' - name: 'pubmed' description: 'PubMed Central' module: 'WebPAC::Input::Excel' diff --git a/vhost/ecas/ecas-labels.txt b/vhost/ecas/ecas-labels.txt index 0bc589b..3377c08 100644 --- a/vhost/ecas/ecas-labels.txt +++ b/vhost/ecas/ecas-labels.txt @@ -3,6 +3,7 @@ titleen Alternativni naslov issn ISSN url URL urlp URL +urlpe URL urlf URL keyword Ključne riječi language Jezik diff --git a/vhost/ecas/html.pm b/vhost/ecas/html.pm index 0567050..b45cca8 100644 --- a/vhost/ecas/html.pm +++ b/vhost/ecas/html.pm @@ -5,19 +5,27 @@ use warnings; sub url { my ($self,$url) = @_; - qq{ Pristup iz ustanove }; + qq{ Pristup iz ustanove }; } sub urlp { my ($self,$urlp) = @_; my $proxy = $urlp; $proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy.cgi/000100A/http/}; - qq{ Pristup od kuće }; + qq{ Pristup od kuće }; } +sub urlpe { + my ($self,$urlpe) = @_; + my $proxy = $urlpe; + $proxy =~ s{http://}{https://proxy.knjiznice.ffzg.hr/proxy/nph-proxy2.cgi/000100A/http/}; + qq{ Pristup od kuće }; +} + + sub urlf { my ($self,$urlf) = @_; - qq{ Slobodni pristup }; + qq{ Slobodni pristup }; } #sub publisher { # my ($self,$publisher) = @_; diff --git a/vhost/ecas/marc.pl b/vhost/ecas/marc.pl index ea19b80..d7cee97 100644 --- a/vhost/ecas/marc.pl +++ b/vhost/ecas/marc.pl @@ -3,14 +3,19 @@ search( 'title', rec('245','a') ) ); -search( 'issn', rec('022','a') ); +search( 'issn', + join_with(' ; ', + rec('022','a'), + rec('022','y') + ) +); search( 'publisher', regex('s/,$//', rec('260','b') ) ); search( 'url', rec('856','u') ); -search( 'urlp', rec('856','u') ); +search( 'urlpe', rec('856','u') ); search( 'collection', config('input description') ) -- 2.20.1