|
Lines 1158-1164
Example of text:
Link Here
|
| 1158 |
sub BuildAuthHierarchies{ |
1158 |
sub BuildAuthHierarchies{ |
| 1159 |
my $authid = shift @_; |
1159 |
my $authid = shift @_; |
| 1160 |
# warn "authid : $authid"; |
1160 |
# warn "authid : $authid"; |
| 1161 |
my $force = shift @_; |
1161 |
my $force = shift @_ || (C4::Context->preference('marcflavour') eq 'UNIMARC' ? 0 : 1); |
| 1162 |
my @globalresult; |
1162 |
my @globalresult; |
| 1163 |
my $dbh=C4::Context->dbh; |
1163 |
my $dbh=C4::Context->dbh; |
| 1164 |
my $hierarchies; |
1164 |
my $hierarchies; |
| 1165 |
- |
|
|