projects
/
webpac2
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
example search for Koha database
[webpac2]
/
vhost
/
koha
/
marc.pl
1
search( 'author',
2
join_with(' ; ',
3
rec('100','a'),
4
rec('700','a')
5
)
6
);
7
search( 'title',
8
join_with(' ',
9
rec('245','a'),
10
rec('245','b'),
11
rec('245','c'),
12
)
13
);
14
search( 'isbn', rec('020','a') );
15
search( 'impressum',
16
join_with(' ',
17
rec('260','a'),
18
rec('260','b'),
19
rec('260','c'),
20
)
21
);
22
if ( my $year = rec('008') ) {
23
search( 'year',
24
substr( $year,7,4 )
25
) if length($year) > 13;
26
}
27
search( 'keywords',
28
join_with(' ; ',
29
rec('653','a')
30
)
31
);
32
search( 'biblionumber',
33
rec('999','c')
34
);