--- loncom/interface/lonextresedit.pm 2012/11/27 23:34:41 1.1
+++ 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.1 2012/11/27 23:34:41 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,10 +252,9 @@ sub extedit_form {
$save = $lt{'al'};
$pathitem .= '
';
}
- return <
-
+
ENDFORM
-
+ if (wantarray) {
+ return ($link,$form);
+ } else {
+ return $link.$form;
+ }
}
sub display_editor {