--- loncom/interface/lonextresedit.pm 2012/12/02 18:25:11 1.2 +++ loncom/interface/lonextresedit.pm 2012/12/02 22:40:09 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: lonextresedit.pm,v 1.2 2012/12/02 18:25:11 raeburn Exp $ +# $Id: lonextresedit.pm,v 1.3 2012/12/02 22:40:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -211,7 +211,7 @@ sub extedit_form { $urlid = 'suppexturl'; } my ($link,$legend,$active,$srcclass,$extsrc,$preview,$title,$save, - $fieldsetstyle,$action,$hiddenelem); + $fieldsetstyle,$action,$hiddenelem,$form); $fieldsetstyle = 'display: none;'; $action = '/adm/coursedocs'; if ($residx) { @@ -228,9 +228,9 @@ sub extedit_form { &HTML::Entities::encode(&escape($orig_title),'<>&"').'" />'; } } else { - $link = ''.$lt{'ed'}.''; + $link = ''.$lt{'ed'}.' '."\n"; $size = 40; - $active = ''; + $active = ''; } $formname = "editext_$residx"; $fieldsetid = "uploadext$residx"; @@ -252,8 +252,7 @@ sub extedit_form { $save = $lt{'al'}; $pathitem .= '
'; } - return <
$legend @@ -275,7 +274,11 @@ $hiddenelem
ENDFORM - + if (wantarray) { + return ($link,$form); + } else { + return $link.$form; + } } sub display_editor {