loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.150, 2006/08/08 21:29:15	version 1.151, 2006/08/08 21:34:05
Line 72 sub make_anchor {	Line 72 sub make_anchor {
foreach my $field_name (keys(%$anchor_fields)) {	foreach my $field_name (keys(%$anchor_fields)) {
$anchor .= $field_name.'='.$$anchor_fields{$field_name}.'&';	$anchor .= $field_name.'='.$$anchor_fields{$field_name}.'&';
}	}
$anchor =~ s\&$\\;	$anchor =~ s/&$//;
$anchor .= &group_args();	$anchor .= &group_args();
$anchor .= '">'.$inner_text.'</a>';	$anchor .= '">'.$inner_text.'</a>';
return $anchor;	return $anchor;