# find itemtype
my $frameworkcode = &GetFrameworkCode($biblionumber);
-my $tagslib = &GetMarcStructure($dbh,1,$frameworkcode);
+my $tagslib = &GetMarcStructure(1,$frameworkcode);
my $record = GetMarcBiblio($biblionumber);
# warn "==>".$record->as_formatted;
my $oldrecord = TransformMarcToKoha($dbh,$record);