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