--- loncom/interface/londocs.pm 2004/05/11 06:37:39 1.127
+++ loncom/interface/londocs.pm 2004/06/15 15:50:03 1.130
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.127 2004/05/11 06:37:39 albertel Exp $
+# $Id: londocs.pm,v 1.130 2004/06/15 15:50:03 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -121,7 +121,8 @@ sub dumpbutton {
if ($home) {
return '
'.
'';
+ &mt('Dump Course DOCS to Construction Space').'" />'.
+ &Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs');
} else {
return' | '.
&mt('Dump Course DOCS to Construction Space: available on other servers');
@@ -399,6 +400,10 @@ sub editor {
if ($ENV{'form.cmd'}) {
my ($cmd,$idx)=split(/\_/,$ENV{'form.cmd'});
if ($cmd eq 'del') {
+ my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]);
+ if ($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) {
+ &Apache::lonnet::removeuploadedurl($url);
+ }
for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {
$Apache::lonratedt::order[$i]=
$Apache::lonratedt::order[$i+1];
@@ -1019,7 +1024,8 @@ sub handler {
'Adding_External_Resource','Navigate_Content',
'Adding_Folders','Docs_Overview', 'Load_Map',
'Supplemental', 'Score_Upload_Form',
- 'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {
+ 'Importing_LON-CAPA_Resource','Uploading_From_Harddrive',
+ 'Check_Resource_Versions','Verify_Content') {
$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
}
# Composite help files
@@ -1272,9 +1278,9 @@ ENDNEWSCRIPT
@@ -1321,8 +1327,8 @@ $lt{'title'}:
-
+
$help{'Uploading_From_Harddrive'}
|