--- loncom/lonnet/perl/lonnet.pm 2007/05/14 17:35:08 1.876 +++ loncom/lonnet/perl/lonnet.pm 2007/05/17 09:25:31 1.878 @@ -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.878 2007/05/17 09:25:31 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5912,6 +5912,13 @@ sub devalidatecourseresdata { # --------------------------------------------------- Course Resourcedata Query +# +# Parameters: +# $coursenum - Number of the course. +# $coursedomain - Domain at which the course was created. +# Returns: +# A hash of the course parameters along (I think) with timestamps +# and version info. sub get_courseresdata { my ($coursenum,$coursedomain)=@_; @@ -8530,6 +8537,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 +9227,4 @@ symblist($mapname,%newhash) : update sym =back =cut +