--- loncom/interface/lonprintout.pm 2003/01/27 16:01:13 1.106 +++ loncom/interface/lonprintout.pm 2003/01/28 20:36:17 1.107 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.106 2003/01/27 16:01:13 sakharuk Exp $ +# $Id: lonprintout.pm,v 1.107 2003/01/28 20:36:17 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -162,14 +162,14 @@ sub sequence_content_menu { my @titles_master_seq = &titles_coming_from_hash($primary_sequence,$sequence[0]); foreach my $entity (@titles_master_seq) {$entity=~/^(.*)&&/; $entity=$1} my @master_seq_view = @master_seq; - if (not $ENV{'request.role'}=~/^st\./) { + if ($ENV{'user.adv'}) { for (my $i=0;$i<=$#master_seq_view;$i++) { $master_seq_view[$i]=~/___\d+___(.+)$/; $master_seq_view[$i]='/'.$1; } } else { for (my $i=0;$i<=$#master_seq_view;$i++) { - $master_seq_view[$i]=' '; + $master_seq_view[$i]=' '; } } $r->print(<print(< +

+  +  ENDMENUOUT2 @@ -277,7 +279,8 @@ sub problem_choice_menu { }   - +  +

ENDMENUOUT1 my $i=0; @@ -287,10 +290,12 @@ ENDMENUOUT1 $i++; } $r->print(< +

+  +  ENDMENUOUT2 }