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

Diff for /loncom/interface/londocs.pm between versions 1.109 and 1.111

version 1.109, 2004/02/27 19:11:08 version 1.111, 2004/03/31 05:23:59
Line 433  sub entryline { Line 433  sub entryline {
  if ($ENV{'form.foldername'}) {   if ($ENV{'form.foldername'}) {
     $foldername='&foldername='.      $foldername='&foldername='.
  &Apache::lonnet::escape($ENV{'form.foldername'});   &Apache::lonnet::escape($ENV{'form.foldername'});
     $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'});      $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"');
  }   }
  $line.=(<<END);   $line.=(<<END);
 <td><table border='0' cellspacing='2' cellpadding='0'>  <td><table border='0' cellspacing='2' cellpadding='0'>
Line 1013  function makeabout() { Line 1013  function makeabout() {
    }     }
 }  }
   
   function makeims() {
       var caller = document.forms.ims.folder.value
       var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one"
       newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes")
       newWindow.location.href = newlocation
   }
   
   
 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 1073  ENDNEWSCRIPT Line 1081  ENDNEWSCRIPT
                 'bull' => 'Bulletin Board',                  'bull' => 'Bulletin Board',
                 'mypi' => 'My Personal Info',                  'mypi' => 'My Personal Info',
  'abou' => 'About User',   'abou' => 'About User',
                   'imsf' => 'Import IMS package',
                 'file' =>  'File',                  'file' =>  'File',
                 'title' => 'Title',                  'title' => 'Title',
                 'comment' => 'Comment'                   'comment' => 'Comment' 
Line 1110  ENDCOURSEVERIFY Line 1119  ENDCOURSEVERIFY
      &mt('Editing the Table of Contents for your Course')));       &mt('Editing the Table of Contents for your Course')));
     }      }
 # --------------------------------------------------------- Standard documents  # --------------------------------------------------------- Standard documents
     my $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'});      my $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"');
     $r->print('<table border=2 cellspacing=4 cellpadding=4>');      $r->print('<table border=2 cellspacing=4 cellpadding=4>');
     if (($standard) && ($allowed) && (!$forcesupplement)) {      if (($standard) && ($allowed) && (!$forcesupplement)) {
        $r->print('<tr><td bgcolor="#BBBBBB"><h2>'.&mt('Main Course Documents').         $r->print('<tr><td bgcolor="#BBBBBB"><h2>'.&mt('Main Course Documents').
Line 1269  $help{'My Personal Info'} Line 1278  $help{'My Personal Info'}
 onClick="javascript:makeabout();" />  onClick="javascript:makeabout();" />
 </nobr>  </nobr>
 </form>  </form>
   <form action="/adm/imsimportdocs" method="post" name="ims">
   <input type="hidden" name="folder" value="$folder" />
   <input name="imsimport" type="button" value="$lt{'imsf'}" onClick="javascript:makeims();" />
   </nobr>
   </form>
 </td></tr>  </td></tr>
 </table>  </table>
 ENDFORM  ENDFORM
Removed from v.1.109  
changed lines
  Added in v.1.111

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