--- rat/lonwrapper.pm 2011/11/07 20:06:29 1.41 +++ rat/lonwrapper.pm 2019/07/31 00:36:10 1.49.2.6 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Wrapper for external and binary files as standalone resources # -# $Id: lonwrapper.pm,v 1.41 2011/11/07 20:06:29 www Exp $ +# $Id: lonwrapper.pm,v 1.49.2.6 2019/07/31 00:36:10 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,36 +33,155 @@ use strict; use Apache::Constants qw(:common); use Apache::lonenc(); use Apache::lonnet; +use Apache::lonlocal; +use Apache::loncommon(); +use Apache::lonhtmlcommon(); +use Apache::lonextresedit(); # ================================================================ Main Handler sub wrapper { - my $url = shift; + my ($r,$url,$brcrum,$absolute,$is_ext,$is_pdf,$title) = @_; - my $startpage = Apache::loncommon::start_page('Menu',undef, - { 'force_register' =>1, 'bgcolor' => '#FFFFFF',}) ; - my $endpage = Apache::loncommon::end_page(); - - my $script = Apache::lonhtmlcommon::scripttag(<