Parent Directory | Revision Log
diploma work - changing the name of conf directory
1 | mglavica | 1270 | # 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 |