--- loncom/interface/londocs.pm 2009/11/02 12:10:34 1.410
+++ loncom/interface/londocs.pm 2010/01/13 14:32:57 1.412
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.410 2009/11/02 12:10:34 wenzelju Exp $
+# $Id: londocs.pm,v 1.412 2010/01/13 14:32:57 wenzelju Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2478,7 +2478,7 @@ ENDHEADERS
('select_form_order' =>
['',1..$currentversion,'mostrecent'],
'' => '',
- 'mostrecent' => 'most recent',
+ 'mostrecent' => &mt('most recent'),
map {$_,$_} (1..$currentversion))));
$r->print('
| ');
my $lastold=1;
@@ -2972,9 +2972,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));
@@ -3292,9 +3292,9 @@ if($env{'form.pagepath'}) {
}
my @tools = (
- {'
'=>$extresourcesform},
- {'
'=>$imspform},
- {'
'=>$recoverform},
+ {'
'=>$extresourcesform},
+ {'
'=>$imspform},
+ {'
'=>$recoverform},
);
my %orderhash = (
@@ -3409,9 +3409,9 @@ SNAMFORM
my @specialdocs = (
- {'
'=>$supnewextform},
- {'
'=>$supnewsylform},
- {'
'=>$supnewaboutmeform},
+ {'
'=>$supnewextform},
+ {'
'=>$supnewsylform},
+ {'
'=>$supnewaboutmeform},
);
my %suporderhash = (
'00' => ['Supnewfolder', $supnewfolderform],
@@ -3466,22 +3466,24 @@ sub generate_admin_options {
'vc' => 'Verify Content',
'cv' => 'Check/Set Resource Versions',
'ls' => 'List Symbs',
- 'sl' => 'Show Log'
+ 'sl' => 'Show Log',
+ 'imse' => 'IMS Export',
+ 'dcd' => 'Dump Course DOCS to Construction Space: available on other servers'
);
my %help = %{$help_ref};
my %env = %{$env_ref};
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 '';