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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.328 and 1.330

version 1.328, 2011/01/27 14:38:44 version 1.330, 2011/07/04 09:24:58
Line 152  sub handler { Line 152  sub handler {
     ## Initialize global variables      ## Initialize global variables
     ##      ##
     my $domain  = $r->dir_config('lonDefDomain');      my $domain  = $r->dir_config('lonDefDomain');
     $diropendb= "/home/httpd/perl/tmp/".      my $temp_file_dir = LONCAPA::tempdir();
       $diropendb= $temp_file_dir .
         "$env{'user.domain'}_$env{'user.name'}_sel_res.db";          "$env{'user.domain'}_$env{'user.name'}_sel_res.db";
     #      #
     # set the name of the persistent database      # set the name of the persistent database
Line 163  sub handler { Line 164  sub handler {
         $env{'form.persistent_db_id'} = time;          $env{'form.persistent_db_id'} = time;
     }      }
   
     my $persistent_db_file = "/home/httpd/perl/tmp/".      my $persistent_db_file = $temp_file_dir .
         &escape($domain).          &escape($domain).
             '_'.&escape($env{'user.name'}).              '_'.&escape($env{'user.name'}).
                 '_'.$env{'form.persistent_db_id'}.'_persistent_search.db';                  '_'.$env{'form.persistent_db_id'}.'_persistent_search.db';
Line 2383  END Line 2384  END
                 next;                  next;
             }              }
             $status=~s|/||g;              $status=~s|/||g;
            my $datafile=$r->dir_config('lonDaemons').'/tmp/'.$status;  
   
   
              my $datafile=LONCAPA::tempdir().$status;
             if (-e $datafile && ! -e "$datafile.end") {              if (-e $datafile && ! -e "$datafile.end") {
                 &update_status($r,&mt('Receiving results from [_1]',$server));                  &update_status($r,&mt('Receiving results from [_1]',$server));
                 next;                  next;
Line 3059  SCRIPT Line 3063  SCRIPT
 </script>  </script>
 SCRIPT  SCRIPT
   
     my $wishlistpopup;  
     if (&Apache::lonwishlist::getWishlist() ne 'error') {  
         $wishlistpopup = &Apache::lonwishlist::makePopUpNewLink();  
     }  
   
     # Add JavaScript-function to set link for a ressource to wishlist      # Add JavaScript-function to set link for a ressource to wishlist
     $js.=<<SCRIPT;      $js.=<<SCRIPT;
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 function set_wishlistlink(title, path){  function set_wishlistlink(title, path){
     $wishlistpopup;         Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path,
                               'wishlistNewLink','width=560,height=350,scrollbars=0');
 }  }
   
 // ]]>  // ]]>
Removed from v.1.328  
changed lines
  Added in v.1.330

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