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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.274 and 1.275

version 1.274, 2006/07/28 19:16:08 version 1.275, 2006/07/31 19:45:58
Line 3200  sub detailed_citation_view { Line 3200  sub detailed_citation_view {
     my ($prefix,%values) = @_;      my ($prefix,%values) = @_;
     my $result;      my $result;
     my $jumpurl=$values{'url'};      my $jumpurl=$values{'url'};
     $jumpurl=~s/^\/ext\//http\:\/\//;      $jumpurl=~s|^/ext/|http://|;
     $result .= '<b>'.$prefix.      $result .= '<b>'.$prefix.
         '<img src="'.&Apache::loncommon::icon($values{'url'}).'" />'.'&nbsp;'.          '<img src="'.&Apache::loncommon::icon($values{'url'}).'" />'.'&nbsp;'.
         '<a href="'.$jumpurl.'" '.          '<a href="'.$jumpurl.'" '.
Line 3347  sub summary_view { Line 3347  sub summary_view {
     }      }
     my $jumpurl=$values{'url'};      my $jumpurl=$values{'url'};
     my $link;      my $link;
     if ($jumpurl=~/^\/ext\//) {      if ($jumpurl=~m|^/ext/|) {
  $jumpurl=~s/^\/ext\//http\:\/\//;   $jumpurl=~s|^/ext/|http://|;
  $link='<br /><tt>'.$jumpurl.'</tt>';   $link='<br /><tt>'.$jumpurl.'</tt>';
     } else {      } else {
  $link=&Apache::lonhtmlcommon::crumbs($jumpurl,   $link=&Apache::lonhtmlcommon::crumbs($jumpurl,
Line 3392  sub compact_view { Line 3392  sub compact_view {
     my ($prefix,%values) = @_;      my ($prefix,%values) = @_;
     my $jumpurl=$values{'url'};      my $jumpurl=$values{'url'};
     my $link;      my $link;
     if ($jumpurl=~/^\/ext\//) {      if ($jumpurl=~m|^/ext/|) {
  $jumpurl=~s/^\/ext\//http\:\/\//;   $jumpurl=~s|^/ext/|http://|;
  $link='<tt>'.$jumpurl.'</tt>';   $link='<tt>'.$jumpurl.'</tt>';
     } else {      } else {
         $link=&Apache::lonhtmlcommon::crumbs($jumpurl,          $link=&Apache::lonhtmlcommon::crumbs($jumpurl,
Line 3432  sub fielded_format_view { Line 3432  sub fielded_format_view {
     my $icon=&Apache::loncommon::icon($values{'url'});      my $icon=&Apache::loncommon::icon($values{'url'});
     my %Translated = &Apache::lonmeta::fieldnames();      my %Translated = &Apache::lonmeta::fieldnames();
     my $jumpurl=$values{'url'};      my $jumpurl=$values{'url'};
     $jumpurl=~s/^\/ext\//http\:\/\//;      $jumpurl=~s|^/ext/|http://|;
   
     my $result=<<END;      my $result=<<END;
 $prefix <img src="$icon" />  $prefix <img src="$icon" />
Removed from v.1.274  
changed lines
  Added in v.1.275

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