loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.27, 2004/05/10 08:34:50	version 1.29, 2004/07/12 20:42:31
Line 236 END	Line 236 END
$key =~ s/^store_//;	$key =~ s/^store_//;
$shash{$key} = $hash{'storectr_'.$key};	$shash{$key} = $hash{'storectr_'.$key};
if (&Apache::lonnet::gettitle($key) eq '') {	if (&Apache::lonnet::gettitle($key) eq '') {
$thash{$key} = $hash{'store_'.$key}; }	$thash{$key} = $hash{'store_'.$key};
else {	} else {
$thash{$key} = &Apache::lonnet::gettitle($key); }	$thash{$key} = &Apache::lonnet::gettitle($key);
	}
}	}
}	}
if ($ENV{'form.oldval'}) {	if ($ENV{'form.oldval'}) {
Line 318 END	Line 319 END

# --- Expand here if "GO BACK" button desired	# --- Expand here if "GO BACK" button desired
if ($ENV{'form.catalogmode'} eq 'groupimport') {	if ($ENV{'form.catalogmode'} eq 'groupimport') {
	my $resurl = &Apache::loncommon::lastresurl();
$r->print(<<END);	$r->print(<<END);
<input type="button" name="alter" value="$lt{'gb'}"	<input type="button" name="alter" value="$lt{'gb'}"
onClick="window.location='/res/?catalogmode=groupimport'" />	onClick="window.location='$resurl?catalogmode=groupimport'" />
END	END
}	}
if ($ENV{'form.catalogmode'} eq 'groupsearch') {	if ($ENV{'form.catalogmode'} eq 'groupsearch') {