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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.224 and 1.225

version 1.224, 2004/05/07 18:50:14 version 1.225, 2004/05/09 22:55:17
Line 1490  sub parse_basic_search { Line 1490  sub parse_basic_search {
                        ('title', 'author', 'subject', 'notes', 'abstract',                         ('title', 'author', 'subject', 'notes', 'abstract',
                         'keywords'));                          'keywords'));
     foreach my $search (&process_phrase_input($search_string)){      foreach my $search (&process_phrase_input($search_string)){
         $pretty_search_string .= '<br />'.'<b>'.$search.'</b>';  
         if ($ENV{'form.related'}) {          if ($ENV{'form.related'}) {
               $pretty_search_string .= ' and <br />' if ($pretty_search_string ne '');
               $pretty_search_string .= '<b>'.$search.'</b>';
             my @New_Words;              my @New_Words;
             ($search,@New_Words) = &related_version($search);              ($search,@New_Words) = &related_version($search);
             next if (! $search);              next if (! $search);
Line 1499  sub parse_basic_search { Line 1500  sub parse_basic_search {
                 $pretty_search_string .=                   $pretty_search_string .= 
                     " with related words: <b>@New_Words</b>";                      " with related words: <b>@New_Words</b>";
             }              }
           } else {
               $pretty_search_string .= ' and ' if ($pretty_search_string ne '');
               $pretty_search_string .= '<b>'.$search.'</b>';
         }          }
         #          #
         # Build SQL query string based on form page          # Build SQL query string based on form page
Line 1511  sub parse_basic_search { Line 1515  sub parse_basic_search {
         $pretty_search_string .= ' '.$pretty_domains_string;          $pretty_search_string .= ' '.$pretty_domains_string;
     }      }
     $pretty_search_string .= "<br />\n";      $pretty_search_string .= "<br />\n";
     $pretty_search_string =~ s:^<br />::;      $pretty_search_string =~ s:^<br /> and ::;
 #    &Apache::lonnet::logthis($final_query);  #    &Apache::lonnet::logthis($final_query);
     return ($final_query,$pretty_search_string,      return ($final_query,$pretty_search_string,
             $libraries_to_query);              $libraries_to_query);
Line 2933  sub detailed_citation_view { Line 2937  sub detailed_citation_view {
          { name=>'copyrighttag',           { name=>'copyrighttag',
            translate => '<b>Copyright/Distribution:</b>&nbsp;[_1]',},             translate => '<b>Copyright/Distribution:</b>&nbsp;[_1]',},
          { name=>'count',           { name=>'count',
              format => "%d",
            translate => '<b>Access Count:</b>&nbsp;[_1]',},             translate => '<b>Access Count:</b>&nbsp;[_1]',},
          { name=>'stdno',           { name=>'stdno',
              format => "%d",
            translate => '<b>Number of Students:</b>&nbsp;[_1]',},             translate => '<b>Number of Students:</b>&nbsp;[_1]',},
          { name=>'avetries',           { name=>'avetries',
              format => "%.2f",
            translate => '<b>Average Tries:</b>&nbsp;[_1]',},             translate => '<b>Average Tries:</b>&nbsp;[_1]',},
          { name=>'disc',           { name=>'disc',
              format => "%.2f",
            translate => '<b>Degree of Discrimination:</b>&nbsp;[_1]',},             translate => '<b>Degree of Discrimination:</b>&nbsp;[_1]',},
          { name=>'difficulty',           { name=>'difficulty',
              format => "%.2f",
            translate => '<b>Degree of Difficulty:</b>&nbsp;[_1]',},             translate => '<b>Degree of Difficulty:</b>&nbsp;[_1]',},
          { name=>'clear',           { name=>'clear',
              format => "%.2f",
            translate => '<b>Clear:</b>&nbsp;[_1]',},             translate => '<b>Clear:</b>&nbsp;[_1]',},
          { name=>'depth',           { name=>'depth',
              format => "%.2f",
            translate => '<b>Depth:</b>&nbsp;[_1]',},             translate => '<b>Depth:</b>&nbsp;[_1]',},
          { name=>'helpful',           { name=>'helpful',
              format => "%.2f",
            translate => '<b>Helpful:</b>&nbsp;[_1]',},             translate => '<b>Helpful:</b>&nbsp;[_1]',},
          { name=>'correct',           { name=>'correct',
              format => "%.2f",
            translate => '<b>Correct:</b>&nbsp;[_1]',},             translate => '<b>Correct:</b>&nbsp;[_1]',},
          { name=>'technical',           { name=>'technical',
              format => "%.2f",
            translate => '<b>Technical:</b>&nbsp;[_1]',},             translate => '<b>Technical:</b>&nbsp;[_1]',},
            { name=>'comefrom_list',
              type => 'list',
              translate => 'Resources that lead up to this resource in maps',},
            { name=>'goto_list',
              type => 'list',
              translate => 'Resources that follow this resource in maps',},
            { name=>'usage_list',
              type => 'list',
              translate => 'Resources using or importing resource',},
          ) {           ) {
         if (exists($values{$field->{'name'}}) &&          next if (! exists($values{$field->{'name'}}) ||
             $values{$field->{'name'}} ne '') {                   $values{$field->{'name'}} eq '');
           if (exists($field->{'type'}) && $field->{'type'} eq 'list') {
               $result .= '<b>'.&mt($field->{'translate'}).'</b><ul>';
               foreach my $item (split(',',$values{$field->{'name'}})){
                   $result .= '<li>'.
                       '<a target="search_preview" '.
                       'href="/res/'.$item.'">'.$item.'</a></li>';
               }
               $result .= '</ul>';
           } elsif (exists($field->{'format'}) && $field->{'format'} ne ''){
               $result.= &mt($field->{'translate'},
                             sprintf($field->{'format'},
                                     $values{$field->{'name'}})).'<br />'."\n";
           } else {
             if ($field->{'special'} eq 'url link') {              if ($field->{'special'} eq 'url link') {
                 $result.=                   $result.= 
                     &mt($field->{'translate'},                       &mt($field->{'translate'},
                         '<a href="'.$values{'url'}.'" '.                           '<a href="'.$values{'url'}.'" '.
                             'target="search_preview">'.                           'target="search_preview">'.
                         $values{$field->{'name'}}.                           $values{$field->{'name'}}.
                         '</a>');                           '</a>');
             } else {              } else {
                 $result.= &mt($field->{'translate'},                  $result.= &mt($field->{'translate'},
                               $values{$field->{'name'}});                                $values{$field->{'name'}});
             }              }
             $result .= "<br />\n";              $result .= "<br />\n";
             }          }
     }      }
     $result .= "</p>";      $result .= "</p>";
     if (exists($values{'extrashow'}) && $values{'extrashow'} ne '') {      if (exists($values{'extrashow'}) && $values{'extrashow'} ne '') {
Removed from v.1.224  
changed lines
  Added in v.1.225

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