loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.202, 2007/01/22 20:04:46	version 1.203, 2007/01/23 04:25:56
Line 638 sub prettyinput {	Line 638 sub prettyinput {
}	}
$cur_values_stu =~ s/,$//;	$cur_values_stu =~ s/,$//;
my @key_order = sort(keys(%meta_options));	my @key_order = sort(keys(%meta_options));
unshift (@key_order,'');	unshift(@key_order,'');
$meta_options{''} = 'Not specified';	$meta_options{''} = 'Not specified';
$meta_options{'select_form_order'} = \@key_order;	$meta_options{'select_form_order'} = \@key_order;
} else {	} else {
Line 1210 ENDBOMBS	Line 1210 ENDBOMBS
<input type="submit" name="clearmsg" value="$clear" />	<input type="submit" name="clearmsg" value="$clear" />
ENDDEL	ENDDEL
} else {	} else {
$r->print('<a href="'.$disuri.'" />'.$goback.'</a>');	$r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>');
	if ($env{'form.clearmsg'}) {
	my ($diruri) = ($disuri =~ m{(./)[^/]});
	$r->print('<p><a href="'.$diruri.'" />'.
	&mt('Back To Directory').'</a></p>');
	}
}	}
$r->print('<br />'.$bombs);	$r->print('<br />'.$bombs);
} else {	} else {