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

foxr foxr@source.lon-capa.org
Tue, 28 Jun 2011 09:38:05 -0000


foxr		Tue Jun 28 09:38:05 2011 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  Some desultory adding of POD comments.
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.190 loncom/interface/loncoursedata.pm:1.191
--- loncom/interface/loncoursedata.pm:1.190	Thu Nov 20 21:22:21 2008
+++ loncom/interface/loncoursedata.pm	Tue Jun 28 09:38:05 2011
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.190 2008/11/20 21:22:21 jms Exp $
+# $Id: loncoursedata.pm,v 1.191 2011/06/28 09:38:05 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,6 +56,17 @@
 use LONCAPA;
 use Digest::MD5();
 
+=pod 
+
+=head 2 make_into_hash
+
+Turn a colon separated string into a hash and return a reference
+to it.  Numbering from 0 even elements are keys and odd elements
+are values e.g. a:b:c:d creates a hash like
+  a => b, c =>d
+
+=cut
+
 sub make_into_hash {
     my $values = shift;
     my %tmp = map { &unescape($_); } split(':',$values);
@@ -436,8 +447,17 @@
     return 0;
 }
 
+=pod
+
+=head2 delete_caches
 
+Drops all of the tables in the local mysql cache associated with the
+specified course id.
 
+TODO:  The drops shoulid be pushed into lonmysql to further isolate 
+mysql code from other modules.
+
+=cut
 sub delete_caches {
     my $courseid = shift;
     $courseid = $env{'request.course.id'} if (! defined($courseid));