--- loncom/interface/londocs.pm 2003/09/17 21:20:15 1.80
+++ loncom/interface/londocs.pm 2003/09/21 21:40:06 1.82
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.80 2003/09/17 21:20:15 albertel Exp $
+# $Id: londocs.pm,v 1.82 2003/09/21 21:40:06 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -38,6 +38,7 @@ use Apache::lonxml;
use Apache::loncreatecourse;
use HTML::Entities;
use GDBM_File;
+use Apache::lonlocal;
my $iconpath;
@@ -114,10 +115,11 @@ sub dumpbutton {
my $output='
';
if ($home) {
return ' '.
- ' ';
+ ' ';
} else {
return' '.
- 'Dump Course DOCS to Construction Space: available on other servers';
+ &mt('Dump Course DOCS to Construction Space: available on other servers');
}
}
@@ -185,7 +187,7 @@ sub dumpcourse {
# Input form
unless ($home==1) {
$r->print(
- 'Select the Construction Space ');
+ ''.&mt('Select the Construction Space').' ');
}
foreach (sort keys %outhash) {
if ($_=~/^home_(.+)$/) {
@@ -203,9 +205,9 @@ sub dumpcourse {
my $title=$origcrsdata{'description'};
$title=~s/\s+/\_/gs;
$title=~s/\W//gs;
- $r->print('Folder in Construction Space ');
+ $r->print(''.&mt('Folder in Construction Space').' ');
&tiehash();
- $r->print('Filenames in Construction Space ');
- $r->print('Done. ');
+ $r->print(''.&mt('Done').'. ');
} else {
- $r->print('No content modifications yet.
');
+ $r->print(''.&mt('No content modifications yet.').'
');
}
&untiehash();
}
@@ -662,10 +664,11 @@ ENDHEADERS
# ================================================================ Main Handler
sub handler {
my $r = shift;
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
return OK if $r->header_only;
+ &Apache::lonlocal::clearreroutetrans();
# --------------------------------------------- Initialize help topics for this
foreach ('Adding_Course_Doc','Main_Course_Documents',
'Adding_External_Resource','Navigate_Content',
@@ -836,6 +839,28 @@ ENDNEWSCRIPT
&Apache::loncommon::bodytag('Course Documents','',$events,
'','',$showdoc));
unless ($showdoc) {
+# -----------------------------------------------------------------------------
+ my %lt=&Apache::lonlocal::texthash(
+ 'uplm' => 'Upload a new main course document',
+ 'upls' => 'Upload a new supplemental course document',
+ 'impp' => 'Import a published document',
+ 'spec' => 'Special documents',
+ 'upld' => 'Upload Document',
+ 'srch' => 'Search',
+ 'impo' => 'Import',
+ 'selm' => 'Select Map',
+ 'load' => 'Load Map',
+ 'newf' => 'New Folder',
+ 'extr' => 'External Resource',
+ 'syll' => 'Syllabus',
+ 'navc' => 'Navigate Contents',
+ 'sipa' => 'Simple Page',
+ 'sipr' => 'Simple Problem',
+ 'scuf' => 'Score Upload Form',
+ 'bull' => 'Bulletin Board',
+ 'mypi' => 'My Personal Info'
+ );
+# -----------------------------------------------------------------------------
if ($allowed) {
my $dumpbut=&dumpbutton();
$r->print(<print('');
if (($standard) && ($allowed) && (!$forcesupplement)) {
- $r->print('Main Course Documents'.
+ $r->print(''.&mt('Main Course Documents').
($allowed?' '.$help{'Main_Course_Documents'}:'').' ');
my $folder=$ENV{'form.folder'};
unless ($folder=~/^default/) { $folder='default'; }
@@ -880,18 +905,20 @@ ENDCOURSEVERIFY
$r->print(
''.
'');
}
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.sequence';
-
$r->print(<
-Upload a new main course document
-Import a published document
-Special documents
+$lt{'uplm'}
+$lt{'impp'}
+$lt{'spec'}
File:
@@ -903,7 +930,7 @@ Title:
-
+
$help{'Uploading_From_Harddrive'}
@@ -914,10 +941,10 @@ Title:
+"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="$lt{'srch'}">
+"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="$lt{'impo'}">
$help{'Importing_LON-CAPA_Resource'}
@@ -925,7 +952,7 @@ $help{'Importing_LON-CAPA_Resource'}
+value="$lt{'selm'}">
$help{'Load_Map'}
@@ -937,7 +964,7 @@ $help{'Load_Map'}
$help{'Adding_Folders'}
+value="$lt{'newf'}" />$help{'Adding_Folders'}
@@ -965,7 +992,7 @@ value="Syllabus=/public/$coursedom/$cour
-
+
$help{'Navigate_Content'}
@@ -974,7 +1001,7 @@ $help{'Navigate_Content'}
- $help{'Simple Page'}
@@ -983,7 +1010,7 @@ onClick="javascript:makesmppage();" /> $
- $help{'Simple Problem'}
@@ -992,7 +1019,7 @@ onClick="javascript:makesmpproblem();" /
-
$help{'Score_Upload_Form'}
@@ -1002,7 +1029,7 @@ $help{'Score_Upload_Form'}
-
$help{'Bulletin Board'}
@@ -1013,7 +1040,7 @@ $help{'Bulletin Board'}
-
+
$help{'My Personal Info'}
@@ -1025,7 +1052,7 @@ ENDFORM
# ----------------------------------------------------- Supplemental documents
if (!$forcestandard) {
$r->print(
- ' Supplemental Course Documents'.
+ ''.&mt('Supplemental Course Documents').
($allowed?' '.$help{'Supplemental'}:'').' ');
my $folder=$ENV{'form.folder'};
unless ($folder=~/supplemental/) { $folder='supplemental'; }
@@ -1037,9 +1064,9 @@ ENDFORM
$r->print(<
-Upload a new supplemental course document
-Import a published document
-Special documents
+$lt{'upls'}
+$lt{'impp'}
+$lt{'spec'}
@@ -1062,9 +1089,9 @@ ENDFORM
+"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="$lt{'srch'}">
$help{'Importing_LON-CAPA_Resource'}
+"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="$lt{'impo'}">$help{'Importing_LON-CAPA_Resource'}
@@ -1081,7 +1108,7 @@ value="Select Map">
$help{'Adding_Folders'}
+value="$lt{'newf'}" /> $help{'Adding_Folders'}
@@ -1110,7 +1137,7 @@ $help{'Syllabus'}
-
+
$help{'My Personal Info'}
@@ -1125,11 +1152,12 @@ ENDSUPFORM
$r->print('
');
} else {
# -------------------------------------------------------- This is showdoc mode
- $r->print("Uploaded Document It is recommended that you use an up-to-date virus scanner before handling this file.
".
- &entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'
');
+ $r->print("".&mt('Uploaded Document').' '.
+&mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."
".
+ &entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'
');
}
}
- $r->print('