|
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 |
- |
|
|