loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.209, 2007/04/11 02:42:00	version 1.212, 2007/04/13 02:03:54
Line 445 sub innerregister {	Line 445 sub innerregister {
# Finally, turn the button on or off	# Finally, turn the button on or off
if ($cfile && !$const_space) {	if ($cfile && !$const_space) {
$editbutton=&switch	$editbutton=&switch
('','',6,1,'cstr.gif','edit[_1]','resource[_2]',	('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
"go('".$cfile."');","Edit this resource");	"go('".$cfile."');","Edit this resource");
} elsif ($editbutton eq '') {	} elsif ($editbutton eq '') {
$editbutton=&clear(6,1);	$editbutton=&clear(6,1);
Line 904 sub openmenu {	Line 904 sub openmenu {
}	}

sub inlinemenu {	sub inlinemenu {
@inlineremote=();	undef(@inlineremote);
undef @inlineremote;	undef(%category_members);
%category_members=();
undef %category_members;
&rawconfig(1);	&rawconfig(1);
my $output='<table><tr>';	my $output='<table><tr>';
for (my $col=1; $col<=2; $col++) {	for (my $col=1; $col<=2; $col++) {
Line 967 sub rawconfig {	Line 965 sub rawconfig {
$prt=~s/\$udom/$udom/g;	$prt=~s/\$udom/$udom/g;
$prt=~s/\$crs/$crs/g;	$prt=~s/\$crs/$crs/g;
$prt=~s/\$requested_domain/$requested_domain/g;	$prt=~s/\$requested_domain/$requested_domain/g;
	if ($category_names{$cat}!~/\w/) { $cat='oth'; }
my $type = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
if ($type eq 'Group') {	if ($type eq 'Group') {
$desc = &convert_menu_function($desc,$type);	$desc = &convert_menu_function($desc,$type);