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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.73 and 1.76

version 1.73, 2004/12/10 18:43:58 version 1.76, 2005/01/24 21:55:20
Line 254  parent.lastknownpriv='/~$uname$thisdisfn Line 254  parent.lastknownpriv='/~$uname$thisdisfn
     }      }
   
     function forcepub(theform) {      function forcepub(theform) {
         if (confirm('Force publication of unmodified files? - OK=yes; Cancel=No.')) {          if (confirm('Force publication of unmodified files? -  Cancel=No; OK=yes.')) {
             theform.forcerepub.value="ON";              theform.forcerepub.value="ON";
         }           } 
     }      }
Line 269  parent.lastknownpriv='/~$uname$thisdisfn Line 269  parent.lastknownpriv='/~$uname$thisdisfn
   
     function SetPubDir(theform,printForm) {      function SetPubDir(theform,printForm) {
         if (theform.diraction.options[theform.diraction.selectedIndex].value == "open") {          if (theform.diraction.options[theform.diraction.selectedIndex].value == "open") {
             top.location = theform.filename.value              top.location = theform.openname.value
             return              return
         }          }
         if (theform.diraction.options[theform.diraction.selectedIndex].value == "publish") {          if (theform.diraction.options[theform.diraction.selectedIndex].value == "publish") {
Line 333  parent.lastknownpriv='/~$uname$thisdisfn Line 333  parent.lastknownpriv='/~$uname$thisdisfn
 ENDPUBDIRSCRIPT  ENDPUBDIRSCRIPT
     $r->print($pubdirscript);      $r->print($pubdirscript);
   
     if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {      if ((($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) &&
    $ENV{'environment.remote'} ne 'off') {
  $r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.   $r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.
   '</h3>');    '</h3>');
     }      }
Line 516  sub putdirectory { Line 517  sub putdirectory {
                       '<option value="printdir">'.&mt('Print directory').                        '<option value="printdir">'.&mt('Print directory').
                     '</select>'.                      '</select>'.
                      '<input type="hidden" name="filename" value="'.$dirpath.'/'.$dirname.'/" />'.                       '<input type="hidden" name="filename" value="'.$dirpath.'/'.$dirname.'/" />'.
                        '<input type="hidden" name="openname" value="'.$here.'/'.$dirname.'/" />'.
                      '<input type="hidden" name="pubrec" value="" />'.                       '<input type="hidden" name="pubrec" value="" />'.
                      '<input type="hidden" name="forcerepub" value="" />'.                       '<input type="hidden" name="forcerepub" value="" />'.
                      '<input type="hidden" name="postdata" value="" />'.                       '<input type="hidden" name="postdata" value="" />'.
Removed from v.1.73  
changed lines
  Added in v.1.76

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