[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

www lon-capa-cvs@mail.lon-capa.org
Mon, 08 Sep 2003 19:21:10 -0000


www		Mon Sep  8 15:21:10 2003 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Here I am, making new subroutines in londocs.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.74 loncom/interface/londocs.pm:1.75
--- loncom/interface/londocs.pm:1.74	Mon Sep  8 14:56:09 2003
+++ loncom/interface/londocs.pm	Mon Sep  8 15:21:10 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.74 2003/09/08 18:56:09 www Exp $
+# $Id: londocs.pm,v 1.75 2003/09/08 19:21:10 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -124,10 +124,15 @@
 # -------------------------------------------------------- Actually dump course
 
 sub dumpcourse {
+    my $r=shift;
+    $r->print('<html><head><title>Dump DOCS</title></head>'.
+        &Apache::loncommon::bodytag('Dump Course DOCS to Construction Space'));
     my ($home,$other,%outhash)=&authorhosts();
-    unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; }
-    my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'});
-
+    unless ($home) { return ''; }
+    if ($ENV{'form.authorspace'}) {
+	unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; }
+	my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'});
+    }
 }
 
 # Imports the given (name, url) resources into the course
@@ -440,34 +445,12 @@
    }
 }
 
-# ================================================================ Main Handler
-sub handler {
-    my $r = shift;
-    $r->content_type('text/html');
-    $r->send_http_header;
-    return OK if $r->header_only;
 
-# --------------------------------------------- Initialize help topics for this
-  foreach ('Adding_Course_Doc','Main_Course_Documents',
-           'Adding_External_Resource','Navigate_Content',
-           'Adding_Folders','Docs_Overview', 'Load_Map',
-           'Supplemental', 'Score_Upload_Form',
-           'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {
-      $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
-  }
-    # Composite help files
-    $help{'Syllabus'} = &Apache::loncommon::help_open_topic(
-		    'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
-    $help{'Simple Page'} = &Apache::loncommon::help_open_topic(
-		    'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
-    $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
-		    'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
-    $help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
-		  'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
-    $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
- 
-  if ($ENV{'form.verify'}) {
- 
+#
+# -------------------------------------------------------------- Verify Content
+# 
+sub verifycontent {
+   my $r=shift; 
    my $loaderror=&Apache::lonnet::overloaderror($r);
    if ($loaderror) { return $loaderror; }
 
@@ -484,8 +467,13 @@
    }
    &untiehash();
    $r->print('<h1>Done.</h1>');
-  } elsif ($ENV{'form.versions'}) {
-    $r->print('<html><head><title>Check Versions</title></head>'.
+}
+
+# -------------------------------------------------------------- Check Versions
+
+sub checkversions {
+    my $r=shift;
+   $r->print('<html><head><title>Check Versions</title></head>'.
               &Apache::loncommon::bodytag('Check Course Document Versions'));
    $hashtied=0;
    &tiehash();
@@ -518,7 +506,7 @@
            $seltext='since yesterday ('.localtime($starttime).')';
            $daysel='selected';
        }
- 
+
        $r->print(<<ENDHEADERS);
 <form action="/adm/coursedocs" method="post">
 <select name="timerange">
@@ -576,6 +564,40 @@
        $r->print('<p>No content modifications yet.</p>');
    }
    &untiehash();
+}
+
+# ================================================================ Main Handler
+sub handler {
+    my $r = shift;
+    $r->content_type('text/html');
+    $r->send_http_header;
+    return OK if $r->header_only;
+
+# --------------------------------------------- Initialize help topics for this
+  foreach ('Adding_Course_Doc','Main_Course_Documents',
+           'Adding_External_Resource','Navigate_Content',
+           'Adding_Folders','Docs_Overview', 'Load_Map',
+           'Supplemental', 'Score_Upload_Form',
+           'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {
+      $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
+  }
+    # Composite help files
+    $help{'Syllabus'} = &Apache::loncommon::help_open_topic(
+		    'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
+    $help{'Simple Page'} = &Apache::loncommon::help_open_topic(
+		    'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
+    $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
+		    'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
+    $help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
+		  'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
+    $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
+ 
+  if ($ENV{'form.verify'}) {
+      &verifycontent($r);
+  } elsif ($ENV{'form.versions'}) {
+      &checkversions($r);
+  } elsif ($ENV{'form.dumpcourse'}) {
+      &dumpcourse($r);
   } else {
 # is this a standard course?