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	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	}