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.22, 2006/12/05 02:55:54
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;
Line 855 sub handler {	Line 856 sub handler {
$fn=$env{'form.filename'};	$fn=$env{'form.filename'};
$fn=~s/^http\:\/\/[^\/]+\///;	$fn=~s/^http\:\/\/[^\/]+\///;
$fn=~s/^\///;	$fn=~s/^\///;
$fn=~s/(\~\|priv\/)(\w+)//;	$fn=~s/(\~\|priv\/)($LONCAPA::username_re)//;
$fn=~s/\/+/\//g;	$fn=~s/\/+/\//g;
} else {	} else {
$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.	$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.