-=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);
- # FIXME - Just use $dbh->do();
- my $query="update bibliosubject set subject=$sub where subject=$oldsub";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- $sth->finish;
-}
-
-=item shiftgroup