--- loncom/interface/londocs.pm 2002/09/04 14:50:53 1.17
+++ loncom/interface/londocs.pm 2002/09/05 19:37:00 1.20
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.17 2002/09/04 14:50:53 www Exp $
+# $Id: londocs.pm,v 1.20 2002/09/05 19:37:00 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -198,6 +198,7 @@ END
$url=&Apache::lonnet::tokenwrapper($url);
}
}
+ $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
# Title
$title=&Apache::lonnet::unescape($title);
my $foldertitle=$title;
@@ -231,6 +232,7 @@ sub handler {
my $script='';
my $allowed;
my $events='';
+ my $showdoc=0;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['folder','foldername','showdoc']);
unless ($ENV{'form.showdoc'}) { # got called from remote
@@ -245,9 +247,8 @@ sub handler {
}
} else { # got called in sequence from course
$allowed=0;
- $forcestandard=1;
- $forcesupplement=0;
- $script=&Apache::&Apache::lonxml::registerurl(1,undef);
+ $showdoc=1;
+ $script=&Apache::lonxml::registerurl(1,undef);
$events='onLoad="'.&Apache::lonxml::loadevents.
'" onUnload="'.&Apache::lonxml::unloadevents.'"';
}
@@ -274,7 +275,11 @@ sub handler {
The LearningOnline Network with CAPA
+ENDDOCUMENT
+ if ($allowed) {
+ $r->print(<
function makenewfolder(targetform,folderseq) {
var foldername=prompt('Name of New Folder','New Folder');
if (foldername) {
@@ -283,12 +288,26 @@ function makenewfolder(targetform,folder
}
}
-function makenewext(targetform) {
+function makenewext(targetname) {
+ this.document.forms.extimport.useform.value=targetname;
+ window.open('/adm/rat/extpickframe.html');
+}
+
+function finishpick() {
+ var title=this.document.forms.extimport.title.value;
+ var url=this.document.forms.extimport.url.value;
+ var form=this.document.forms.extimport.useform.value;
+ eval
+ ('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+
+ '";this.document.forms.'+form+'.submit();');
}
-
-ENDDOCUMENT
-$r->print(&Apache::loncommon::bodytag('Course Documents','',$events));
+ENDNEWSCRIPT
+ }
+# -------------------------------------------------------------------- Body tag
+ $r->print(''.
+ &Apache::loncommon::bodytag('Course Documents','',$events));
+ unless ($showdoc) {
# --------------------------------------------------------- Standard documents
if (($standard) && ($allowed) && (!$forcesupplement)) {
$r->print('Main Course Documents
');
@@ -338,7 +357,7 @@ value="New Folder" />
-
-
-
-
-');
+ }
+ } else {
+# -------------------------------------------------------- This is showdoc mode
+ $r->print("Uploaded DocumentIt 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",$ENV{'form.showdoc'}).' ');
+ }
+ $r->print(' |