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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.331 and 1.331.4.1

version 1.331, 2011/12/09 01:04:27 version 1.331.4.1, 2012/05/10 18:34:18
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 3064  SCRIPT Line 3063  SCRIPT
 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 3184  sub detailed_citation_view { Line 3182  sub detailed_citation_view {
     $result .= '<b>'.$prefix.      $result .= '<b>'.$prefix.
         '<img src="'.&Apache::loncommon::icon($values{'url'}).'" alt="" />'.'&nbsp;'.          '<img src="'.&Apache::loncommon::icon($values{'url'}).'" alt="" />'.'&nbsp;'.
         '<a href="'.$jumpurl.'?inhibitmenu=yes" '.          '<a href="'.$jumpurl.'?inhibitmenu=yes" '.
         'target="preview">'.$values{'title'}."</a></b>\n".          'target="preview">'.$values{'title'}."</a></b>\n";
         '<a href="javascript:;" onclick="set_wishlistlink('."'$values{'title'}','$jumpurl'".')" '.  
         'title="'.&mt('Set link to wishlist').'">'.  
         '<img class="LC_icon" src="/res/adm/pages/wishlist.png" '.  
         'alt="set wishlistlink" style="width:22px;"/></a>';  
     $result .= "<p>\n";      $result .= "<p>\n";
     $result .= '<b>'.$values{'author'}.'</b>,'.      $result .= '<b>'.$values{'author'}.'</b>,'.
         ' <i>'.$values{'owner'}.'</i><br />';          ' <i>'.$values{'owner'}.'</i><br />';
Line 3319  sub summary_view { Line 3313  sub summary_view {
     $jumpurl=~s|^/ext/|http://|;      $jumpurl=~s|^/ext/|http://|;
     my $link = '<br />'.&display_url($jumpurl,1).'<br />';      my $link = '<br />'.&display_url($jumpurl,1).'<br />';
   
     my $titleWL = &mt('Set link to wishlist');  
     $result.=<<END;      $result.=<<END;
 <a href="$jumpurl?inhibitmenu=yes"   <a href="$jumpurl?inhibitmenu=yes" 
    target="preview">$values{'title'}</a>     target="preview">$values{'title'}</a>
 <a href="javascript:;" onclick="set_wishlistlink('$values{'title'}','$jumpurl')"   
    title="$titleWL">  
    <img class="LC_icon" src="/res/adm/pages/wishlist.png"  
         alt="set wishlistlink" style="width:22px;"/>  
 </a>  
 <br />  <br />
 $link<br />  $link<br />
 $values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}<br />  $values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}<br />
Line 3374  sub compact_view { Line 3362  sub compact_view {
     $result.=' <span class="LC_nobreak">'.      $result.=' <span class="LC_nobreak">'.
  '<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'".')" '.  
         'title="'.&mt('Set link to wishlist').'">'.  
         '<img class="LC_icon" src="/res/adm/pages/wishlist.png" '.  
         'alt="set wishlistlink" style="width:22px;"/>'.  
         '</a>'.  
  $link.' <b>'.$values{'author'}.'</b> ('.$values{'domain'}.')';   $link.' <b>'.$values{'author'}.'</b> ('.$values{'domain'}.')';
     return $result;      return $result;
 }  }
Line 3420  sub fielded_format_view { Line 3403  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 $result=<<END;      my $result=<<END;
 $prefix <img src="$icon" alt="" />  $prefix <img src="$icon" alt="" />
 <dl>  <dl>
 <dt>URL:</dt>  <dt>URL:</dt>
     <dd><a href="$jumpurl?inhibitmenu=yes"       <dd><a href="$jumpurl?inhibitmenu=yes" 
          target='preview'>$values{'url'}</a>           target='preview'>$values{'url'}</a>
          <a href="javascript:;" onclick="set_wishlistlink('$values{'title'}','$jumpurl')"  
             title="$titleWL">  
             <img class="LC_icon" src="/res/adm/pages/wishlist.png"  
             alt="set wishlistlink" style="width:22px;"/>  
          </a>  
     </dd>      </dd>
 END  END
     foreach my $field ('title','author','domain','subject','keywords','notes',      foreach my $field ('title','author','domain','subject','keywords','notes',
Removed from v.1.331  
changed lines
  Added in v.1.331.4.1

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