--- loncom/interface/londocs.pm 2009/10/20 12:26:02 1.398
+++ loncom/interface/londocs.pm 2009/10/20 20:43:54 1.400
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.398 2009/10/20 12:26:02 bisitz Exp $
+# $Id: londocs.pm,v 1.400 2009/10/20 20:43:54 droeschl Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3231,7 +3231,7 @@ NSYLFORM
NGFFORM
@specialdocumentsforma=(
- {'
'=>$newpageform},
+ {'
'=>$newpageform},
{'
'=>$newsylform},
{'
'=>$newgroupfileform},
);
@@ -3314,9 +3314,7 @@ $r->print('');
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
- my @supupdocform = (
- {'
'=>"$help{'Uploading_From_Harddrive'}"},
- );
+ my $supupdocformbtn = "$help{'Uploading_From_Harddrive'}";
my $supupdocform=(<
@@ -3333,7 +3331,7 @@ $r->print('');
SUPDOCFORM
- $supupdocform .= create_form_ul(create_list_elements(@supupdocform))."";
+ $supupdocform .= create_form_ul(Apache::lonhtmlcommon::htmltag('li',$supupdocformbtn,{class => 'LC_menubuttons_inline_text'}))."";
my $supnewfolderform=(<