+ #initializing values for updates
+ my ( $itemtagfield, $itemtagsubfield) = &GetMarcFromKohaField("items.itemnumber", "");
+ if ($values_to_modify){
+ my $xml = TransformHtmlToXml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag, 'ITEM');
+ utf8::encode($xml);
+ $marcitem = MARC::Record::new_from_xml($xml, 'UTF-8');
+ }
+ if ($values_to_blank){
+ foreach my $disabledsubf (@disabled){
+ if ($marcitem && $marcitem->field($itemtagfield)){
+ $marcitem->field($itemtagfield)->update( $disabledsubf => "" );
+ }
+ else {
+ $marcitem = MARC::Record->new();
+ $marcitem->append_fields( MARC::Field->new( $itemtagfield, '', '', $disabledsubf => "" ) );
+ }
+ }
+ }
+