--- loncom/interface/londocs.pm 2009/10/16 19:00:44 1.393
+++ loncom/interface/londocs.pm 2009/10/17 00:09:26 1.394
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.393 2009/10/16 19:00:44 raeburn Exp $
+# $Id: londocs.pm,v 1.394 2009/10/17 00:09:26 droeschl Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2905,9 +2905,7 @@ FIUP
CHBO
- my @fileuploada = (
- { '' => " $help{'Uploading_From_Harddrive'}" },
- );
+ my $fileuploada = " $help{'Uploading_From_Harddrive'}";
my $fileuploadform=(<
@@ -2922,7 +2920,9 @@ CHBO
$checkbox
FUFORM
- $fileuploadform .= create_form_ul(create_list_elements(@fileuploada));
+ #$list .= Apache::lonhtmlcommon::htmltag('li', $picture.' '.$button->{$picture}, {class => 'LC_menubuttons_inline_text'});
+ #$fileuploadform .= create_form_ul(create_list_elements(@fileuploada));
+ $fileuploadform .= create_form_ul(Apache::lonhtmlcommon::htmltag('li',$fileuploada,{class => 'LC_menubuttons_inline_text'}));
$fileuploadform .= (<
FUFORM
@@ -2932,9 +2932,9 @@ FUFORM
SEDFFORM
my @simpleeditdefaultforma = (
- { '' => "$uploadtag$lt{'srch'}" },
- { '' => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" },
- { '' => "$lt{'book'}" },
+ { '' => "$uploadtag$lt{'srch'}" },
+ { '' => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" },
+ { '' => "$lt{'book'}" },
);
$simpleeditdefaultform .= create_form_ul(create_list_elements(@simpleeditdefaultforma));
$simpleeditdefaultform .=(<
NGFFORM
@specialdocumentsforma=(
- {''=>$newpageform},
- {''=>$newsylform},
- {''=>$newgroupfileform},
+ {''=>$newpageform},
+ {''=>$newsylform},
+ {''=>$newgroupfileform},
);
}
- push @specialdocumentsforma, ({''=>$newnavform},
- {''=>$newsmppageform},
- {''=>$newsmpproblemform},
- {''=>$newdropboxform},
- {''=>$newexuploadform},
- {''=>$newbulform},
- {''=>$newaboutmeform},
- {''=>$newaboutsomeoneform},
- {''=>$newrosterform},);
+ push @specialdocumentsforma, ({''=>$newnavform},
+ {''=>$newsmppageform},
+ {''=>$newsmpproblemform},
+ {''=>$newdropboxform},
+ {''=>$newexuploadform},
+ {''=>$newbulform},
+ {''=>$newaboutmeform},
+ {''=>$newaboutsomeoneform},
+ {''=>$newrosterform},);
$specialdocumentsform = create_form_ul(create_list_elements(@specialdocumentsforma));
@@ -3241,9 +3241,9 @@ if($env{'form.pagepath'}) {
}
my @tools = (
- {''=>$extresourcesform},
- {''=>$imspform},
- {''=>$recoverform},
+ {''=>$extresourcesform},
+ {''=>$imspform},
+ {''=>$recoverform},
);
my %orderhash = (
@@ -3426,15 +3426,15 @@ sub generate_admin_options {
my $dumpbut=&dumpbutton();
my $exportbut=&exportbutton();
my @list = (
- {''=>"$lt{'vc'}$help{'Verify_Content'}"},
- {''=>"$lt{'cv'}$help{'Check_Resource_Versions'}"},
+ {''=>"$lt{'vc'}$help{'Verify_Content'}"},
+ {''=>"$lt{'cv'}$help{'Check_Resource_Versions'}"},
);
if($dumpbut ne ''){
- push @list, {''=>$dumpbut};
+ push @list, {''=>$dumpbut};
}
- push @list, ({''=>$exportbut},
- {''=>"$lt{'ls'}"},
- {''=>"$lt{'sl'}"},
+ push @list, ({''=>$exportbut},
+ {''=>"$lt{'ls'}"},
+ {''=>"$lt{'sl'}"},
);
return '';