'.&mt('Caution: this folder is set to randomly pick a subset of resources. Adding or removing resources from this folder will change the set of resources that the students see, resulting in spurious or missing credit for completed problems, not limited to ones you modify. Do not modify the contents of this folder if it is in active student use.').'
');
}
@@ -1715,7 +1733,7 @@ sub parse_supplemental_title {
}
if (wantarray) {
return ($title,$foldertitle,$renametitle);
- }
+ }
return $title;
}
@@ -1736,7 +1754,7 @@ sub entryline {
}
my $orderidx=$LONCAPA::map::order[$index];
-
+
$renametitle=~s/\\/\\\\/g;
$renametitle=~s/\"\;/\\\"/g;
@@ -1811,7 +1829,7 @@ sub entryline {
}
my $copylink=' ';
my $cutlink=' ';
-
+
my $skip_confirm = 0;
if ( $folder =~ /^supplemental/
|| ($url =~ m{( /smppg$
@@ -1897,7 +1915,7 @@ END
&Apache::lonnet::allowuploaded('/adm/coursedoc',$url);
}
}
-
+
my $orig_url = $url;
$orig_url=~s{http(:|:)//https(:|:)//}{https$2//};
my $external = ($url=~s{^http(|s)(:|:)//}{/adm/wrapper/ext/});
@@ -1932,7 +1950,7 @@ END
}
if ($container eq 'page') {
my $symb=$env{'form.pagesymb'};
-
+
$url=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);
$url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
}
@@ -1962,7 +1980,7 @@ END
my $ro_set=
((&LONCAPA::map::getparameter($orderidx,'parameter_randomorder'))[0]=~/^yes$/i?' checked="checked"':'');
$rand_order_text ='
-
$form_start
-
+
$form_end
$form_start
-
+
$form_end
|
$form_start $rand_order_text $form_end |
@@ -2045,7 +2063,7 @@ sub tiehash {
$hashtied=1;
}
}
- }
+ }
}
sub untiehash {
@@ -2094,7 +2112,7 @@ sub checkonthis {
if (($errorcount) ||
($warningcount)) {
if ($errorcount) {
- $r->print('
'.
+ $r->print(''.
&mt('[quant,_1,error]',$errorcount).'');
}
if ($warningcount) {
@@ -2119,7 +2137,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').'');
@@ -2394,7 +2412,7 @@ ENDHEADERS
$lastold=$prevvers;
}
}
- #
+ #
# Code to figure out how many version entries should go in
# each of the four columns
my $entries_per_col = 0;
@@ -2484,13 +2502,17 @@ sub changewarning {
$message='Changes will become active for your current session after [_1], or the next time you log in.';
}
$r->print("\n\n".
-''."\n".
+''."\n".
''."\n\n");
}
@@ -2619,7 +2641,7 @@ sub handler {
if (($env{'form.folder'}=~/^(?:group|default)_/) ||
($env{'form.folder'} =~ m:^\d+/(pages|sequences)/:)) {
$forcestandard = 1;
- }
+ }
$forcesupplement=($env{'form.folder'}=~/^supplemental_/);
if ($allowed) {
@@ -2647,13 +2669,17 @@ sub handler {
$script .= &editing_js($udom,$uname);
}
# -------------------------------------------------------------------- Body tag
- $script = '';
+ $script = '';
my $brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}];
$r->print(&Apache::loncommon::start_page("$type Documents", $script,
{'force_register' => $showdoc,
'bread_crumbs' => $brcrum}).
&Apache::loncommon::help_open_menu('','',273,'RAT'));
-
+
my %allfiles = ();
my %codebase = ();
my ($upload_result,$upload_output);
@@ -2722,7 +2748,7 @@ sub handler {
$attrib_regexp = $attribs{$item}[0];
}
if ($content =~ m#($attrib_regexp\s*=\s*['"]?)\Q$origname{$item}\E(['"]?)#) {
- }
+ }
$content =~ s#($attrib_regexp\s*=\s*['"]?)\Q$origname{$item}\E(['"]?)#$1$newname{$item}$2#gi;
}
if (exists($codebase{$item})) {
@@ -2775,7 +2801,7 @@ sub handler {
'title' => 'Title',
'comment' => 'Comment',
'parse' => 'Upload embedded images/multimedia files if HTML file!',
- 'nd' => 'New Document',
+ 'nd' => 'Upload Document',
'pm' => 'Published Map',
'sd' => 'Special Document',
'mo' => 'More Options',
@@ -2821,20 +2847,20 @@ FUFORM
@@ -2925,7 +2951,12 @@ HIDDENFORM
}
my $postexec='';
if ($folder eq 'default') {
- $r->print('');
+ $r->print(''
+ );
} else {
#$postexec='self.close();';
}
@@ -2943,14 +2974,14 @@ HIDDENFORM
my $recoverform=(<
-
+
RFORM
my $imspform=(<
-
+
IMSPFORM
@@ -2971,7 +3002,7 @@ NNFORM
$help{'Simple Page'}
+ onclick="javascript:makesmppage();" /> $help{'Simple Page'}
NSPFORM
@@ -2982,7 +3013,7 @@ NSPFORM
$help{'Simple Problem'}
+ onclick="javascript:makesmpproblem();" />$help{'Simple Problem'}
@@ -2994,7 +3025,7 @@ NSPROBFORM
+ onclick="javascript:makedropbox();" />
NDBFORM
@@ -3005,7 +3036,7 @@ NDBFORM
+ onclick="javascript:makeexamupload();" />
$help{'Score_Upload_Form'}
@@ -3017,7 +3048,7 @@ NEXUFORM
+ onclick="javascript:makebulboard();" />
$help{'Bulletin Board'}
@@ -3041,7 +3072,7 @@ NAMFORM
+ onclick="javascript:makeabout();" />
NASOFORM
@@ -3071,7 +3102,7 @@ my $newfolderform;
$help{'Adding_Pages'}
@@ -3083,7 +3114,7 @@ NPFORM
$help{'Adding_Folders'}
@@ -3100,7 +3131,7 @@ NFFORM
NSYLFORM
-
+
my $newgroupfileform=(<
$uploadtag
@@ -3125,7 +3156,7 @@ if($env{'form.pagepath'}) {
}
my %orderhash = (
- 'aa' => ['New Document',$fileuploadform.'
'.$newfolderform],
+ 'aa' => ['Upload Document',$fileuploadform.'
'.$newfolderform],
'bb' => ['Published Documents',$simpleeditdefaultform],
'cc' => ['Special Documents',$specialdocumentsform],
'dd' => ['Tools',$extresourcesform.'
'.$imspform.'
'.$recoverform.'
'.&generate_admin_options($containertag,$uploadtag,\%help,\%env)],
@@ -3200,7 +3231,7 @@ SUPDOCFORM
$help{'Adding_Folders'}
@@ -3213,7 +3244,7 @@ SNFFORM
$help{'Adding_External_Resource'}
@@ -3246,7 +3277,7 @@ SNAMFORM
my %suporderhash = (
- 'ee' => ['New Document',$supupdocform.'
'.$supnewfolderform],
+ 'ee' => ['Upload Document',$supupdocform.'
'.$supnewfolderform],
'ff' => ['Special Documents',$supnewextform.'
'.$supnewsylform.'
'.$supnewaboutmeform],
'zz' => ['Hide all Options'],
);
@@ -3260,7 +3291,7 @@ my $error = &editor($r,$coursenum,$cours
$r->print(''.$error.'
');
}
$r->print('');
- }
+ }
$r->print('');
if ($allowed) {
$r->print('
@@ -3283,7 +3314,7 @@ $r->print('');
}
$r->print(&Apache::loncommon::end_page());
return OK;
-}
+}
sub generate_admin_options {
my ($containertag,$uploadtag,$help_ref,$env_ref) = @_;
@@ -3334,7 +3365,7 @@ sub generate_edit_table {
}
}
$form .= '';
-
+
return $form;
}