--- loncom/interface/londocs.pm 2013/01/07 00:06:59 1.484.2.21 +++ loncom/interface/londocs.pm 2012/12/07 17:04:01 1.523 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.484.2.21 2013/01/07 00:06:59 raeburn Exp $ +# $Id: londocs.pm,v 1.523 2012/12/07 17:04:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -651,7 +651,7 @@ sub print_paste_buffer { $is_external = 1; } - my ($canpaste,$nopaste,$othercrs,$areachange); + my ($canpaste,$nopaste,$othercrs,$areachange,$is_uploaded_map); if ($folder =~ /^supplemental/) { $canpaste = &supp_pasteable($env{'docs.markedcopy_url'}); unless ($canpaste) { @@ -1543,7 +1543,7 @@ sub apply_fixups { if ($folder !~ /^supplemental/) { $report = 1; } - (my $outtext,$errtext) = + my ($outtext,$errtext) = &LONCAPA::map::storemap("/uploaded/$cdom/$cnum/$storefn",1,$report); if ($errtext) { return &mt('Paste failed: an error occurred saving the folder or page.'); @@ -1694,11 +1694,7 @@ sub editor { $container = 'sequence'; } - my $jumpto; - - unless ($supplementalflag) { - $jumpto = "'uploaded/$coursedom/$coursenum/$folder.$container'"; - } + my $jumpto = "uploaded/$coursedom/$coursenum/$folder.$container"; unless ($allowed) { $randompick = -1; @@ -1871,7 +1867,7 @@ sub editor { 'Navigation_Screen',undef,'RAT') .''.&mt('Tools:').'' .'