--- rat/lonwrapper.pm 2011/11/07 20:06:29 1.41 +++ rat/lonwrapper.pm 2016/10/31 21:31:42 1.49.2.2 @@ -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.2 2016/10/31 21:31:42 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,36 +33,113 @@ 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 ($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(<