loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.20, 2002/03/06 22:34:06	version 1.22, 2002/04/04 17:32:45
Line 129 sub record_sep {	Line 129 sub record_sep {
if ($ENV{'form.upfiletype'} eq 'xml') {	if ($ENV{'form.upfiletype'} eq 'xml') {
} elsif ($ENV{'form.upfiletype'} eq 'space') {	} elsif ($ENV{'form.upfiletype'} eq 'space') {
my $i=0;	my $i=0;
foreach (split(/\s+/,$record) {	foreach (split(/\s+/,$record)) {
my $field=$_;	my $field=$_;
$field=~s/^(\"\|\')//;	$field=~s/^(\"\|\')//;
$field=~s/(\"\|\')$//;	$field=~s/(\"\|\')$//;
Line 253 sub menu_phase_two_upload {	Line 253 sub menu_phase_two_upload {
<input type=hidden name=upfiletype value=$ENV{'form.upfiletype'}>	<input type=hidden name=upfiletype value=$ENV{'form.upfiletype'}>
<hr>	<hr>
<h3>Identify fields</h3>	<h3>Identify fields</h3>
Total number of records found in file: $distotal	Total number of records found in file: $distotal <hr />
	Enter as many fields as you can. The system will inform you and bring you back
	to this page if the data selected is insufficient to run your class.<hr />
<script>	<script>
function verify(vf) {	function verify(vf) {
var founduname=0;	var founduname=0;