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