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

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

version 1.327, 2011/01/17 20:18:02 version 1.328, 2011/01/27 14:38:44
Line 78  use HTML::Entities(); Line 78  use HTML::Entities();
 use Parse::RecDescent;  use Parse::RecDescent;
 use Apache::lonnavmaps;  use Apache::lonnavmaps;
 use Apache::lonindexer();  use Apache::lonindexer();
   use Apache::lonwishlist();
 use LONCAPA;  use LONCAPA;
   
 ######################################################################  ######################################################################
Line 3058  SCRIPT Line 3059  SCRIPT
 </script>  </script>
 SCRIPT  SCRIPT
   
     # HTML-Markup for 'Set a link for this resource to wishlist'      my $wishlistpopup;
     # this is written via JavaScript document.write (function set_wishlistlink)       if (&Apache::lonwishlist::getWishlist() ne 'error') {
     # it is split into 3 parts and the inputfields for title and path are left out          $wishlistpopup = &Apache::lonwishlist::makePopUpNewLink();
     # these fields are inserted later to set the values for title and path      }
     # automatically via JavaScript (document.title and location.pathname)   
     my %folders = &Apache::lonnet::get('wishlist',['folders']);  
     if ($folders{'folders'} eq '') {  
         $folders{'folders'} = '<option value="" selected="selected">('.&mt('Top level').')</option>';  
     }  
     my $start_page_wishlistlink =   
         &Apache::loncommon::start_page('Set link to wishlist',undef,  
        {'only_body' => 1,  
  'js_ready'  => 1,  
  'bgcolor'   => '#FFFFFF',});  
   
     my $warningLink = &mt('You must insert a title!');  
   
     my $in_page_wishlistlink1 = '<h1>'.&mt('Set a link to wishlist').'</h1>'.  
                                 '<form method="post" name="newlink" action="/adm/wishlist?mode=set" '.  
                                 'onsubmit="return newlinksubmit();" >'.  
                                 &Apache::lonhtmlcommon::start_pick_box().  
                                 &Apache::lonhtmlcommon::row_title(&mt('Link Title'));  
   
     my $in_page_wishlistlink2 = &Apache::lonhtmlcommon::row_closure().  
                                 &Apache::lonhtmlcommon::row_title(&mt('Path'));  
   
     my $in_page_wishlistlink3 = &Apache::lonhtmlcommon::row_closure().  
                                 &Apache::lonhtmlcommon::row_title(&mt('Note')).  
                                 '<textarea name="note" rows="3" cols="35" style="width:100%"></textarea>'.  
                                 &Apache::lonhtmlcommon::row_closure(1).  
                                 &Apache::lonhtmlcommon::end_pick_box().  
                                 '<br/><br/>'.  
                                 '<input type="submit" value="'.&mt('Save in').'" />'.  
                                 '<select name="folders">'.  
                                 $folders{'folders'}.  
                                 '</select>'.  
                                 '<input type="button" value="'.&mt('cancel').'" onclick="javascript:window.close();" />'.  
                                 '</form>';  
   
     # remove all \n for inserting on javascript document.write  
     $in_page_wishlistlink1 =~ s/\n//g;  
     $in_page_wishlistlink2 =~ s/\n//g;  
     $in_page_wishlistlink3 =~ s/\n//g;  
   
     my $end_page_wishlistlink =   
        &Apache::loncommon::end_page({'js_ready' => 1});  
   
     # 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){
    if(!title){      $wishlistpopup;
        title=document.title;  
    }  
    if(!path){  
        path=location.pathname;  
    }  
    wishlistlink=window.open('','wishlistNewLink','width=560,height=350,scrollbars=0');  
    wishlistlink.document.write(  
    '$start_page_wishlistlink'  
    +'<script type="text\/javascript">'  
    +'function newlinksubmit(){'  
    +'var title = document.getElementsByName("title")[0].value;'  
    +'if (!title) {'  
    +'alert("$warningLink");'  
    +'return false;}'  
    +'return true;}'  
    +'<\/scr'+'ipt>'  
    +'$in_page_wishlistlink1'  
    +'<input type="text" name="title" size="45" value="'+title+'"/>'  
    +'$in_page_wishlistlink2'  
    +'<input type="text" name="path" size="45" value="'+path+'" '  
    +'readonly="readonly" style="background-color: #DDDDDD"/>'  
    +'$in_page_wishlistlink3'  
    +'$end_page_wishlistlink' );  
    wishlistlink.document.close();  
 }  }
   
 // ]]>  // ]]>
Removed from v.1.327  
changed lines
  Added in v.1.328

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