[LON-CAPA-cvs] cvs: loncom / LONCAPA.pm

[albertel]

albertel		Wed Dec 20 17:23:50 2006 EDT

  Modified files:              
    /loncom	LONCAPA.pm 
  Log:
  - add clean_courseid
  
  
Index: loncom/LONCAPA.pm
diff -u loncom/LONCAPA.pm:1.21 loncom/LONCAPA.pm:1.22
--- loncom/LONCAPA.pm:1.21	Sun Dec 10 18:06:13 2006
+++ loncom/LONCAPA.pm	Wed Dec 20 17:23:50 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.21 2006/12/10 23:06:13 albertel Exp $
+# $Id: LONCAPA.pm,v 1.22 2006/12/20 22:23:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -122,8 +122,14 @@
 
 $match_courseid     = $LONCAPA::courseid_re     = qr{\d[\w\-.]+};
 $match_not_courseid = $LONCAPA::not_courseid_re = qr{[^\w\-.]+};
+sub clean_courseid {
+    my ($courseid) = @_;
+    $courseid =~ s/^\D+//;
+    $courseid =~ s/$match_not_courseid//g;
+    return $courseid;
+}
 
-$match_name         = $LONCAPA::name = qr{$match_username|$match_courseid};
+$match_name         = $LONCAPA::name_re = qr{$match_username|$match_courseid};
 sub clean_name {
     my ($name) = @_;
     $name =~ s/$match_not_username//g;