Pretraživanje časopisa u relevantnim bazama za humanistiku i društvene

[webpac2] / vhost / refcas-old / psycinfo2json.pl

diff --git a/vhost/refcas-old/psycinfo2json.pl b/vhost/refcas-old/psycinfo2json.pl
new file mode 100644 (file)
index 0000000..ec3ab62
--- /dev/null
+++ b/vhost/refcas-old/psycinfo2json.pl
@@ -0,0 +1,24 @@
+tag('title', uc ( rec('A') ) );
+tag('issn',    
+       join_with(' ; ',
+               rec('B'),
+               rec('C')
+       )
+);
+tag('publisher', rec('D') );
+
+my $vol;
+if ( rec('F') =~ m/Y/ ) {
+       $vol = ', Vol. 1'
+} else {
+       $vol = '';
+}
+
+tag('coverage',
+       suffix( $vol, rec('E') )
+);
+
+tag( 'database',       
+       config('input description')
+);
+