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

Diff for /loncom/interface/londocs.pm between versions 1.73 and 1.75

version 1.73, 2003/09/05 18:11:26 version 1.75, 2003/09/08 19:21:10
Line 35  use Apache::loncommon; Line 35  use Apache::loncommon;
 use Apache::lonratedt;  use Apache::lonratedt;
 use Apache::lonratsrv;  use Apache::lonratsrv;
 use Apache::lonxml;  use Apache::lonxml;
   use Apache::loncreatecourse;
 use HTML::Entities;  use HTML::Entities;
 use GDBM_File;  use GDBM_File;
   
Line 72  sub storemap { Line 73  sub storemap {
                                 $map,1);                                  $map,1);
 }  }
   
   # ----------------------------------------- Return hash with valid author names
   
   sub authorhosts {
       my %outhash=();
       my $home=0;
       my $other=0;
       foreach (keys %ENV) {
    if ($_=~/^user\.role\.(au|ca)\.(.+)$/) {
       my $role=$1;
       my $realm=$2;
       my ($start,$end)=split(/\./,$ENV{$_});
       if (($start) && ($start>time)) { next; }
       if (($end) && (time>$end)) { next; }
       my $ca; my $cd;
       if ($1 eq 'au') {
    $ca=$ENV{'user.name'};
    $cd=$ENV{'user.domain'};
       } else {
    ($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);
       }
       if (&Apache::lonnet::homeserver($ca,$cd) eq 
    $Apache::lonnet::perlvar{'lonHostID'}) {
    $home++;
    $outhash{'home_'.$ca.'@'.$cd}=1;
       } else {
    $outhash{'otherhome_'.$ca.'@'.$cd}=
       &Apache::lonnet::homeserver($ca,$cd);
    $other++;
       }
    }
       }
       return ($home,$other,%outhash);
   }
   # ------------------------------------------------------ Generate "dump" button
   
   sub dumpbutton {
       my ($home,$other,%outhash)=&authorhosts();
       if ($home+$other==0) { return ''; }
       my $output='</td><td bgcolor="#DDDDCC">';
       if ($home) {
    return '</td><td bgcolor="#DDDDCC">'.
       '<input type="submit" name="dumpcourse" value="Dump Course DOCS to Construction Space" />';
       } else {
    return'</td><td bgcolor="#DDDDCC">'.
         'Dump Course DOCS to Construction Space: available on other servers';
       }
   }
   
   # -------------------------------------------------------- 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 ($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  # 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 382  sub checkonthis { Line 445  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 426  sub handler { Line 467  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 460  sub handler { Line 506  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 518  ENDHEADERS Line 564  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 664  ENDNEWSCRIPT Line 744  ENDNEWSCRIPT
  '','',$showdoc));   '','',$showdoc));
   unless ($showdoc) {    unless ($showdoc) {
     if ($allowed) {      if ($allowed) {
        $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',         my $dumpbut=&dumpbutton();
      'Editing the Table of Contents for your Course'));  
        $r->print(<<ENDCOURSEVERIFY);         $r->print(<<ENDCOURSEVERIFY);
 <form name="renameform" method="post" action="/adm/coursedocs">  <form name="renameform" method="post" action="/adm/coursedocs">
 <input type="hidden" name="title" />  <input type="hidden" name="title" />
Line 677  ENDNEWSCRIPT Line 756  ENDNEWSCRIPT
 <input type="hidden" name="folder" />  <input type="hidden" name="folder" />
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="courseverify">  <form action="/adm/coursedocs" method="post" name="courseverify">
   <table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4">
   <tr><td bgcolor="#DDDDCC">
 <input type="submit" name="verify" value="Verify Content" />  <input type="submit" name="verify" value="Verify Content" />
   </td><td bgcolor="#DDDDCC">
 <input type="submit" name="versions" value="Check Resource Versions" />  <input type="submit" name="versions" value="Check Resource Versions" />
   $dumpbut
   </td></tr></table>
 </form>  </form>
 ENDCOURSEVERIFY  ENDCOURSEVERIFY
          $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
        'Editing the Table of Contents for your Course'));
     }      }
 # --------------------------------------------------------- Standard documents  # --------------------------------------------------------- Standard documents
     $r->print('<table border=2 cellspacing=4 cellpadding=4>');      $r->print('<table border=2 cellspacing=4 cellpadding=4>');
Removed from v.1.73  
changed lines
  Added in v.1.75

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