--- loncom/interface/londocs.pm 2012/12/02 18:54:40 1.517 +++ loncom/interface/londocs.pm 2012/12/02 22:40:09 1.518 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.517 2012/12/02 18:54:40 raeburn Exp $ +# $Id: londocs.pm,v 1.518 2012/12/02 22:40:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2279,9 +2279,11 @@ ENDREM $lt{'rm'} ENDREM } - $renamelink=(<$lt{'rn'} ENDREN + } $form_start = '
'; @@ -2352,7 +2354,7 @@ END } } - my $editlink; + my ($editlink,$extresform); my $orig_url = $url; $orig_url=~s{http(:|:)//https(:|:)//}{https$2//}; $url=~s{^http(|s)(:|:)//}{/adm/wrapper/ext/}; @@ -2450,7 +2452,7 @@ $form_common.' my $fileloc = &Apache::lonnet::declutter(&Apache::lonnet::filelocation('',$orig_url)); if ($isexternal) { - $editlink = + ($editlink,$extresform) = &Apache::lonextresedit::extedit_form(0,$residx,$orig_url,$title,$pathitem); } elsif (!$isfolder && !$ispage) { my ($cfile,$home,$switchserver,$forceedit,$forceview) = @@ -2464,8 +2466,8 @@ $form_common.' &escape($env{'form.folderpath'}), $renametitle); if ($jscall) { - $editlink = ' '.&mt('Edit').' '; + $editlink = ''.&mt('Edit').' '."\n"; } } } @@ -2494,7 +2496,7 @@ $form_common.' } else { $line.=$title.' '.$reinit.''; } - $line.=''; + $line.="$extresform"; $rand_pick_text = ' ' if ($rand_pick_text eq ''); $rand_order_text = ' ' if ($rand_order_text eq ''); if (($allowed) && ($folder!~/^supplemental/)) {