Lines 18-24
BEGIN {
Link Here
|
18 |
} |
18 |
} |
19 |
my $dbh = C4::Context->dbh; |
19 |
my $dbh = C4::Context->dbh; |
20 |
|
20 |
|
21 |
my $query = "SELECT authid, marc FROM auth_header LIMIT 1;"; |
21 |
my $where_clause = ' WHERE marcxml LIKE \'%datafield tag="'; |
|
|
22 |
if (C4::Context->preference('MARCFlavour') eq 'UNIMARC') { |
23 |
$where_clause .= '2%\''; |
24 |
} else { |
25 |
$where_clause .= '1%\''; |
26 |
} |
27 |
|
28 |
my $query = "SELECT authid, marc FROM auth_header "; |
29 |
$query .= $where_clause; |
22 |
my $sth = $dbh->prepare($query); |
30 |
my $sth = $dbh->prepare($query); |
23 |
$sth->execute(); |
31 |
$sth->execute(); |
24 |
my ($authid, $marc) = $sth->fetchrow_array(); |
32 |
my ($authid, $marc) = $sth->fetchrow_array(); |
25 |
- |
|
|