loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.49, 2006/09/12 22:13:05	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).', '.