--- loncom/interface/lonprintout.pm 2012/11/20 12:01:54 1.621 +++ loncom/interface/lonprintout.pm 2012/11/30 20:48:27 1.624 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.621 2012/11/20 12:01:54 foxr Exp $ +# $Id: lonprintout.pm,v 1.624 2012/11/30 20:48:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2060,6 +2060,7 @@ sub unsupported { my $result.= &print_latex_header($mode); if ($currentURL=~m|^(/adm/wrapper/)?ext/|) { $currentURL=~s|^(/adm/wrapper/)?ext/|http://|; + $currentURL=~s|^http://https://|https://|; my $title=&Apache::lonnet::gettitle($symb); $title = &Apache::lonxml::latex_special_symbols($title); $result.=' \strut \\\\ '.$title.' \strut \\\\ '.$currentURL.' '; @@ -2139,6 +2140,8 @@ sub print_page_in_course { my @page_resources = $navmap->retrieveResources($resource_src); $result .= &print_page_in_course($helper, $rparmhash, $resource_src, \@page_resources); + } elsif ($resource->ext()) { + $result .= &unsupported($currentURL,$mode,$symb); } # these resources go through the XML transformer: @@ -2605,7 +2608,6 @@ sub print_construction_sequence { # For item 100, filtering was done at the helper level. sub output_data { - &Apache::lonnet::logthis("outptu_data"); my ($r,$helper,$rparmhash) = @_; my %parmhash = %$rparmhash; @@ -2880,8 +2882,6 @@ ENDPART ($print_type eq 'select_sequences') or ($print_type eq 'map_incomplete_problems_seq') ) { - &Apache::lonnet::logthis("map_problems maybe"); - &Apache::lonnet::logthis($print_type eq 'map_problems' ? " Yes" : "No"); #-- produce an output string if (($print_type eq 'map_problems') or @@ -3802,7 +3802,6 @@ sub handler { } &init_perm(); - &Apache::lonnet::logthis("Handler"); my $helper = printHelper($r); if (!ref($helper)) { return $helper;