--- loncom/interface/londocs.pm 2023/05/22 21:10:55 1.699 +++ loncom/interface/londocs.pm 2023/07/11 19:33:02 1.701 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.699 2023/05/22 21:10:55 raeburn Exp $ +# $Id: londocs.pm,v 1.701 2023/07/11 19:33:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -45,7 +45,6 @@ use Apache::lontemplate(); use Apache::lonsimplepage(); use Apache::lonhomework(); use Apache::lonpublisher(); -use Apache::lonparmset(); use Apache::loncourserespicker(); use HTML::Entities; use HTML::TokeParser; @@ -2657,7 +2656,7 @@ sub url_paste_fixups { if ($is_exttool) { $exttoolchg = 1; } - } elsif (($rem =~ m{\d+/ext\.tool$}) && + } elsif (($is_exttool) && ($env{'form.docs.markedcopy_options'} ne 'move')) { $dbcopies->{$oldurl}{$id}{'src'} = $ressrc; $dbcopies->{$oldurl}{$id}{'cdom'} = $srcdom; @@ -3754,7 +3753,7 @@ sub multiple_check_form { return unless (ref($listsref) eq 'HASH'); my $disabled; unless ($canedit) { - $disabled = 'disabled="disabled"'; + $disabled = ' disabled="disabled"'; } my $output = '
'. @@ -3792,7 +3791,7 @@ sub multiple_check_form { ''."\n". ''. ''. - ''. ''."\n"; } @@ -4555,7 +4554,7 @@ $form_end; } else { $reinit = &mt('(re-initialize course to access)'); } - $line.=''.$editlink.$renamelink; + $line.=''.$editlink.$renamelink.'';; if ($orig_url =~ /$LONCAPA::assess_re/) { $line.= '
'; if ($curralias ne '') { @@ -4566,7 +4565,7 @@ $form_end; $lt{'sa'}.'
'; } } - $line.=''; + $line.=''; my ($link,$nolink); if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) { if ($allowed && !$env{'request.role.adv'} && !$isfolder && !$ispage) { @@ -6566,7 +6565,7 @@ NROSTFORM $help{'Web_Page'} NWEBFORM - + my $showpath = &HTML::Entities::encode($env{'form.folderpath'},'<>&"'); my @ids=&Apache::lonnet::current_machine_ids(); my $machines_str = "'".join("','",@ids)."'"; my (%is_home,%toppath,$rolehomes); @@ -6664,7 +6663,7 @@ NWEBFORM "resize_scrollbox('contentscroll','1','0');", "toggleExampleText();",'template').'
'; my $templatepreview = ''. - ''.&mt('Example').''; + ''.&mt('Example').''; my $crsresform=(< $lt{'stpr'}$help{'Course_Resource'} @@ -6674,19 +6673,21 @@ NWEBFORM

$pickdir +

+ $lt{'fnam'} -

+

$lt{'uste'}    +

-

- + -