loncom/imspackages/imsimport.pm - diff

Return to imsimport.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.23, 2008/08/24 13:48:40	version 1.26, 2008/12/24 07:57:39
Line 1	Line 1
	# The LearningOnline Network with CAPA
	#
	# $Id$
	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
#	#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 404 sub display_two {	Line 408 sub display_two {
&Apache::lonhtmlcommon::topic_bar(3,$lt{'cont'}).	&Apache::lonhtmlcommon::topic_bar(3,$lt{'cont'}).
&Apache::loncommon::start_data_table().	&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
'<th>'.$lt{'impo'}.'</th><th>'.$lt{'cont'}.'</th><th>'.	'<th>'.$lt{'impo'}.'</th><th>'.$lt{'type'}.'</th><th>'.
$lt{'addo'}.'</th>'.	$lt{'addo'}.'</th>'.
&Apache::loncommon::end_data_table_header_row());	&Apache::loncommon::end_data_table_header_row());
foreach my $area (@{$areas}) {	foreach my $area (@{$areas}) {
Line 718 sub handler {	Line 722 sub handler {
my $fn;	my $fn;
if ($env{'form.filename'}) {	if ($env{'form.filename'}) {
$fn=$env{'form.filename'};	$fn=$env{'form.filename'};
$fn=~s/^http\:\/\/[^\/]+\///;	$fn=~s/^https?\:\/\/[^\/]+\///;
$fn=~s/^\///;	$fn=~s/^\///;
$fn=~s/(\~\|priv\/)($LONCAPA::username_re)//;	$fn=~s/(\~\|priv\/)($LONCAPA::username_re)//;
$fn=~s/\/+/\//g;	$fn=~s/\/+/\//g;