[LON-CAPA-cvs] cvs: loncom /interface lonannounce.pm

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 20 Dec 2006 22:36:18 -0000


albertel		Wed Dec 20 17:36:18 2006 EDT

  Modified files:              
    /loncom/interface	lonannounce.pm 
  Log:
  - swithc to using the caching lonnet call rather than dumping by hand
  
  
Index: loncom/interface/lonannounce.pm
diff -u loncom/interface/lonannounce.pm:1.64 loncom/interface/lonannounce.pm:1.65
--- loncom/interface/lonannounce.pm:1.64	Wed Dec  6 16:52:49 2006
+++ loncom/interface/lonannounce.pm	Wed Dec 20 17:36:17 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.64 2006/12/06 21:52:49 albertel Exp $
+# $Id: lonannounce.pm,v 1.65 2006/12/20 22:36:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -90,7 +90,7 @@
 	$navmap = Apache::lonnavmaps::navmap->new();
     }
     my %resourcedata=
-	&Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);
+	&Apache::lonnet::get_courseresdata($coursenum,$coursedom);
     foreach my $thiskey (sort keys %resourcedata) {
 	if ($resourcedata{$thiskey.'.type'}=~/^date/) {
 	    my ($course,$middle,$part,$name)=