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

Diff for /loncom/interface/lonindexer.pm between versions 1.104 and 1.107

version 1.104, 2004/05/11 05:19:30 version 1.107, 2004/05/11 23:27:35
Line 127  sub handler { Line 127  sub handler {
     {      {
  if ($ENV{'form.launch'} eq '1') {   if ($ENV{'form.launch'} eq '1') {
     &start_fresh_session();      &start_fresh_session();
         }     }
     #Hijack lonindexer to verify a title and be close down.
      if ($ENV{'form.launch'} eq '2') {
       #$r->content_type('text/html');
       my $verify_title = &Apache::lonnet::gettitle($ENV{'form.acts'});
       $r->print(<<ENDSUBM);
    <html>
    <script type="text/javascript">
    function load() {
    window.opener.document.forms["$ENV{'form.form'}"].elements["$ENV{'form.element'}"].value='$ENV{'form.acts'}';
    window.opener.document.forms["$ENV{'form.form'}"].elements["$ENV{'form.titleelement'}"].value='$verify_title';
    window.close();
    }
       </script>
       <body onLoad=load();>
         </body>
       </html>
   ENDSUBM
    return OK;
      }
       
 # -------------------- refresh environment with user database values (in %hash)  # -------------------- refresh environment with user database values (in %hash)
  &setvalues(\%hash,'form.catalogmode',\%ENV,'form.catalogmode'   );   &setvalues(\%hash,'form.catalogmode',\%ENV,'form.catalogmode'   );
   
Line 236  END Line 256  END
  $catalogmodefunctions=<<END;   $catalogmodefunctions=<<END;
 // mode = $mode  // mode = $mode
 function select_data(title,url) {  function select_data(title,url) {
     changeURL(url);  var location = "/res/?launch=2&form=$form&element=$element&titleelement=$titleelement&acts=" + url;
     changeTitle(title);     window.location=location;
     self.close();  
 }  }
   
 function select_group() {  function select_group() {
     window.location="$location"+document.forms.fileattr.acts.value;      window.location="$location"+document.forms.fileattr.acts.value;
 }  }
Line 713  sub display_line { Line 731  sub display_line {
 # or absolute paths (for example, from sequences)  # or absolute paths (for example, from sequences)
     my $absolute;      my $absolute;
     my $pathprefix;      my $pathprefix;
     if ($line=~/^\/res\//) {      if ($line=~m|^/res/| && $startdir ne '') {
  $absolute=1;   $absolute=1;
  $pathprefix='';   $pathprefix='';
     } else {      } else {
Removed from v.1.104  
changed lines
  Added in v.1.107

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