+
+sub shiftgroup{
+ my ($bib,$bi)=@_;
+ my $dbh=C4Connect;
+ my $query="update biblioitems set biblionumber=$bib where biblioitemnumber=$bi";
+ my $sth=$dbh->prepare($query);
+ $sth->execute;
+ $sth->finish;
+ $query="update items set biblionumber=$bib where biblioitemnumber=$bi";
+ $sth=$dbh->prepare($query);
+ $sth->execute;
+ $sth->finish;
+ $dbh->disconnect;
+}
+
+sub deletedbib{
+ my ($title)=@_;
+ my $dbh=C4Connect;
+ my $query="Select * from deletedbiblio where title like '$title%' order by title";
+ my $sth=$dbh->prepare($query);
+ $sth->execute;
+ my @results;
+ my $i=0;
+ while (my $data=$sth->fetchrow_hashref){
+ $results[$i]=$data;
+ $i++;
+ }
+ $sth->finish;
+ $dbh->disconnect;
+ return($i,\@results);
+}
+
+sub undeletebib{
+ my ($bib)=@_;
+ my $dbh=C4Connect;
+ my $query="select * from deletedbiblio where biblionumber=$bib";
+ my $sth=$dbh->prepare($query);
+ $sth->execute;
+ if (my @data=$sth->fetchrow_array){
+ $sth->finish;
+ $query="Insert into biblio values (";
+ foreach my $temp (@data){
+ $temp=~ s/\'/\\\'/g;
+ $query=$query."'$temp',";
+ }
+ $query=~ s/\,$/\)/;
+ # print $query;
+ $sth=$dbh->prepare($query);
+ $sth->execute;
+ $sth->finish;
+ }
+ $query="Delete from deletedbiblio where biblionumber=$bib";
+ $sth=$dbh->prepare($query);
+ $sth->execute;
+ $sth->finish;
+ $dbh->disconnect;
+}
+
+