[LON-CAPA-cvs] cvs: modules /gerd/harvesting recommender.pl

[www]

www		Sun Oct  9 12:15:48 2011 EDT

  Modified files:              
    /modules/gerd/harvesting	recommender.pl 
  Log:
  Basket association display
  
  
Index: modules/gerd/harvesting/recommender.pl
diff -u modules/gerd/harvesting/recommender.pl:1.4 modules/gerd/harvesting/recommender.pl:1.5
--- modules/gerd/harvesting/recommender.pl:1.4	Sun Oct  9 11:44:01 2011
+++ modules/gerd/harvesting/recommender.pl	Sun Oct  9 12:15:48 2011
@@ -101,6 +101,7 @@
 close(IN);
 
 my %basketassoc=();
+my @basketresults=();
 unless ($env{'form.focus'}) {
    print("Basket Associations ...\n");
    foreach my $content (keys(%basket)) {
@@ -109,16 +110,15 @@
           if ($i<$content) {
              if ($assoc{$i.','.$content}) {
                 $basketassoc{$i}+=$assoc{$i.','.$content};
-                #print "<br />Forw: $i $content $assoc{$i.','.$content} for $i: $basketassoc{$i}";
              }
           } else {
              if ($assoc{$content.','.$i}) {
                 $basketassoc{$i}+=$assoc{$content.','.$i};
-                #print "<br />Back: $content $i $assoc{$content.','.$i} for $i: $basketassoc{$i}";
              }
           }
       }
    }
+   @basketresults=sort{$basketassoc{$b}<=>$basketassoc{$a}}(keys(%basketassoc));
 }
 
 # Get taxonomy
@@ -172,9 +172,6 @@
   print("<hr /><form>Search: <input type='text' name='search' /></form>");
 
 
-
-
-
 #
 # List basket
 #
@@ -198,6 +195,17 @@
       &taxolink($thistax);
    }
 
+#
+# Basket association display
+#
+
+   print "<h3>Basket Recommendations</h3>";
+   for (my $i=0;$i<=15; $i++) {
+      if ($basketresults[$i]) {
+         &outputlink($url[$basketresults[$i]],'view',$basketresults[$i]);
+      }
+   }
+
 # Search results
    if (($env{'form.search'}) || ($env{'form.taxsearch'})) {
       print("<h3>Search Results</h3>");