projects
/
Biblio-Z3950.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
39edd50
)
942c based on table name
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 15 Dec 2016 08:06:14 +0000
(09:06 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 15 Dec 2016 08:06:14 +0000
(09:06 +0100)
CROSBI.pm
patch
|
blob
|
history
diff --git
a/CROSBI.pm
b/CROSBI.pm
index
6164e52
..
b549f8b
100644
(file)
--- a/
CROSBI.pm
+++ b/
CROSBI.pm
@@
-61,6
+61,8
@@
sub search {
my $table = lc $self->{database};
$table =~ s/^crosbi-//g;
+ $self->{_table} = $table;
+
my $sql = qq{
select distinct *
@@
-416,7
+418,9
@@
sub next_marc {
}
my @f942 = (
- c => 'CLA'
+ c => $self->{_table} eq 'casopis' ? 'CLA' :
+ $self->{_table} eq 'preprint' ? 'PRE' :
+ 'FIXME',
);
if ( $row->{status_rada} ) {
push @f942, (