|
Lines 589-595
sub add_tag { # biblionumber,term,[borrowernumber,approvernumber]
Link Here
|
| 589 |
sub stratify_tags { |
589 |
sub stratify_tags { |
| 590 |
my ( $strata, $tags ) = @_; |
590 |
my ( $strata, $tags ) = @_; |
| 591 |
|
591 |
|
| 592 |
my ( $min, $max ); |
592 |
my ( $min, $max ) = ( 0, 0 ); |
| 593 |
foreach (@$tags) { |
593 |
foreach (@$tags) { |
| 594 |
my $w = $_->{weight_total}; |
594 |
my $w = $_->{weight_total}; |
| 595 |
$min = $w if ( !defined($min) || $min > $w ); |
595 |
$min = $w if ( !defined($min) || $min > $w ); |
| 596 |
- |
|
|