loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.426 and 1.427

version 1.426, 2010/11/18 17:42:15	version 1.427, 2010/11/28 02:46:23
Line 47 use Image::Magick;	Line 47 use Image::Magick;
use Apache::lonmenu();	use Apache::lonmenu();
use Apache::lonmeta();	use Apache::lonmeta();
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::loncommon();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use File::Basename;	use File::Basename;
use LONCAPA();	use LONCAPA();
Line 588 sub start_body {	Line 589 sub start_body {
sub edit_controls {	sub edit_controls {
my ($nochgview) = @_;	my ($nochgview) = @_;
my $result .= '	my $result .= '
<form method="post">	<form method="post" action="">
<div class="LC_edit_problem_header">';	<div class="LC_edit_problem_header">';
unless ($nochgview) {	unless ($nochgview) {
$result .= '	$result .= '
Line 600 sub edit_controls {	Line 601 sub edit_controls {
$result .= '	$result .= '
<div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />';	<div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />';
if (($env{'request.course.id'}) && ($env{'form.forceedit'})) {	if (($env{'request.course.id'}) && ($env{'form.forceedit'})) {
$result .= (' ' x 3).'<input type="button" value="'.&mt('Course View').'" onclick="javascript:location.href=currentURL" />';	my $viewtext = &mt('Course View');
	if (&Apache::loncommon::course_type() eq 'Community') {
	$viewtext = &mt('Community View');
	}
	$result .= (' ' x 3).'<input type="button" value="'.
	$viewtext.'" onclick="javascript:location.href=currentURL" />';
}	}
$result .= '</div>	$result .= '</div>
</div>	</div>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.426
changed lines
	Added in v.1.427