[LON-CAPA-cvs] cvs: loncom /interface coursecatalog.pm /lonnet/perl lonnet.pm

albertel lon-capa-cvs@mail.lon-capa.org
Thu, 31 Aug 2006 12:30:34 -0000


albertel		Thu Aug 31 08:30:34 2006 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
    /loncom/interface	coursecatalog.pm 
  Log:
  - making the sub routines agree with each other
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.776 loncom/lonnet/perl/lonnet.pm:1.777
--- loncom/lonnet/perl/lonnet.pm:1.776	Thu Aug 31 08:27:18 2006
+++ loncom/lonnet/perl/lonnet.pm	Thu Aug 31 08:30:23 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.776 2006/08/31 12:27:18 albertel Exp $
+# $Id: lonnet.pm,v 1.777 2006/08/31 12:30:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4231,7 +4231,7 @@
     }
 }
 
-sub autovalidateclass_sec {
+sub auto_validate_class_sec {
     my ($cdom,$cnum,$owner,$inst_class) = @_;
     my $homeserver = &homeserver($cnum,$cdom);
     my $response=&reply('autovalidateclass_sec:'.$inst_class.':'.
Index: loncom/interface/coursecatalog.pm
diff -u loncom/interface/coursecatalog.pm:1.2 loncom/interface/coursecatalog.pm:1.3
--- loncom/interface/coursecatalog.pm:1.2	Tue Aug 29 17:20:05 2006
+++ loncom/interface/coursecatalog.pm	Thu Aug 31 08:30:30 2006
@@ -415,8 +415,8 @@
     if ($seclist) {
         foreach my $sec (split(',',$seclist)) {
             my $class = $crscode.$sec;
-            if (&Apache::lonnet::autovalidate_class_sec($cdom,$cnum,$owner,
-                                                        $class) eq 'ok') {
+            if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
+							 $class) eq 'ok') {
                 if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) {
                     push (@{$validations{'sections'}},$sec);
                     $totalitems ++;
@@ -426,8 +426,8 @@
     }
     if ($xlist_items) {
         foreach my $item (split(',',$xlist_items)) {
-            if (&Apache::lonnet::autovalidate_class_sec($cdom,$cnum,$owner,
-                                                        $item) eq 'ok') {
+            if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
+							 $item) eq 'ok') {
                 if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) {
                     push (@{$validations{'xlists'}},$item);
                     $totalitems ++;