loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.46, 2006/07/21 08:29:47	version 1.47, 2006/07/28 20:01:26
Line 431 sub hidden {	Line 431 sub hidden {
my ($sel,$title,$filelink) = @_;	my ($sel,$title,$filelink) = @_;
my $string = '<input type="hidden" name="title'.$sel.'" value="'.$title.	my $string = '<input type="hidden" name="title'.$sel.'" value="'.$title.
'" />';	'" />';
	$filelink=~s/^\/ext\//http\:\/\//;
$string .= '<input type="hidden" name="filelink'.$sel.'" value="'.	$string .= '<input type="hidden" name="filelink'.$sel.'" value="'.
$filelink.'" />';	$filelink.'" />';
return $string;	return $string;