[LON-CAPA-cvs] cvs: modules /gerd/harvesting recommender.pl
www
www at source.lon-capa.org
Sun Oct 9 08:15:48 EDT 2011
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>");
More information about the LON-CAPA-cvs
mailing list