--- loncom/xml/londefdef.pm 2023/07/13 19:07:27 1.472 +++ loncom/xml/londefdef.pm 2024/04/14 17:12:28 1.475 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.472 2023/07/13 19:07:27 raeburn Exp $ +# $Id: londefdef.pm,v 1.475 2024/04/14 17:12:28 raeburn Exp $ # # # Copyright Michigan State University Board of Trustees @@ -50,7 +50,7 @@ use Apache::lonlocal; use Apache::loncommon(); use Apache::Constants qw(:common); use File::Basename; -use LONCAPA(); +use LONCAPA; # use Data::Dumper; BEGIN { @@ -621,6 +621,9 @@ sub start_body { if ($env{'request.use_absolute'}) { $args->{'use_absolute'} = $env{'request.use_absolute'}; } + if ($env{'form.only_body'}) { + $args->{'only_body'} = 1; + } } $currentstring = &Apache::loncommon::start_page($Apache::londefdef::title, @@ -655,9 +658,10 @@ sub start_body { sub edit_controls { my ($nochgview) = @_; - my $result .= ' + my ($is_course_doc,$is_supp,$supp_path,$supp_title); + my $result = '