|
Lines 113-125
sub get_count_by_tag_status {
Link Here
|
| 113 |
} |
113 |
} |
| 114 |
|
114 |
|
| 115 |
sub remove_tag { |
115 |
sub remove_tag { |
| 116 |
my $tag_id = shift or return undef; |
116 |
my $tag_id = shift or return; |
| 117 |
my $user_id = (@_) ? shift : undef; |
117 |
my $user_id = (@_) ? shift : undef; |
| 118 |
my $rows = (defined $user_id) ? |
118 |
my $rows = (defined $user_id) ? |
| 119 |
get_tag_rows({tag_id=>$tag_id, borrowernumber=>$user_id}) : |
119 |
get_tag_rows({tag_id=>$tag_id, borrowernumber=>$user_id}) : |
| 120 |
get_tag_rows({tag_id=>$tag_id}) ; |
120 |
get_tag_rows({tag_id=>$tag_id}) ; |
| 121 |
$rows or return 0; |
121 |
$rows or return 0; |
| 122 |
(scalar(@$rows) == 1) or return undef; # should never happen (duplicate ids) |
122 |
(scalar(@$rows) == 1) or return; # should never happen (duplicate ids) |
| 123 |
my $row = shift(@$rows); |
123 |
my $row = shift(@$rows); |
| 124 |
($tag_id == $row->{tag_id}) or return 0; |
124 |
($tag_id == $row->{tag_id}) or return 0; |
| 125 |
my $tags = get_tags({term=>$row->{term}, biblionumber=>$row->{biblionumber}}); |
125 |
my $tags = get_tags({term=>$row->{term}, biblionumber=>$row->{biblionumber}}); |
|
Lines 141-165
sub remove_tag {
Link Here
|
| 141 |
} |
141 |
} |
| 142 |
|
142 |
|
| 143 |
sub delete_tag_index { |
143 |
sub delete_tag_index { |
| 144 |
(@_) or return undef; |
144 |
(@_) or return; |
| 145 |
my $sth = C4::Context->dbh->prepare("DELETE FROM tags_index WHERE term = ? AND biblionumber = ? LIMIT 1"); |
145 |
my $sth = C4::Context->dbh->prepare("DELETE FROM tags_index WHERE term = ? AND biblionumber = ? LIMIT 1"); |
| 146 |
$sth->execute(@_); |
146 |
$sth->execute(@_); |
| 147 |
return $sth->rows || 0; |
147 |
return $sth->rows || 0; |
| 148 |
} |
148 |
} |
| 149 |
sub delete_tag_approval { |
149 |
sub delete_tag_approval { |
| 150 |
(@_) or return undef; |
150 |
(@_) or return; |
| 151 |
my $sth = C4::Context->dbh->prepare("DELETE FROM tags_approval WHERE term = ? LIMIT 1"); |
151 |
my $sth = C4::Context->dbh->prepare("DELETE FROM tags_approval WHERE term = ? LIMIT 1"); |
| 152 |
$sth->execute(shift); |
152 |
$sth->execute(shift); |
| 153 |
return $sth->rows || 0; |
153 |
return $sth->rows || 0; |
| 154 |
} |
154 |
} |
| 155 |
sub delete_tag_row_by_id { |
155 |
sub delete_tag_row_by_id { |
| 156 |
(@_) or return undef; |
156 |
(@_) or return; |
| 157 |
my $sth = C4::Context->dbh->prepare("DELETE FROM tags_all WHERE tag_id = ? LIMIT 1"); |
157 |
my $sth = C4::Context->dbh->prepare("DELETE FROM tags_all WHERE tag_id = ? LIMIT 1"); |
| 158 |
$sth->execute(shift); |
158 |
$sth->execute(shift); |
| 159 |
return $sth->rows || 0; |
159 |
return $sth->rows || 0; |
| 160 |
} |
160 |
} |
| 161 |
sub delete_tag_rows_by_ids { |
161 |
sub delete_tag_rows_by_ids { |
| 162 |
(@_) or return undef; |
162 |
(@_) or return; |
| 163 |
my $i=0; |
163 |
my $i=0; |
| 164 |
foreach(@_) { |
164 |
foreach(@_) { |
| 165 |
$i += delete_tag_row_by_id($_); |
165 |
$i += delete_tag_row_by_id($_); |
|
Lines 355-361
sub get_approval_rows { # i.e., from tags_approval
Link Here
|
| 355 |
} |
355 |
} |
| 356 |
|
356 |
|
| 357 |
sub is_approved { |
357 |
sub is_approved { |
| 358 |
my $term = shift or return undef; |
358 |
my $term = shift or return; |
| 359 |
my $sth = C4::Context->dbh->prepare("SELECT approved FROM tags_approval WHERE term = ?"); |
359 |
my $sth = C4::Context->dbh->prepare("SELECT approved FROM tags_approval WHERE term = ?"); |
| 360 |
$sth->execute($term); |
360 |
$sth->execute($term); |
| 361 |
unless ($sth->rows) { |
361 |
unless ($sth->rows) { |
|
Lines 366-372
sub is_approved {
Link Here
|
| 366 |
} |
366 |
} |
| 367 |
|
367 |
|
| 368 |
sub get_tag_index { |
368 |
sub get_tag_index { |
| 369 |
my $term = shift or return undef; |
369 |
my $term = shift or return; |
| 370 |
my $sth; |
370 |
my $sth; |
| 371 |
if (@_) { |
371 |
if (@_) { |
| 372 |
$sth = C4::Context->dbh->prepare("SELECT * FROM tags_index WHERE term = ? AND biblionumber = ?"); |
372 |
$sth = C4::Context->dbh->prepare("SELECT * FROM tags_index WHERE term = ? AND biblionumber = ?"); |
|
Lines 380-386
sub get_tag_index {
Link Here
|
| 380 |
|
380 |
|
| 381 |
sub whitelist { |
381 |
sub whitelist { |
| 382 |
my $operator = shift; |
382 |
my $operator = shift; |
| 383 |
defined $operator or return undef; # have to test defined to allow =0 (kohaadmin) |
383 |
defined $operator or return; # have to test defined to allow =0 (kohaadmin) |
| 384 |
if ($ext_dict) { |
384 |
if ($ext_dict) { |
| 385 |
foreach (@_) { |
385 |
foreach (@_) { |
| 386 |
spellcheck($_) or next; |
386 |
spellcheck($_) or next; |
|
Lines 402-408
sub whitelist {
Link Here
|
| 402 |
# a term mistakenly, you can still reverse it. But there is no going back to "neutral". |
402 |
# a term mistakenly, you can still reverse it. But there is no going back to "neutral". |
| 403 |
sub blacklist { |
403 |
sub blacklist { |
| 404 |
my $operator = shift; |
404 |
my $operator = shift; |
| 405 |
defined $operator or return undef; # have to test defined to allow =0 (kohaadmin) |
405 |
defined $operator or return; # have to test defined to allow =0 (kohaadmin) |
| 406 |
foreach (@_) { |
406 |
foreach (@_) { |
| 407 |
my $aref = get_approval_rows({term=>$_}); |
407 |
my $aref = get_approval_rows({term=>$_}); |
| 408 |
if ($aref and scalar @$aref) { |
408 |
if ($aref and scalar @$aref) { |
|
Lines 415-428
sub blacklist {
Link Here
|
| 415 |
} |
415 |
} |
| 416 |
sub add_filter { |
416 |
sub add_filter { |
| 417 |
my $operator = shift; |
417 |
my $operator = shift; |
| 418 |
defined $operator or return undef; # have to test defined to allow =0 (kohaadmin) |
418 |
defined $operator or return; # have to test defined to allow =0 (kohaadmin) |
| 419 |
my $query = "INSERT INTO tags_blacklist (regexp,y,z) VALUES (?,?,?)"; |
419 |
my $query = "INSERT INTO tags_blacklist (regexp,y,z) VALUES (?,?,?)"; |
| 420 |
# my $sth = C4::Context->dbh->prepare($query); |
420 |
# my $sth = C4::Context->dbh->prepare($query); |
| 421 |
return scalar @_; |
421 |
return scalar @_; |
| 422 |
} |
422 |
} |
| 423 |
sub remove_filter { |
423 |
sub remove_filter { |
| 424 |
my $operator = shift; |
424 |
my $operator = shift; |
| 425 |
defined $operator or return undef; # have to test defined to allow =0 (kohaadmin) |
425 |
defined $operator or return; # have to test defined to allow =0 (kohaadmin) |
| 426 |
my $query = "REMOVE FROM tags_blacklist WHERE blacklist_id = ?"; |
426 |
my $query = "REMOVE FROM tags_blacklist WHERE blacklist_id = ?"; |
| 427 |
# my $sth = C4::Context->dbh->prepare($query); |
427 |
# my $sth = C4::Context->dbh->prepare($query); |
| 428 |
# $sth->execute($term); |
428 |
# $sth->execute($term); |
|
Lines 431-437
sub remove_filter {
Link Here
|
| 431 |
|
431 |
|
| 432 |
sub add_tag_approval { # or disapproval |
432 |
sub add_tag_approval { # or disapproval |
| 433 |
$debug and warn "add_tag_approval(" . join(", ",map {defined($_) ? $_ : 'UNDEF'} @_) . ")"; |
433 |
$debug and warn "add_tag_approval(" . join(", ",map {defined($_) ? $_ : 'UNDEF'} @_) . ")"; |
| 434 |
my $term = shift or return undef; |
434 |
my $term = shift or return; |
| 435 |
my $query = "SELECT * FROM tags_approval WHERE term = ?"; |
435 |
my $query = "SELECT * FROM tags_approval WHERE term = ?"; |
| 436 |
my $sth = C4::Context->dbh->prepare($query); |
436 |
my $sth = C4::Context->dbh->prepare($query); |
| 437 |
$sth->execute($term); |
437 |
$sth->execute($term); |
|
Lines 456-463
sub add_tag_approval { # or disapproval
Link Here
|
| 456 |
|
456 |
|
| 457 |
sub mod_tag_approval { |
457 |
sub mod_tag_approval { |
| 458 |
my $operator = shift; |
458 |
my $operator = shift; |
| 459 |
defined $operator or return undef; # have to test defined to allow =0 (kohaadmin) |
459 |
defined $operator or return; # have to test defined to allow =0 (kohaadmin) |
| 460 |
my $term = shift or return undef; |
460 |
my $term = shift or return; |
| 461 |
my $approval = (scalar @_ ? shift : 1); # default is to approve |
461 |
my $approval = (scalar @_ ? shift : 1); # default is to approve |
| 462 |
my $query = "UPDATE tags_approval SET approved_by=?, approved=?, date_approved=NOW() WHERE term = ?"; |
462 |
my $query = "UPDATE tags_approval SET approved_by=?, approved=?, date_approved=NOW() WHERE term = ?"; |
| 463 |
$debug and print STDERR "mod_tag_approval query: $query\nmod_tag_approval args: ($operator,$approval,$term)\n"; |
463 |
$debug and print STDERR "mod_tag_approval query: $query\nmod_tag_approval args: ($operator,$approval,$term)\n"; |
|
Lines 466-473
sub mod_tag_approval {
Link Here
|
| 466 |
} |
466 |
} |
| 467 |
|
467 |
|
| 468 |
sub add_tag_index { |
468 |
sub add_tag_index { |
| 469 |
my $term = shift or return undef; |
469 |
my $term = shift or return; |
| 470 |
my $biblionumber = shift or return undef; |
470 |
my $biblionumber = shift or return; |
| 471 |
my $query = "SELECT * FROM tags_index WHERE term = ? AND biblionumber = ?"; |
471 |
my $query = "SELECT * FROM tags_index WHERE term = ? AND biblionumber = ?"; |
| 472 |
my $sth = C4::Context->dbh->prepare($query); |
472 |
my $sth = C4::Context->dbh->prepare($query); |
| 473 |
$sth->execute($term,$biblionumber); |
473 |
$sth->execute($term,$biblionumber); |
|
Lines 480-486
sub add_tag_index {
Link Here
|
| 480 |
} |
480 |
} |
| 481 |
|
481 |
|
| 482 |
sub get_tag { # by tag_id |
482 |
sub get_tag { # by tag_id |
| 483 |
(@_) or return undef; |
483 |
(@_) or return; |
| 484 |
my $sth = C4::Context->dbh->prepare("$select_all WHERE tag_id = ?"); |
484 |
my $sth = C4::Context->dbh->prepare("$select_all WHERE tag_id = ?"); |
| 485 |
$sth->execute(shift); |
485 |
$sth->execute(shift); |
| 486 |
return $sth->fetchrow_hashref; |
486 |
return $sth->fetchrow_hashref; |
|
Lines 501-507
sub rectify_weights {
Link Here
|
| 501 |
} else { |
501 |
} else { |
| 502 |
$sth->execute(); |
502 |
$sth->execute(); |
| 503 |
} |
503 |
} |
| 504 |
my $results = $sth->fetchall_arrayref({}) or return undef; |
504 |
my $results = $sth->fetchall_arrayref({}) or return; |
| 505 |
my %tally = (); |
505 |
my %tally = (); |
| 506 |
foreach (@$results) { |
506 |
foreach (@$results) { |
| 507 |
_set_weight($_->{count},$_->{term},$_->{biblionumber}); |
507 |
_set_weight($_->{count},$_->{term},$_->{biblionumber}); |
|
Lines 553-564
sub _set_weight {
Link Here
|
| 553 |
} |
553 |
} |
| 554 |
|
554 |
|
| 555 |
sub add_tag { # biblionumber,term,[borrowernumber,approvernumber] |
555 |
sub add_tag { # biblionumber,term,[borrowernumber,approvernumber] |
| 556 |
my $biblionumber = shift or return undef; |
556 |
my $biblionumber = shift or return; |
| 557 |
my $term = shift or return undef; |
557 |
my $term = shift or return; |
| 558 |
my $borrowernumber = (@_) ? shift : 0; # the user, default to kohaadmin |
558 |
my $borrowernumber = (@_) ? shift : 0; # the user, default to kohaadmin |
| 559 |
$term =~ s/^\s+//; |
559 |
$term =~ s/^\s+//; |
| 560 |
$term =~ s/\s+$//; |
560 |
$term =~ s/\s+$//; |
| 561 |
($term) or return undef; # must be more than whitespace |
561 |
($term) or return; # must be more than whitespace |
| 562 |
my $rows = get_tag_rows({biblionumber=>$biblionumber, borrowernumber=>$borrowernumber, term=>$term, limit=>1}); |
562 |
my $rows = get_tag_rows({biblionumber=>$biblionumber, borrowernumber=>$borrowernumber, term=>$term, limit=>1}); |
| 563 |
my $query = "INSERT INTO tags_all |
563 |
my $query = "INSERT INTO tags_all |
| 564 |
(borrowernumber,biblionumber,term,date_created) |
564 |
(borrowernumber,biblionumber,term,date_created) |
|
Lines 567-573
sub add_tag { # biblionumber,term,[borrowernumber,approvernumber]
Link Here
|
| 567 |
"add_tag query args: ($borrowernumber,$biblionumber,$term)\n"; |
567 |
"add_tag query args: ($borrowernumber,$biblionumber,$term)\n"; |
| 568 |
if (scalar @$rows) { |
568 |
if (scalar @$rows) { |
| 569 |
$debug and carp "Duplicate tag detected. Tag not added."; |
569 |
$debug and carp "Duplicate tag detected. Tag not added."; |
| 570 |
return undef; |
570 |
return; |
| 571 |
} |
571 |
} |
| 572 |
# add to tags_all regardless of approaval |
572 |
# add to tags_all regardless of approaval |
| 573 |
my $sth = C4::Context->dbh->prepare($query); |
573 |
my $sth = C4::Context->dbh->prepare($query); |
| 574 |
- |
|
|