-=item updatesub
-
- &updatesub($newsubject, $oldsubject);
-
-Renames a subject from C<$oldsubject> to C<$newsubject> in the
-bibliosubject table of the Koha database.
-
-=cut
-#'
-sub updatesub{
- my ($sub,$oldsub)=@_;
- my $dbh = C4::Context->dbh;
- $sub=$dbh->quote($sub);
- $oldsub=$dbh->quote($oldsub);
- my $sth=$dbh->prepare("update bibliosubject set subject=? where subject=?");
- $sth->execute($sub,$oldsub);
- $sth->finish;
-}
-