Provides $obj as parameter when calling get_basic_input_ids in EPrints::MetaField->render_input_field_actual

drn05r · drn05r · commit 430532bcb004 · 2025-02-05T15:41:26.000Z
diff --git a/perl_lib/EPrints/MetaField.pm b/perl_lib/EPrints/MetaField.pm
@@ -1358,7 +1358,7 @@ sub render_input_field_actual
 		else
 		{
 			my $x = 0;
-			my @input_ids = $self->get_basic_input_ids( $session, $basename, $staff );
+			my @input_ids = $self->get_basic_input_ids( $session, $basename, $staff, $obj );
 			foreach my $col_title ( @{$col_titles} )
 			{
 				

Original file line number	Diff line number	Diff line change
`@@ -1358,7 +1358,7 @@ sub render_input_field_actual`
`1358`	`1358`	`else`
`1359`	`1359`	`{`
`1360`	`1360`	`my $x = 0;`
`1361`		`- my @input_ids = $self->get_basic_input_ids( $session, $basename, $staff );`
	`1361`	`+ my @input_ids = $self->get_basic_input_ids( $session, $basename, $staff, $obj );`
`1362`	`1362`	`foreach my $col_title ( @{$col_titles} )`
`1363`	`1363`	`{`
`1364`	`1364`