vhost/ecas/cambridge.pl

my $issn_key =
        rec('F');

my $issn = get( $issn_key );

if ( $issn ) {
        # warn "nije novi";
} else {

$issn = rec('F');

set( $issn_key => $issn );


search( 'title',        rec('D') );
search( 'abbtitle',     rec('E') );
search( 'issn',
        join_with(' ; ',
                $issn,
                rec('G') 
        )
);
search( 'publisher',    'Cambridge' );
search( 'url',          'http://journals.cambridge.org/' . lc ( rec('A') ) );
search( 'urlp',         'http://journals.cambridge.org/' . lc ( rec('A') ) );
search( 'collection',   
        config('input description')
)

}
1	mglavica	1263	my $issn_key =
2			rec('F');
3
4			my $issn = get( $issn_key );
5
6			if ( $issn ) {
7			# warn "nije novi";
8			} else {
9
10			$issn = rec('F');
11
12			set( $issn_key => $issn );
13
14
15			search( 'title', rec('D') );
16			search( 'abbtitle', rec('E') );
17			search( 'issn',
18			join_with(' ; ',
19			$issn,
20			rec('G')
21			)
22			);
23			search( 'publisher', 'Cambridge' );
24			search( 'url', 'http://journals.cambridge.org/' . lc ( rec('A') ) );
25			search( 'urlp', 'http://journals.cambridge.org/' . lc ( rec('A') ) );
26			search( 'collection',
27			config('input description')
28			)
29
30			}