8 my $sth=$dbh->prepare("Select biblio.biblionumber,biblio.title from biblio,catalogueentry where catalogueentry.entrytype
9 ='t' and catalogueentry.catalogueentry=biblio.title limit 500");
11 while (my $data=$sth->fetchrow_hashref){
12 my $query="Update catalogueentry set biblionumber='$data->{'biblionumber'}' where catalogueentry.catalogueentry =
13 \"$data->{'title'}\" and catalogueentry.entrytype='t'";
14 my $sth2=$dbh->prepare($query);