loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.48, 2006/07/31 18:39:15	version 1.50, 2006/12/05 02:55:51
Line 37 use GDBM_File;	Line 37 use GDBM_File;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
	use LONCAPA();

my $iconpath; # variable to be accessible to multiple subroutines	my $iconpath; # variable to be accessible to multiple subroutines
my %hash; # variable to tie to user specific database	my %hash; # variable to tie to user specific database
Line 174 sub readfromfile {	Line 175 sub readfromfile {

my $url=$token->[2]->{'src'};	my $url=$token->[2]->{'src'};
my $name=$token->[2]->{'title'};	my $name=$token->[2]->{'title'};
$name=~s/ \[$(\d+)\,(\w+)\,(\w+)$\]$//;	$name=~s/ \[$(\d+)\,($LONCAPA::username_re)\,($LONCAPA::domain_re)$\]$//;
if ($1) {	if ($1) {
$$nhash{$url}='<br />'.&mt('Removed by ').	$$nhash{$url}='<br />'.&mt('Removed by ').
&Apache::loncommon::plainname($2,$3).', '.	&Apache::loncommon::plainname($2,$3).', '.
Line 349 END	Line 350 END
END	END

# --- Continue Buttons	# --- Continue Buttons
my $resurl = &Apache::loncommon::lastresurl();	my $resurl =
	&Apache::loncommon::escape_single(&Apache::loncommon::lastresurl());
$r->print(<<END);	$r->print(<<END);
<input type="button" name="alter" value="$lt{'ci'}"	<input type="button" name="alter" value="$lt{'ci'}"
onClick="window.location='$resurl?catalogmode=import'" />	onClick="window.location='$resurl?catalogmode=import'" />