[LON-CAPA-cvs] cvs: modules /gerd/harvesting lonrecommender.pm

[www]

www		Wed Jul 18 16:25:15 2012 EDT

  Modified files:              
    /modules/gerd/harvesting	lonrecommender.pm 
  Log:
  Response in reasonable time without the laptop fan switching on.
  
  
Index: modules/gerd/harvesting/lonrecommender.pm
diff -u modules/gerd/harvesting/lonrecommender.pm:1.20 modules/gerd/harvesting/lonrecommender.pm:1.21
--- modules/gerd/harvesting/lonrecommender.pm:1.20	Wed Jul 18 15:26:02 2012
+++ modules/gerd/harvesting/lonrecommender.pm	Wed Jul 18 16:25:15 2012
@@ -5,7 +5,7 @@
 #
 # MODIFY $datapath VARIABLE FOR LOCATION OF DATA FILES
 #
-# $Id: lonrecommender.pm,v 1.20 2012/07/18 15:26:02 www Exp $
+# $Id: lonrecommender.pm,v 1.21 2012/07/18 16:25:15 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -457,7 +457,9 @@
    my %taxoids=&taxoids(values(%urlids));
    $r->print("\n<table border='1' bgcolor='".($editflag?'#DDDDFF':'#FFFFDD')."'>\n");
    foreach my $url (@urls) {
-      $r->print(&display_line($url,$$taxocats{'cleartext_'.$taxoids{$urlids{$url}}},$editflag));
+      if ($url) {
+         $r->print(&display_line($url,$$taxocats{'cleartext_'.$taxoids{$urlids{$url}}},$editflag));
+      }
    }
    $r->print("\n</table>\n");
 }
@@ -752,7 +754,8 @@
     } elsif ($cmd eq 'search') {
     } elsif ($cmd=~/^taxo\:/) {
        $r->print(&list_nextlevel_cats($cmd,\%taxonomy_categories));
-       $r->print(join("<br />\n",&show_taxonomy_list($cmd,\%taxonomy_categories,$filter, at baseids)));
+       my %list=&urlres((&show_taxonomy_list($cmd,\%taxonomy_categories,$filter, at baseids))[0..9]);
+       &display_list($r,0,\%taxonomy_categories,values(%list));
     } elsif ($cmd=~/^dir\:(.*)$/) {
        &show_dir_list($r,\%taxonomy_categories,$filter,$1);
     } elsif ($cmd=~/^indiv\:/) {