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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.217 and 1.218

version 1.217, 2004/04/27 15:24:09 version 1.218, 2004/04/27 15:45:04
Line 1150  sub parse_advanced_search { Line 1150  sub parse_advanced_search {
                        'modifyinguser','standards','mime');                         'modifyinguser','standards','mime');
     my @StatsFields = ('stdno','avetries','difficulty','disc');      my @StatsFields = ('stdno','avetries','difficulty','disc');
     my @EvalFields = ('clear','depth','helpful','correct','technical');      my @EvalFields = ('clear','depth','helpful','correct','technical');
     my @ContextFields = ('courses','dependencies');  
     my $fillflag=0;      my $fillflag=0;
     my $pretty_search_string = "<br />\n";      my $pretty_search_string = "<br />\n";
     # Clean up fields for safety      # Clean up fields for safety
Line 2783  extra custom metadata to show. Line 2782  extra custom metadata to show.
 ######################################################################  ######################################################################
 sub detailed_citation_view {  sub detailed_citation_view {
     my ($prefix,%values) = @_;      my ($prefix,%values) = @_;
     my $icon=&Apache::loncommon::icon($values{'url'});      my $icon=
     my $result=<<END;      my $result;
 <b>$prefix<img src="$icon" /><a href="http://$ENV{'HTTP_HOST'}$values{'url'}"       $result .= '<b>'.$prefix.
     target='search_preview'>$values{'title'}</a></b>          '<img src="'.&Apache::loncommon::icon($values{'url'}).' " />'.
 <p>          '<a href="http://'.$ENV{'HTTP_HOST'}.$values{'url'}.'" '.
 <b>$values{'author'}</b>, <i>$values{'owner'}</i><br />          'target="search_preview">'.$values{'title'}."</a></b>\n";
       $result .= "<p>\n";
 <b>Subject:       </b> $values{'subject'}<br />      $result .= '<b>'.$values{'author'}.'</b>,'.
 <b>Keyword(s):    </b> $values{'keywords'}<br />          ' <i>'.$values{'owner'}.'</i><br />';
 <b>Notes:         </b> $values{'notes'}<br />      foreach my $field 
 <b>MIME Type:     </b> $values{'mimetag'}<br />          (
 <b>Language:      </b> $values{'language'}<br />           { name=>'subject',
 <b>Copyright/Distribution:</b> $values{'copyrighttag'}<br />             translate => '<b>Subject:</b>&nbsp;[_1]',},
 </p>           { name=>'keywords',
 $values{'extrashow'}             translate => '<b>Keywords:</b>&nbsp;[_1]',},
 <p>           { name=>'notes',
 $values{'shortabstract'}             translate => '<b>Notes:</b>&nbsp;[_1]',},
 </p>           { name=>'mimetag',
 <hr align='left' width='200' noshade />             translate => '<b>MIME Type:</b>&nbsp;[_1]',},
 END           { name=>'standards',
              translate => '<b>Standards:</b>[_1]',},
            { name=>'copyrighttag',
              translate => '<b>Copyright/Distribution:</b>&nbsp;[_1]',},
            { name=>'stdno',
              translate => '<b>Number of Students:</b>&nbsp;[_1]',},
            { name=>'avetries',
              translate => '<b>Average Tries:</b>&nbsp;[_1]',},
            { name=>'disc',
              translate => '<b>Degree of Discrimination:</b>&nbsp;[_1]',},
            { name=>'difficulty',
              translate => '<b>Degree of Difficulty:</b>&nbsp;[_1]',},
            { name=>'clear',
              translate => '<b>Clear:</b>&nbsp;[_1]',},
            { name=>'depth',
              translate => '<b>Depth:</b>&nbsp;[_1]',},
            { name=>'helpful',
              translate => '<b>Helpful:</b>&nbsp;[_1]',},
            { name=>'correct',
              translate => '<b>Correcy:</b>&nbsp;[_1]',},
            { name=>'technical',
              translate => '<b>Technical:</b>&nbsp;[_1]',},
            ) {
           $result.= &mt($field->{'translate'},$values{$field->{'name'}}).
               "<br />\n";
       }
       $result .= "</p>".$values{'extrashow'}.
           '<p>'.$values{'shortabstract'}.'</p>';
       $result .= '<hr align="left" width="200" noshade />'."\n";
     return $result;      return $result;
 }  }
   
Removed from v.1.217  
changed lines
  Added in v.1.218

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