--- loncom/homework/structuretags.pm 2013/12/04 15:57:12 1.516 +++ loncom/homework/structuretags.pm 2014/05/18 02:13:45 1.519 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.516 2013/12/04 15:57:12 bisitz Exp $ +# $Id: structuretags.pm,v 1.519 2014/05/18 02:13:45 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -414,6 +414,8 @@ sub page_start { $body_args{'add_entries'} = \%add_entries; if ( $env{'request.state'} eq 'construct') { $body_args{'only_body'} = 1; + } elsif ($target eq 'web') { + $body_args{'print_suppress'} = 1; } } $body_args{'no_auto_mt_title'} = 1; @@ -728,7 +730,7 @@ $show_all @@ -1168,7 +1170,7 @@ sub start_problem { $target eq 'tex') { if ($env{'form.markaccess'}) { my @interval=&Apache::lonnet::EXT("resource.0.interval"); - &Apache::lonnet::set_first_access($interval[1]); + &Apache::lonnet::set_first_access($interval[1],$interval[0]); } ($status,$accessmsg,$slot_name,$slot) =