--- loncom/interface/lonprintout.pm 2006/07/18 18:19:51 1.464 +++ loncom/interface/lonprintout.pm 2006/07/20 03:38:52 1.465 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.464 2006/07/18 18:19:51 albertel Exp $ +# $Id: lonprintout.pm,v 1.465 2006/07/20 03:38:52 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2064,7 +2064,7 @@ sub init_perm { $perm{'pav'}=&Apache::lonnet::allowed('pav', $env{'request.course.id'}.'/'.$env{'request.course.sec'}); } - $perm{'pfo'}=&Apache::lonnet::allowed('pav',$env{'request.course.id'}); + $perm{'pfo'}=&Apache::lonnet::allowed('pfo',$env{'request.course.id'}); if (!$perm{'pfo'}) { $perm{'pfo'}=&Apache::lonnet::allowed('pfo', $env{'request.course.id'}.'/'.$env{'request.course.sec'}); @@ -2241,10 +2241,15 @@ sub printHelper { $helper->declareVar('SEQUENCE'); + # If we're in a sequence... + my $start_new_option; + if ($perm{'pav'}) { + $start_new_option = + "