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

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

version 1.330, 2011/07/04 09:24:58 version 1.331.4.3, 2012/12/17 13:54:25
Line 3063  SCRIPT Line 3063  SCRIPT
 </script>  </script>
 SCRIPT  SCRIPT
   
   
     # Add JavaScript-function to set link for a ressource to wishlist  
     $js.=<<SCRIPT;  
 <script type="text/javascript">  
 // <![CDATA[  
 function set_wishlistlink(title, path){  
        Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path,  
                             'wishlistNewLink','width=560,height=350,scrollbars=0');  
 }  
   
 // ]]>  
 </script>  
 SCRIPT  
   
     my $start_page  = &Apache::loncommon::start_page(undef,$js,      my $start_page  = &Apache::loncommon::start_page(undef,$js,
      {'only_body' =>1});       {'only_body' =>1,
                                                         'add_wishlist' =>1});
     my $result=<<END;      my $result=<<END;
 $start_page  $start_page
 <form name="results" method="post" action="/adm/searchcat">  <form name="results" method="post" action="/adm/searchcat">
Line 3388  sub compact_view { Line 3375  sub compact_view {
  '<a href="'.$jumpurl.'?inhibitmenu=yes" target="preview">'.   '<a href="'.$jumpurl.'?inhibitmenu=yes" target="preview">'.
         &HTML::Entities::encode($values{'title'},'<>&"').'</a></span> '.          &HTML::Entities::encode($values{'title'},'<>&"').'</a></span> '.
         '<a href="javascript:;" onclick="set_wishlistlink('."'$values{'title'}','$jumpurl'".')" '.          '<a href="javascript:;" onclick="set_wishlistlink('."'$values{'title'}','$jumpurl'".')" '.
         'title="'.&mt('Set link to wishlist').'">'.          'title="'.&mt('Add to stored links').'">'.
         '<img class="LC_icon" src="/res/adm/pages/wishlist.png" '.          '<img class="LC_icon" src="/res/adm/pages/wishlist.png" '.
         'alt="set wishlistlink" style="width:22px;"/>'.          'alt="set wishlistlink" style="width:22px;"/>'.
         '</a>'.          '</a>'.
Line 3433  sub fielded_format_view { Line 3420  sub fielded_format_view {
     my $jumpurl=$values{'url'};      my $jumpurl=$values{'url'};
     $jumpurl=~s|^/ext/|http://|;      $jumpurl=~s|^/ext/|http://|;
   
     my $titleWL = ('Set link to wishlist');      my $titleWL = &mt('Add to stored links');
     my $result=<<END;      my $result=<<END;
 $prefix <img src="$icon" alt="" />  $prefix <img src="$icon" alt="" />
 <dl>  <dl>
Removed from v.1.330  
changed lines
  Added in v.1.331.4.3

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