version 1.22, 2006/12/20 22:23:50
|
version 1.23, 2007/01/10 20:22:30
|
Line 43 use vars qw($match_domain $match_not_d
|
Line 43 use vars qw($match_domain $match_not_d
|
$match_username $match_not_username |
$match_username $match_not_username |
$match_courseid $match_not_courseid |
$match_courseid $match_not_courseid |
$match_name |
$match_name |
|
$match_lonid |
$match_handle $match_not_handle); |
$match_handle $match_not_handle); |
|
|
require Exporter; |
require Exporter; |
Line 54 our @EXPORT_OK = qw($match_domain $mat
|
Line 55 our @EXPORT_OK = qw($match_domain $mat
|
$match_username $match_not_username |
$match_username $match_not_username |
$match_courseid $match_not_courseid |
$match_courseid $match_not_courseid |
$match_name |
$match_name |
|
$match_lonid |
$match_handle $match_not_handle); |
$match_handle $match_not_handle); |
our %EXPORT_TAGS = ( 'match' =>[qw($match_domain $match_not_domain |
our %EXPORT_TAGS = ( 'match' =>[qw($match_domain $match_not_domain |
$match_username $match_not_username |
$match_username $match_not_username |
$match_courseid $match_not_courseid |
$match_courseid $match_not_courseid |
$match_name |
$match_name |
|
$match_lonid |
$match_handle $match_not_handle)],); |
$match_handle $match_not_handle)],); |
my %perlvar; |
my %perlvar; |
|
|
Line 136 sub clean_name {
|
Line 139 sub clean_name {
|
return $name; |
return $name; |
} |
} |
|
|
|
$match_lonid = $LONCAPA::lonid_re = qr{[\w\-.]+}; |
|
|
sub split_courseid { |
sub split_courseid { |
my ($courseid) = @_; |
my ($courseid) = @_; |
my ($domain,$coursenum) = |
my ($domain,$coursenum) = |