loncom/imspackages/imsimportdocs.pm - diff

Return to imsimportdocs.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.18, 2006/05/30 12:45:50	version 1.19, 2006/11/02 21:07:15
Line 34 use Apache::loncommon;	Line 34 use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::imsprocessor;	use Apache::imsprocessor;
use LONCAPA::Configuration;	use LONCAPA::Configuration;
	use LONCAPA::map();
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;

Line 650 sub display_three {	Line 651 sub display_three {
my $errtext='';	my $errtext='';
my $fatal=0;	my $fatal=0;
($errtext,$fatal)= &Apache::londocs::mapread($crs,$cdom,$folder.'.sequence');	($errtext,$fatal)= &Apache::londocs::mapread($crs,$cdom,$folder.'.sequence');
if ($#Apache::lonratedt::order<1) {	if ($#LONCAPA::map::order<1) {
$Apache::lonratedt::order[0]=1;	$LONCAPA::map::order[0]=1;
$Apache::lonratedt::resources[1]='';	$LONCAPA::map::resources[1]='';
}	}
my ($errtext,$fatal)=&Apache::londocs::group_import($crs,$cdom,$folder,'sequence','imsimport',@imports);	my ($errtext,$fatal)=&Apache::londocs::group_import($crs,$cdom,$folder,'sequence','imsimport',@imports);
if ($fatal) {	if ($fatal) {