loncom/imspackages/imsimport.pm - diff

Return to imsimport.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.20, 2006/04/10 22:30:20	version 1.21, 2006/11/27 16:37:36
Line 34 use HTML::Entities();	Line 34 use HTML::Entities();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonupload;	use Apache::lonupload;
use File::Basename();	use File::Basename();
	use LONCAPA;

# ---------------------------------------------------------------- Jscript One	# ---------------------------------------------------------------- Jscript One
sub jscript_one {	sub jscript_one {
my ($fullpath,$jsref) = @_;	my ($fullpath,$jsref) = @_;
Line 757 sub get_ccroles {	Line 758 sub get_ccroles {
my @crslist = ();	my @crslist = ();
my %descrip =();	my %descrip =();
foreach my $key (keys %roles ) {	foreach my $key (keys %roles ) {
if ($key =~ m/^\/(\w+)\/(\w+)_cc$/) {	if ($key =~ m{^/($LONCAPA::domain_re)/($LONCAPA::username_re)_cc$}) {
my $cdom = $1;	my $cdom = $1;
my $crs = $2;	my $crs = $2;
my $role_end = 0;	my $role_end = 0;