[BACK]Return to londocs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.74 and 1.77

version 1.74, 2003/09/08 18:56:09 version 1.77, 2003/09/09 19:39:04
Line 124  sub dumpbutton { Line 124  sub dumpbutton {
 # -------------------------------------------------------- Actually dump course  # -------------------------------------------------------- Actually dump course
   
 sub dumpcourse {  sub dumpcourse {
       my $r=shift;
       $r->print('<html><head><title>Dump DOCS</title></head>'.
           &Apache::loncommon::bodytag('Dump Course DOCS to Construction Space').
         '<form name="dumpdoc" method="post">');
     my ($home,$other,%outhash)=&authorhosts();      my ($home,$other,%outhash)=&authorhosts();
     unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; }      unless ($home) { return ''; }
     my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'});      my $origcrsid=$ENV{'request.course.id'};
       my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
       if (($ENV{'form.authorspace'}) && ($ENV{'form.authorfolder'}=~/\w/)) {
   # Do the dumping
    unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; }
    my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'});
    my $title=$ENV{'form.authorfolder'};
   
       } else {
   # Input form
    unless ($home==1) {
       $r->print(
         '<h3>Select the Construction Space</h3><select name="authorspace">');
    }
    foreach (sort keys %outhash) {
       if ($_=~/^home_(.+)$/) {
    if ($home==1) {
       $r->print(
     '<input type="hidden" name="authorspace" value="'.$1.'" />');
    } else {
       $r->print('<option value="'.$1.'">'.$_.'</option>');
    }
       }
    }
    unless ($home==1) {
       $r->print('</select>');
    }
    my $title=$origcrsdata{'description'};
    $title=~s/\s+/\_/gs;
    $title=~s/\W//gs;
    $r->print('<h3>Folder in Construction Space</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
    &tiehash();
    foreach (&Apache::loncreatecourse::crsdirlist($origcrsid,'userfiles')) {
       $r->print("\n<br />".$_.' '.
     $hash{'title_'.$hash{
   'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}}
         );
    }
    &untiehash();
    $r->print(
     '<input type="submit" name="dumpcourse" value="Dump Course DOCS" /></form>');
       }
 }  }
   
   
 # Imports the given (name, url) resources into the course  # Imports the given (name, url) resources into the course
 # coursenum, coursedom, and folder must precede the list  # coursenum, coursedom, and folder must precede the list
 sub group_import {  sub group_import {
Line 440  sub checkonthis { Line 485  sub checkonthis {
    }     }
 }  }
   
 # ================================================================ 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',  # -------------------------------------------------------------- Verify Content
            'Adding_External_Resource','Navigate_Content',  # 
            'Adding_Folders','Docs_Overview', 'Load_Map',  sub verifycontent {
            'Supplemental', 'Score_Upload_Form',     my $r=shift; 
            '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'}) {  
    
    my $loaderror=&Apache::lonnet::overloaderror($r);     my $loaderror=&Apache::lonnet::overloaderror($r);
    if ($loaderror) { return $loaderror; }     if ($loaderror) { return $loaderror; }
   
Line 484  sub handler { Line 507  sub handler {
    }     }
    &untiehash();     &untiehash();
    $r->print('<h1>Done.</h1>');     $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'));                &Apache::loncommon::bodytag('Check Course Document Versions'));
    $hashtied=0;     $hashtied=0;
    &tiehash();     &tiehash();
Line 518  sub handler { Line 546  sub handler {
            $seltext='since yesterday ('.localtime($starttime).')';             $seltext='since yesterday ('.localtime($starttime).')';
            $daysel='selected';             $daysel='selected';
        }         }
    
        $r->print(<<ENDHEADERS);         $r->print(<<ENDHEADERS);
 <form action="/adm/coursedocs" method="post">  <form action="/adm/coursedocs" method="post">
 <select name="timerange">  <select name="timerange">
Line 576  ENDHEADERS Line 604  ENDHEADERS
        $r->print('<p>No content modifications yet.</p>');         $r->print('<p>No content modifications yet.</p>');
    }     }
    &untiehash();     &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 {    } else {
 # is this a standard course?  # is this a standard course?
   
Line 596  ENDHEADERS Line 658  ENDHEADERS
        $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);         $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);
   
 # does this user have privileges to post, etc?  # does this user have privileges to post, etc?
        $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});         $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
        if ($allowed) {          if ($allowed) { 
          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);           &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);
          $script=&Apache::lonratedt::editscript('simple');            $script=&Apache::lonratedt::editscript('simple'); 
Removed from v.1.74  
changed lines
  Added in v.1.77

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>