--- loncom/lonnet/perl/lonnet.pm 2007/05/14 17:35:08 1.876 +++ loncom/lonnet/perl/lonnet.pm 2007/05/17 09:24:06 1.877 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.876 2007/05/14 17:35:08 raeburn Exp $ +# $Id: lonnet.pm,v 1.877 2007/05/17 09:24:06 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5913,6 +5913,7 @@ sub devalidatecourseresdata { # --------------------------------------------------- Course Resourcedata Query + sub get_courseresdata { my ($coursenum,$coursedomain)=@_; my $coursehom=&homeserver($coursenum,$coursedomain); @@ -8530,6 +8531,14 @@ setting for a specific $type, where $typ @what should be a list of parameters to ask about. This routine caches answers for 5 minutes. +=item * + +get_courseresdata($courseid, $domain) : dump the entire course resource +data base, returning a hash that is keyed by the resource name and has +values that are the resource value. I believe that the timestamps and +versions are also returned. + + =back =head2 Course Modification @@ -9212,3 +9221,4 @@ symblist($mapname,%newhash) : update sym =back =cut +