'.
+ $r->print(''.
&mt('[quant,_1,error]',$errorcount).' ');
}
if ($warningcount) {
@@ -2173,7 +2118,7 @@ sub checkonthis {
unless ($url=~/\$/) {
$r->print(''.&mt('not found').' ');
} else {
- $r->print(''.&mt('unable to verify variable URL').' ');
+ $r->print(''.&mt('unable to verify variable URL').' ');
}
} else {
$r->print(''.&mt('access denied').' ');
@@ -2195,7 +2140,7 @@ List Symbs
sub list_symbs {
my ($r) = @_;
- my $crstype = &Apache::loncommon::course_type();
+ my $type = &Apache::loncommon::course_type();
$r->print(&Apache::loncommon::start_page('Symb List'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Symb List'));
my $navmap = Apache::lonnavmaps::navmap->new();
@@ -2204,7 +2149,7 @@ sub list_symbs {
''.
&mt('Unable to retrieve information about course contents').
'
');
- &Apache::lonnet::logthis('Symb list failed - could not create navmap object in '.lc($crstype).':'.$env{'request.course.id'});
+ &Apache::lonnet::logthis('Symb list failed - could not create navmap object in '.lc($type).':'.$env{'request.course.id'});
} else {
$r->print("\n");
foreach my $res ($navmap->retrieveResources()) {
@@ -2218,11 +2163,11 @@ sub list_symbs {
sub verifycontent {
my ($r) = @_;
- my $crstype = &Apache::loncommon::course_type();
+ my $type = &Apache::loncommon::course_type();
my $loaderror=&Apache::lonnet::overloaderror($r);
if ($loaderror) { return $loaderror; }
- $r->print(&Apache::loncommon::start_page('Verify '.$crstype.' Documents'));
- $r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$crstype.' Documents'));
+ $r->print(&Apache::loncommon::start_page('Verify '.$type.' Documents'));
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$type.' Documents'));
$hashtied=0;
undef %alreadyseen;
%alreadyseen=();
@@ -2231,7 +2176,7 @@ sub verifycontent {
if ($hash{$key}=~/\.(page|sequence)$/) {
if (($key=~/^src_/) && ($alreadyseen{&unescape($hash{$key})})) {
$r->print(''.
- &mt('The following sequence or page is included more than once in your '.$crstype.': ').
+ &mt('The following sequence or page is included more than once in your '.$type.': ').
&unescape($hash{$key}).' Most Recent: '.
''.$currentversion.' '.
' In '.$crstype.': '.
+ ' In '.$type.': '.
'');
# Used in course
my $usedversion=$hash{'version_'.$linkurl};
@@ -2437,7 +2382,7 @@ ENDHEADERS
('select_form_order' =>
['',1..$currentversion,'mostrecent'],
'' => '',
- 'mostrecent' => &mt('most recent'),
+ 'mostrecent' => 'most recent',
map {$_,$_} (1..$currentversion))));
$r->print(' $lt{'parse'}?
+
+
+CHBO
+
+ my $fileuploadform=(<
+ $fileupload
+
+ $checkbox
+
+
+
+
+FUFORM
+
+ my $simpleeditdefaultform=(<
+ $lt{'pubd'}
+
+
+ $lt{'copm'}
+
+SEDFFORM
+
+ my $extresourcesform=(<
+ $uploadtag
+
+
+
+ERFORM
+
if ($allowed) {
&update_paste_buffer($coursenum,$coursedom);
- my $dumpbut=&dumpbutton();
- my $exportbut=&exportbutton();
my %lt=&Apache::lonlocal::texthash(
'vc' => 'Verify Content',
'cv' => 'Check/Set Resource Versions',
@@ -2864,7 +2864,8 @@ sub handler {
if (!$folderpath) {
if ($env{'form.folder'} eq '' ||
$env{'form.folder'} eq 'supplemental') {
- $folderpath='default&'.&escape($tabtitles{'main'}{$crstype});
+ $folderpath='default&'.
+ &escape(&mt('Main '.$type.' Documents'));
}
}
unless ($env{'form.pagepath'}) {
@@ -2872,71 +2873,28 @@ sub handler {
$uploadtag = '
-
-ENDCOURSEVERIFY
+ $r->print(&generate_admin_options($containertag,$uploadtag,\%lt,\%help,\%env));
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
- &mt('Editing the Table of Contents for your '.$crstype)));
+ &mt('Editing the Table of Contents for your '.$type)));
}
# --------------------------------------------------------- Standard documents
- $r->print('');
-
if (($standard) && ($allowed) && (!$forcesupplement)) {
- $r->print('');
-# ''.&mt('Main Course Documents').
-# ($allowed?' '.$help{'Main_Course_Documents'}:'').' ');
my $folder=$env{'form.folder'};
if ($folder eq '' || $folder eq 'supplemental') {
$folder='default';
- $env{'form.folderpath'}='default&'.&escape(&mt('Main '.$crstype.' Documents'));
+ $env{'form.folderpath'}='default&'.&escape(&mt('Main '.$type.' Documents'));
$uploadtag = ''.$error.'
');
}
@@ -2953,230 +2911,219 @@ ENDCOURSEVERIFY
$container='page';
}
my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;
- $r->print(<
-
-$lt{'uplm'}
-$lt{'impp'}
-$lt{'spec'}
-
-
-
-$lt{'file'}:
-
-
- ');
+
+
+
+ my $recoverform=(<
+
+
+ $uploadtag
+
+
+
+NNFORM
+ my $newsmppageform=(<
+ $uploadtag
+
+
+
+NSPFORM
+
+ my $newsmpproblemform=(<
+ $uploadtag
+
+
+
+
+NSPROBFORM
+
+ my $newdropboxform=(<
+ $uploadtag
+
+
+
+NDBFORM
+
+ my $newexuploadform=(<
+ $uploadtag
+
+
+
+NEXUFORM
+
+ my $newbulform=(<
+ $uploadtag
+
+
+
+NBFORM
+
+ my $newaboutmeform=(<
+ $uploadtag
+
+
+
+NAMFORM
+
+ my $newaboutsomeoneform=(<
+ $uploadtag
+
+
+
+NASOFORM
+
+
+ my $newrosterform=(<
+ $uploadtag
+
+
+
+NROSTFORM
+
unless ($env{'form.pagepath'}) {
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
- $r->print(<
+
+
+
+NPFORM
+
+ my $newfolderform=(<
+
+
+
+NFFORM
+
+ my $newsylform=(<
+ $uploadtag
+
+
+
+NSYLFORM
+
+ my $newgroupfileform=(<
+ $uploadtag
+
+
+
+NGFFORM
+
+
+ my $specialdocumentsform=(<
-$uploadtag
-
-
-
- '."\n".
-'
');
- $r->print(' ');
-# ''.&mt('Supplemental Course Documents').
-# ($allowed?' '.$help{'Supplemental'}:'').' ');
my $folder=$env{'form.folder'};
unless ($folder=~/^supplemental/) {
$folder='supplemental';
@@ -3184,9 +3131,9 @@ ENDBLOCK
if ($folder =~ /^supplemental$/ &&
(($env{'form.folderpath'} =~ /^default\&/) || ($env{'form.folderpath'} eq ''))) {
$env{'form.folderpath'} = 'supplemental&'.
- &escape($tabtitles{'supplemental'}{$crstype});
+ &escape(&mt('Supplemental '.$type.' Documents'));
}
- my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype);
+ my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
if ($error) {
$r->print(''.$error.'
');
}
@@ -3196,77 +3143,104 @@ ENDBLOCK
'.sequence';
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
- $r->print(<
-$lt{'upls'}
-$lt{'spec'}
-
-
-
-
-
-
-
+ $fileupload
+
+ $checkbox
+
+
+
+
+SUPDOCFORM
+
+ my $supnewfolderform=(<
+
+
+
+SNFFORM
+
+
+ my $supnewextform=(<
+
+
+
+SNEFORM
+
+ my $supnewsylform=(<
+
+
+
+SNSFORM
+
+ my $supnewaboutmeform=(<
+
+
+
+SNAMFORM
+
+
+
+my %suporderhash = (
+ 'ee' => 'New Document',
+ 'ff' => 'Special Documents',
+ 'zz' => 'Hide all Options',
+ );
+
+my %supnamehash = (
+ 'New Document' => $supupdocform,
+ 'Special Documents' => $supnewfolderform.'
+ New Document
+ Special Documents
+
+FORM
+
+#$r->print(&generate_edit_table($varscd,\%supnamehash,\%suporderhash));
+
+ }
+ }
if ($allowed) {
$r->print('
+
+
+
+ENDOPTIONFORM
+
+}
+
+
+sub generate_edit_table {
+ my ($varcd,$namehash_ref,$orderhash_ref) = @_;
+ my %namehash = %{$namehash_ref}; #name verlinkt mit id
+ my %orderhash = %{$orderhash_ref}; #name mit kürzel verlinkt mit name
+ my $form;
+
+ {
+
+ $form = ''.&mt('Upload '.$varcd).' ';
+ $form .= '
';
+ foreach my $name (sort(keys(%orderhash))){
+ if($name eq 'zz'){
+ $form .= ''.&mt($orderhash{$name}).' ';
+ }else{
+ $form .= ''.&mt($orderhash{$name}).' ';
+ }
+ }
+ $form .= '';
+ foreach my $field (keys(%namehash)){
+ $form .= '
'.$namehash{$field}.'
';
+ }
+ $form .= '