loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.91.2.1 and 1.93

version 1.91.2.1, 2004/01/21 00:23:30	version 1.93, 2003/12/08 23:13:17
Line 43 use Apache::lonhtmlcommon();	Line 43 use Apache::lonhtmlcommon();
use Apache::Constants qw(:common :http REDIRECT);	use Apache::Constants qw(:common :http REDIRECT);
use Spreadsheet::WriteExcel;	use Spreadsheet::WriteExcel;
use Apache::lonlocal;	use Apache::lonlocal;
use localenroll();

###############################################################	###############################################################
###############################################################	###############################################################
Line 172 sub print_main_menu {	Line 171 sub print_main_menu {
<a href="/adm/dropadd?action=drop">$Text{'drop'}</a>	<a href="/adm/dropadd?action=drop">$Text{'drop'}</a>
</font>	</font>
</p><p>	</p><p>
END
if (&localenroll::run() ) {
$r->print(<<END);
<font size="+1">	<font size="+1">
<a href="/adm/populate">$Text{'populate'}</a>	<a href="/adm/populate">$Text{'populate'}</a>
</font>	</font>
END	END
}
}	}

###############################################################	###############################################################
Line 981 END	Line 976 END
# ========================================================= Menu Phase Two Drop	# ========================================================= Menu Phase Two Drop
sub print_drop_menu {	sub print_drop_menu {
my $r=shift;	my $r=shift;
$r->print("<h3>Drop Students</h3>");	$r->print("<h3>".&mt('Drop Students')."</h3>");
my $cid=$ENV{'request.course.id'};	my $cid=$ENV{'request.course.id'};
my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();	my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();
if (! defined($classlist)) {	if (! defined($classlist)) {
Line 1100 END	Line 1095 END
$r->print('"'.join('","',("username","domain","ID","student name",	$r->print('"'.join('","',("username","domain","ID","student name",
"section","status")).'"'."\n");	"section","status")).'"'."\n");
} else {	} else {
$r->print('"'.join('","',("username","domain","ID","student name",	$r->print('"'.join('","',(&mt("username"),"domain","ID","student name",
"section")).'"'."\n");	"section")).'"'."\n");
}	}
} elsif ($mode eq 'excel') {	} elsif ($mode eq 'excel') {
Line 1527 END	Line 1522 END
END	END

} else {	} else {
	my $wordusername=&mt('username');
	my $worddomain=&mt('domain');
	my $wordstudentname=&mt('student name');
	my $wordsection=&mt('section');
$r->print(<<END);	$r->print(<<END);
<table border=2>	<table border=2>
<tr><th> </th>	<tr><th> </th>
<th>	<th>
<a href="/adm/dropadd?action=$action&sortby=username">username</a>	<a href="/adm/dropadd?action=$action&sortby=username">$wordusername</a>
</th><th>	</th><th>
<a href="/adm/dropadd?action=$action&sortby=domain">domain</a>	<a href="/adm/dropadd?action=$action&sortby=domain">$worddomain</a>
</th><th>	</th><th>
<a href="/adm/dropadd?action=$action&sortby=id">ID</a>	<a href="/adm/dropadd?action=$action&sortby=id">ID</a>
</th><th>	</th><th>
<a href="/adm/dropadd?action=$action&sortby=fullname">student name</a>	<a href="/adm/dropadd?action=$action&sortby=fullname">$wordstudentname</a>
</th><th>	</th><th>
<a href="/adm/dropadd?action=$action&sortby=section">section</a>	<a href="/adm/dropadd?action=$action&sortby=section">$wordsection</a>
</th>	</th>
</tr>	</tr>
END	END
Line 1583 END	Line 1582 END
END	END
}	}
$r->print('</table><br>');	$r->print('</table><br>');
	my $DropStudents=&mt('Drop Students');
	my $CheckAll=&mt('check all');
	my $UncheckAll=&mt('uncheck all');
$r->print(<<"END");	$r->print(<<"END");
</p><p>	</p><p>
<input type="button" value="check all" onclick="javascript:checkAll(document.studentform.droplist)">	<input type="button" value="$CheckAll" onclick="javascript:checkAll(document.studentform.droplist)">
<input type="button" value="uncheck all" onclick="javascript:uncheckAll(document.studentform.droplist)">	<input type="button" value="$UncheckAll" onclick="javascript:uncheckAll(document.studentform.droplist)">
<p><input type=submit value="Drop Students"></p>	<p><input type=submit value="$DropStudents"></p>
END	END
return;	return;
}	}
Line 1609 sub print_first_courselist_upload_form {	Line 1611 sub print_first_courselist_upload_form {
$str .= '<input type="checkbox" name="noFirstLine" /> '.	$str .= '<input type="checkbox" name="noFirstLine" /> '.
&mt('Ignore First Line')."</p>\n";	&mt('Ignore First Line')."</p>\n";
$str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",	$str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",
"How do I create a class list from a spreadsheet").	&mt("How do I create a class list from a spreadsheet")).
"<br />\n";	"<br />\n";
$str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",	$str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
"How do I create a CSV file from a spreadsheet").	&mt("How do I create a CSV file from a spreadsheet")).
"<br />\n";	"<br />\n";
$str .= "</body>\n</html>\n";	$str .= "</body>\n</html>\n";
$r->print($str);	$r->print($str);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.91.2.1
changed lines
	Added in v.1.93