--- loncom/interface/lontemplate.pm 2013/04/24 02:43:59 1.47 +++ loncom/interface/lontemplate.pm 2013/05/09 05:47:57 1.48 @@ -1,7 +1,7 @@ # The LearningOnline Network # "Template" Functions to generate html output # -# $Id: lontemplate.pm,v 1.47 2013/04/24 02:43:59 raeburn Exp $ +# $Id: lontemplate.pm,v 1.48 2013/05/09 05:47:57 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -151,19 +151,26 @@ sub print_saveall_template { sub print_template_fields { my ($r, $data_ref, $fields_ref, $target, $allowed, $default_rich_text, $custom_handlers_ref, $group, - $displayref) = @_; + $displayref,$noshowref) = @_; my @html_ids = (); my %data = %{$data_ref}; my %fields = %{$fields_ref}; my %custom_handlers = %{$custom_handlers_ref}; - my %displays; + my (%displays,%noshow); if (ref($displayref) eq 'HASH') { %displays = %{$displayref}; } + if (ref($noshowref) eq 'HASH') { + %noshow = %{$noshowref}; + } foreach my $field (sort(keys(%fields))) { my $message = $data{$field} if (($data{$field}=~/\w/) || ($allowed)); my $legacy = 1; my $display = $displays{$field}; + my $hidden; + unless ($allowed) { + next if ($noshow{$field}); + } my $gateway = Apache::lonhtmlgateway->new($target); $message = &Encode::decode('utf8', $message); $message = $gateway->process_outgoing_html($message, $legacy);