loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.96, 2006/08/11 22:00:08	version 1.98, 2006/11/02 21:06:06
Line 33 use strict;	Line 33 use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonratedt;
use Apache::londocs;	use Apache::londocs;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::londropadd;	use Apache::londropadd;
Line 719 sub print_intro_page {	Line 718 sub print_intro_page {
name => &mt('Create courses/groups by uploading an attributes file'),	name => &mt('Create courses/groups by uploading an attributes file'),
short_description =>	short_description =>
&mt('Upload an attributes file containing specifications for one or more courses or groups in XML format'),	&mt('Upload an attributes file containing specifications for one or more courses or groups in XML format'),
	help => 'Batch_Creation',
},	},
);	);
my $options;	my $options;
foreach my $choice (@choices) {	foreach my $choice (@choices) {
$options .=' <h3><a href="/adm/createcourse?phase='.	$options .=' <h3><a href="/adm/createcourse?phase='.
$choice->{'internal_name'}.'" >'.	$choice->{'internal_name'}.'" >'.
$choice->{'name'}."</a></h3>\n";	$choice->{'name'}.'</a>';
$options .= ' '.(' 'x8).$choice->{'short_description'}.	if (exists($choice->{'help'})) {
	$options .= &Apache::loncommon::help_open_topic($choice->{'help'});
	}
	$options .= "</h3>\n".' '.(' 'x8).$choice->{'short_description'}.
"\n";	"\n";
}	}