Lines 253-266
if ($add_op) {
Link Here
|
253 |
deleted_count => $dels, |
253 |
deleted_count => $dels, |
254 |
); |
254 |
); |
255 |
} else { |
255 |
} else { |
256 |
my ($arg,$limit,$mine); |
256 |
my ($arg,$limit); |
257 |
my $hardmax = 100; # you might disagree what this value should be, but there definitely should be a max |
257 |
my $hardmax = 100; # you might disagree what this value should be, but there definitely should be a max |
258 |
$limit = $query->param('limit') || $hardmax; |
258 |
$limit = $query->param('limit') || $hardmax; |
259 |
$mine = $query->param('mine') || 0; # set if the patron want to see only his own tags. |
|
|
260 |
($limit =~ /^\d+$/ and $limit <= $hardmax) or $limit = $hardmax; |
259 |
($limit =~ /^\d+$/ and $limit <= $hardmax) or $limit = $hardmax; |
261 |
$template->param(limit => $limit); |
260 |
$template->param(limit => $limit); |
262 |
my $arghash = {approved=>1, limit=>$limit, 'sort'=>'-weight_total'}; |
261 |
my $arghash = {approved=>1, limit=>$limit, 'sort'=>'-weight_total'}; |
263 |
$arghash->{'borrowernumber'} = $loggedinuser if $mine; |
|
|
264 |
# ($openadds) or $arghash->{approved} = 1; |
262 |
# ($openadds) or $arghash->{approved} = 1; |
265 |
if ($arg = $query->param('tag')) { |
263 |
if ($arg = $query->param('tag')) { |
266 |
$arghash->{term} = $arg; |
264 |
$arghash->{term} = $arg; |
Lines 270-276
if ($add_op) {
Link Here
|
270 |
$results = get_approval_rows($arghash); |
268 |
$results = get_approval_rows($arghash); |
271 |
stratify_tags(10, $results); # work out the differents sizes for things |
269 |
stratify_tags(10, $results); # work out the differents sizes for things |
272 |
my $count = scalar @$results; |
270 |
my $count = scalar @$results; |
273 |
$template->param(TAGLOOP_COUNT => $count, mine => $mine); |
271 |
$template->param(TAGLOOP_COUNT => $count); |
274 |
} |
272 |
} |
275 |
(scalar @errors ) and $template->param(ERRORS => \@errors); |
273 |
(scalar @errors ) and $template->param(ERRORS => \@errors); |
276 |
my @orderedresult = sort { uc($a->{'term'}) cmp uc($b->{'term'}) } @$results; |
274 |
my @orderedresult = sort { uc($a->{'term'}) cmp uc($b->{'term'}) } @$results; |
277 |
- |
|
|