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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.50 and 1.51

version 1.50, 2001/03/21 02:09:38 version 1.51, 2001/03/21 02:18:14
Line 615  sub output_results { Line 615  sub output_results {
  $creationdate,$lastrevisiondate,$owner,$copyright)=@fields;   $creationdate,$lastrevisiondate,$owner,$copyright)=@fields;
     my $shortabstract=$abstract;      my $shortabstract=$abstract;
     $shortabstract=substr($abstract,0,200) if length($abstract)>200;      $shortabstract=substr($abstract,0,200) if length($abstract)>200;
       $fields[7]=$shortabstract;
     $compiledresult.=<<END;      $compiledresult.=<<END;
 <p>  <p>
 END  END
Line 624  onClick="javascript:select_data('$title' Line 625  onClick="javascript:select_data('$title'
 </font>  </font>
 <br>  <br>
 END  END
                           my $httphost=$ENV{'HTTP_HOST'};
             if ($ENV{'form.viewselect'} eq 'Detailed Citation View') {              if ($ENV{'form.viewselect'} eq 'Detailed Citation View') {
  $compiledresult.=&detailed_citation_view(@fields);   $compiledresult.=&detailed_citation_view(@fields,
    $hostname,$httphost);
     }      }
             elsif ($ENV{'form.viewselect'} eq 'Summary View') {              elsif ($ENV{'form.viewselect'} eq 'Summary View') {
  $compiledresult.=&summary_view(@fields);   $compiledresult.=&summary_view(@fields,$hostname,$httphost);
     }      }
             elsif ($ENV{'form.viewselect'} eq 'Fielded Format') {              elsif ($ENV{'form.viewselect'} eq 'Fielded Format') {
  $compiledresult.=&fielded_format_view(@fields);   $compiledresult.=&fielded_format_view(@fields,$hostname,
         $httphost);
     }      }
             elsif ($ENV{'form.viewselect'} eq 'XML/SGML') {              elsif ($ENV{'form.viewselect'} eq 'XML/SGML') {
  $compiledresult.=&xml_sgml_view(@fields);   $compiledresult.=&xml_sgml_view(@fields,$hostname,$httphost);
     }      }
   
         }          }
Line 761  sub recursive_SQL_query_build { Line 764  sub recursive_SQL_query_build {
 # ------------------------------------------------------ Detailed Citation View  # ------------------------------------------------------ Detailed Citation View
 sub detailed_citation_view {  sub detailed_citation_view {
     my ($title,$author,$subject,$url,$keywords,$version,      my ($title,$author,$subject,$url,$keywords,$version,
  $notes,$abstract,$mime,$lang,   $notes,$shortabstract,$mime,$lang,
  $creationdate,$lastrevisiondate,$owner,$copyright)=@_;   $creationdate,$lastrevisiondate,$owner,$copyright,
    $hostname,$httphost)=@_;
     my $result=<<END;      my $result=<<END;
 <b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A>  DETAILED
   <b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A>
 <br>  <br>
 <b>Title:</b> $title<br>  <b>Title:</b> $title<br>
 <b>Author(s):</b> $author<br>  <b>Author(s):</b> $author<br>
Line 787  END Line 792  END
 # ---------------------------------------------------------------- Summary View  # ---------------------------------------------------------------- Summary View
 sub summary_view {  sub summary_view {
     my ($title,$author,$subject,$url,$keywords,$version,      my ($title,$author,$subject,$url,$keywords,$version,
  $notes,$abstract,$mime,$lang,   $notes,$shortabstract,$mime,$lang,
  $creationdate,$lastrevisiondate,$owner,$copyright)=@_;   $creationdate,$lastrevisiondate,$owner,$copyright,
    $hostname,$httphost)=@_;
     my $result=<<END;      my $result=<<END;
 <b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A>  SUMMARY
   <b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A>
 <br>  <br>
 <b>Title:</b> $title<br>  <b>Title:</b> $title<br>
 <b>Author(s):</b> $author<br>  <b>Author(s):</b> $author<br>
Line 813  END Line 820  END
 # -------------------------------------------------------------- Fielded Format  # -------------------------------------------------------------- Fielded Format
 sub fielded_format_view {  sub fielded_format_view {
     my ($title,$author,$subject,$url,$keywords,$version,      my ($title,$author,$subject,$url,$keywords,$version,
  $notes,$abstract,$mime,$lang,   $notes,$shortabstract,$mime,$lang,
  $creationdate,$lastrevisiondate,$owner,$copyright)=@_;   $creationdate,$lastrevisiondate,$owner,$copyright,
    $hostname,$httphost)=@_;
     my $result=<<END;      my $result=<<END;
 <b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A>  FIELDED
   <b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A>
 <br>  <br>
 <b>Title:</b> $title<br>  <b>Title:</b> $title<br>
 <b>Author(s):</b> $author<br>  <b>Author(s):</b> $author<br>
Line 839  END Line 848  END
 # -------------------------------------------------------------------- XML/SGML  # -------------------------------------------------------------------- XML/SGML
 sub xml_sgml_view {  sub xml_sgml_view {
     my ($title,$author,$subject,$url,$keywords,$version,      my ($title,$author,$subject,$url,$keywords,$version,
  $notes,$abstract,$mime,$lang,   $notes,$shortabstract,$mime,$lang,
  $creationdate,$lastrevisiondate,$owner,$copyright)=@_;   $creationdate,$lastrevisiondate,$owner,$copyright,
    $hostname,$httphost)=@_;
     my $result=<<END;      my $result=<<END;
 <b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A>  XML/SGML
   <b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A>
 <br>  <br>
 <b>Title:</b> $title<br>  <b>Title:</b> $title<br>
 <b>Author(s):</b> $author<br>  <b>Author(s):</b> $author<br>
Removed from v.1.50  
changed lines
  Added in v.1.51

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