+ my $sti = $dbh->prepare("select stdlib from bibliothesaurus where id=?");
+ $sti->execute($id);
+ my ($freelib_text) = $sti->fetchrow_array;
+ if (length($result)>0) {
+ $result .= "|$freelib_text";
+ } else {
+ $result = $freelib_text;
+ }
+}
+if ($op eq "add") {
+ newauthority($dbh,$category,$insert,$insert,'',1,'');
+ $search_string=$insert;