--- loncom/interface/londocs.pm 2009/10/19 16:13:17 1.397 +++ loncom/interface/londocs.pm 2009/10/22 22:25:36 1.401 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.397 2009/10/19 16:13:17 wenzelju Exp $ +# $Id: londocs.pm,v 1.401 2009/10/22 22:25:36 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2900,7 +2900,7 @@ sub create_form_ul { 'file' => 'File', 'title' => 'Title', 'comment' => 'Comment', - 'parse' => 'Upload embedded images/multimedia files if HTML file!', + 'parse' => 'Upload embedded images/multimedia files if HTML file', 'nd' => 'Upload Document', 'pm' => 'Published Map', 'sd' => 'Special Document', @@ -3231,7 +3231,7 @@ NSYLFORM NGFFORM @specialdocumentsforma=( - {'pic06'=>$newpageform}, + {'pic06'=>$newpageform}, {'pic07'=>$newsylform}, {'pic08'=>$newgroupfileform}, ); @@ -3314,9 +3314,7 @@ $r->print(''); my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"'); - my @supupdocform = ( - {'pic27'=>"$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=(< @@ -3484,7 +3482,7 @@ sub generate_edit_table { } } $form .= ''; - $form .= '
'; + $form .= '
'; foreach my $field (keys(%orderhash)){ if($field ne '00'){ if($activetab eq '' || $activetab ne $field){