my ( $header_part, $claims_part, $footer_part ) = split( /\./, $data->{id_token} );
my $claim = decode_json( decode_base64url($claims_part) );
warn Data::Dumper::Dumper( $claim );
foreach my $key ( keys %$mapping ) {
my $pkey = $mapping->{$key};
$mapped_data->{$key} = $claim->{$pkey}
my $tab = $input->param("tab_$id");
my $seealso = $input->param("seealso_$id");
my $authorised_value = $input->param("authorised_value_$id");
my $authtypecode = $input->param("authtypecodes_$id");
my $authtypecode = $input->param("authtypecode_$id");
my $value_builder = $input->param("value_builder_$id");
my $hidden = $input->param("hidden_$id");
my $isurl = $input->param("isurl_$id") ? 1 : 0;
-