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

Diff for /loncom/interface/londocs.pm between versions 1.19 and 1.22

version 1.19, 2002/09/04 20:33:38 version 1.22, 2002/09/10 19:01:09
Line 234  sub handler { Line 234  sub handler {
     my $events='';      my $events='';
     my $showdoc=0;      my $showdoc=0;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
        ['folder','foldername','showdoc']);         ['folder','foldername']);
     unless ($ENV{'form.showdoc'}) { # got called from remote      if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
          $showdoc=$1;
       }
       unless ($showdoc) { # got called from remote
        $forcestandard=($ENV{'form.folder'}=~/^default_/);         $forcestandard=($ENV{'form.folder'}=~/^default_/);
        $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);         $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);
   
Line 247  sub handler { Line 250  sub handler {
        }         }
     } else { # got called in sequence from course      } else { # got called in sequence from course
        $allowed=0;         $allowed=0;
        $showdoc=1;         $script='</script>'.&Apache::lonxml::registerurl(1,undef).'<script>';
        $script=&Apache::lonxml::registerurl(1,undef);  
        $events='onLoad="'.&Apache::lonxml::loadevents.         $events='onLoad="'.&Apache::lonxml::loadevents.
            '" onUnload="'.&Apache::lonxml::unloadevents.'"';             '" onUnload="'.&Apache::lonxml::unloadevents.'"';
     }      }
Line 268  sub handler { Line 270  sub handler {
   
     $iconpath = $r->dir_config('lonIconsURL') . "/";      $iconpath = $r->dir_config('lonIconsURL') . "/";
   
       my $now=time;
   
 # print screen  # print screen
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 <html>  <html>
Line 275  sub handler { Line 279  sub handler {
 <title>The LearningOnline Network with CAPA</title>  <title>The LearningOnline Network with CAPA</title>
 <script>  <script>
 $script  $script
 </head>  </script>
 ENDDOCUMENT  ENDDOCUMENT
    if ($allowed) {     if ($allowed) {
     $r->print(<<ENDNEWSCRIPT);      $r->print(<<ENDNEWSCRIPT);
   <script>
 function makenewfolder(targetform,folderseq) {  function makenewfolder(targetform,folderseq) {
     var foldername=prompt('Name of New Folder','New Folder');      var foldername=prompt('Name of New Folder','New Folder');
     if (foldername) {      if (foldername) {
Line 293  function makenewext(targetname) { Line 297  function makenewext(targetname) {
     window.open('/adm/rat/extpickframe.html');      window.open('/adm/rat/extpickframe.html');
 }  }
   
   function makesmppage() {
       var title=prompt('Listed Title for the Page');
       this.document.forms.newsmppg.importdetail.value=
    title+'=/adm/$udom/$uname/$now/smppg';
       this.document.forms.newsmppg.submit();
   }
   
   function makebulboard() {
       var title=prompt('Listed Title for the Bulletin Board');
       this.document.forms.newbul.importdetail.value=
    title+'=/adm/$udom/$uname/$now/bulletinboard';
       this.document.forms.newbul.submit();
   }
   
 function finishpick() {  function finishpick() {
     var title=this.document.forms.extimport.title.value;      var title=this.document.forms.extimport.title.value;
     var url=this.document.forms.extimport.url.value;      var url=this.document.forms.extimport.url.value;
Line 305  function finishpick() { Line 323  function finishpick() {
 ENDNEWSCRIPT  ENDNEWSCRIPT
   }    }
 # -------------------------------------------------------------------- Body tag  # -------------------------------------------------------------------- Body tag
   $r->print(&Apache::loncommon::bodytag('Course Documents','',$events));    $r->print('</head>'.
               &Apache::loncommon::bodytag('Course Documents','',$events));
   unless ($showdoc) {    unless ($showdoc) {
 # --------------------------------------------------------- Standard documents  # --------------------------------------------------------- Standard documents
     if (($standard) && ($allowed) && (!$forcesupplement)) {      if (($standard) && ($allowed) && (!$forcesupplement)) {
Line 367  value="Syllabus=/public/$coursedom/$cour Line 386  value="Syllabus=/public/$coursedom/$cour
 <input name="newsyl" type="submit" value="Syllabus" />  <input name="newsyl" type="submit" value="Syllabus" />
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="newnav">  <form action="/adm/coursedocs" method="post" name="newnav">
   <input type="hidden" name="folder" value="$folder">
   <input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
 <input type=hidden name="importdetail"   <input type=hidden name="importdetail" 
 value="Navigate Content=/adm/navmaps">  value="Navigate Content=/adm/navmaps">
 <input name="newsyl" type="submit" value="Navigate Content" />  <input name="newnav" type="submit" value="Navigate Content" />
   </form>
   <form action="/adm/coursedocs" method="post" name="newsmppg">
   <input type="hidden" name="folder" value="$folder">
   <input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
   <input type=hidden name="importdetail" value="">
   <input name="newsmppg" type="button" value="Simple Page"
   onClick="javascript:makesmppage();" />
   </form>
   <form action="/adm/coursedocs" method="post" name="newbul">
   <input type="hidden" name="folder" value="$folder">
   <input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
   <input type=hidden name="importdetail" value="">
   <input name="newbulletin" type="button" value="Bulletin Board"
   onClick="javascript:makebulboard();" />
 </form>  </form>
 <form action="/adm/coursedocs" method="post" name="newaboutme">  <form action="/adm/coursedocs" method="post" name="newaboutme">
 <input type="hidden" name="folder" value="$folder">  <input type="hidden" name="folder" value="$folder">
Line 463  ENDSUPFORM Line 498  ENDSUPFORM
   } else {    } else {
 # -------------------------------------------------------- This is showdoc mode  # -------------------------------------------------------- This is showdoc mode
       $r->print("<h1>Uploaded Document</h1><p>It is recommended that you use an up-to-date virus scanner before handling this file.</p><p><table>".        $r->print("<h1>Uploaded Document</h1><p>It is recommended that you use an up-to-date virus scanner before handling this file.</p><p><table>".
          &entryline(0,"Click to download or use your browser's Save Link function",$ENV{'form.showdoc'}).'</table></p>');           &entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'</table></p>');
   }    }
   $r->print('</body></html>');    $r->print('</body></html>');
   return OK;    return OK;
Removed from v.1.19  
changed lines
  Added in v.1.22

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