loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.47, 2006/07/28 20:01:26	version 1.48, 2006/07/31 18:39:15
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\:\/\//;	$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;