Parent Directory | Revision Log
branch for refactoring of WebPAC::Input::* modules for Sack
1 | # warn dump(rec('AU')); |
2 | # warn dump(rec_array('AU')); |
3 | |
4 | #di => split( /;/, rec( |
5 | |
6 | row( 'citing', |
7 | ut => rec('UT'), |
8 | pt => rec('PT'), |
9 | au => regex('s/,//', |
10 | uc ( frec('AU') ) |
11 | ), |
12 | ti => rec('TI'), |
13 | so => rec('SO'), |
14 | la => rec('LA'), |
15 | dt => rec('DT'), |
16 | c1 => frec('C1'), |
17 | rp => uc ( rec('RP') ), |
18 | nr => rec('NR'), |
19 | tc => rec('TC'), |
20 | pi => rec('PI'), |
21 | py => rec('PY'), |
22 | di => rec('DI'), |
23 | sc => rec('SC') |
24 | ); |
25 | |
26 | if ( rec('RP') ) { |
27 | row( 'rpco', |
28 | ut => rec('UT'), |
29 | rp => rec('RP'), |
30 | rpco => |
31 | regex('s/.*,(.*)/$1/', |
32 | regex('s/\.$//', |
33 | rec('RP') |
34 | ) |
35 | ), |
36 | ); |
37 | } |
38 | |
39 | my @af = rec_array ('AF'); |
40 | foreach my $au ( rec_array ('AU') ) { |
41 | foreach my $cr ( rec_array('CR') ) { |
42 | row( 'cited', |
43 | ut => rec('UT'), |
44 | ca => config('input name'), |
45 | cr_auth => $cr->{author}, |
46 | au => regex('s/,//', |
47 | uc ( $au ) |
48 | ), |
49 | cr_full => $cr->{full}, |
50 | cr_year => $cr->{year}, |
51 | cr_ref => $cr->{reference} |
52 | ); |
53 | } |
54 | row( 'authors', |
55 | ut => rec('UT'), |
56 | ca => config('input name'), |
57 | au => regex('s/,//', |
58 | uc ( $au ) |
59 | ), |
60 | af => shift @af, |
61 | ) |
62 | } |
63 | |
64 | row( 'utca', |
65 | ut => rec('UT'), |
66 | ca => config('input name') |
67 | ); |
68 | |
69 |
Name | Value |
---|---|
svn:mergeinfo |
ViewVC Help | |
Powered by ViewVC 1.1.26 |