--- loncom/interface/londocs.pm 2009/10/19 02:12:32 1.396 +++ 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.396 2009/10/19 02:12:32 raeburn 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=( - {'pic06'=>$newpageform}, + {'pic06'=>$newpageform}, {'pic07'=>$newsylform}, {'pic08'=>$newgroupfileform}, ); @@ -3252,8 +3252,8 @@ NGFFORM if($env{'form.pagepath'}) { @specialdocumentsforma=( - {'pic32'=>$newsmpproblemform}, - {'pic33'=>$newexuploadform} + {'pic32'=>$newsmpproblemform}, + {'pic33'=>$newexuploadform} ); $specialdocumentsform= create_form_ul(create_list_elements(@specialdocumentsforma)); } @@ -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=(< @@ -3379,9 +3377,9 @@ SNAMFORM my @specialdocs = ( - {'pic29'=>$supnewextform}, - {'pic30'=>$supnewsylform}, - {'pic31'=>$supnewaboutmeform}, + {'pic29'=>$supnewextform}, + {'pic30'=>$supnewsylform}, + {'pic31'=>$supnewaboutmeform}, ); my %suporderhash = ( '00' => ['Supnewfolder', $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){