loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhelper.pm between versions 1.105 and 1.108

version 1.105, 2005/07/07 04:12:01	version 1.108, 2005/07/07 04:32:59
Line 3268 sub render {	Line 3268 sub render {
'answer_date' => "0_answerdate",	'answer_date' => "0_answerdate",
'tries' => '0_maxtries',	'tries' => '0_maxtries',
'weight' => '0_weight' );	'weight' => '0_weight' );
	my %realParmName = ('open_date' => "opendate",
	'due_date' => "duedate",
	'answer_date' => "answerdate",
	'tries' => 'maxtries',
	'weight' => 'weight' );

my $affectedResourceId = "";	my $affectedResourceId = "";
my $parm_name = $parmTypeHash{$vars->{ACTION_TYPE}};	my $parm_name = $parmTypeHash{$vars->{ACTION_TYPE}};
Line 3326 sub render {	Line 3331 sub render {
my $result = "<form name='helpform' method='POST' action='/adm/parmset#$affectedResourceId&$parm_name&$level'>\n";	my $result = "<form name='helpform' method='POST' action='/adm/parmset#$affectedResourceId&$parm_name&$level'>\n";
$result .= "<input type='hidden' name='action' value='settable' />\n";	$result .= "<input type='hidden' name='action' value='settable' />\n";
$result .= "<input type='hidden' name='dis' value='helper' />\n";	$result .= "<input type='hidden' name='dis' value='helper' />\n";
if ($vars->{ACTION_TYPE} eq 'tries') {	$result .= "<input type='hidden' name='pscat' value='".
$result .= "<input type='hidden' name='pscat' value='maxtries' />\n";	$realParmName{$vars->{ACTION_TYPE}}."' />\n";
} else {
$result .= "<input type='hidden' name='pscat' value='".
HTML::Entities::encode($vars->{ACTION_TYPE},"'<>&\"") . "' />\n";
}
if ($vars->{GRANULARITY} eq 'resource') {	if ($vars->{GRANULARITY} eq 'resource') {
$result .= "<input type='hidden' name='symb' value='".	$result .= "<input type='hidden' name='symb' value='".
HTML::Entities::encode($symb,"'<>&\"") . "' />\n";	HTML::Entities::encode($symb,"'<>&\"") . "' />\n";
	} elsif ($vars->{GRANULARITY} eq 'map') {
	$result .= "<input type='hidden' name='pschp' value='".
	$affectedResourceId."' />\n";
}	}
my $part = $vars->{RESOURCE_ID_part};	my $part = $vars->{RESOURCE_ID_part};
if ($part eq 'All Parts' \|\| !$part) { $part=0; }	if ($part eq 'All Parts' \|\| !$part) { $part=0; }
Line 3400 sub render {	Line 3404 sub render {
my $classlist = Apache::loncoursedata::get_classlist();	my $classlist = Apache::loncoursedata::get_classlist();
my $username = $vars->{USER_NAME};	my $username = $vars->{USER_NAME};
# Chop off everything after the last colon (section)	# Chop off everything after the last colon (section)
$username = substr($username, 0, rindex($username, ':'));	my ($uname,$udom)=split(':',$username);
my $name = $classlist->{$username}->[6];	my $name = $classlist->{$uname.':'.$udom}->[6];
$result .= '<li>'.&mt('for [_1]',"<b>$name</b>").'</li>';	$result .= '<li>'.&mt('for [_1]',"<b>$name</b>").'</li>';
my ($uname, $udom) = split /:/, $vars->{USER_NAME};	my ($uname, $udom) = split /:/, $vars->{USER_NAME};
$result .= "<input type='hidden' name='uname' value='".	$result .= "<input type='hidden' name='uname' value='".
Line 3421 sub render {	Line 3425 sub render {

# Make the table appear	# Make the table appear
$result .= "\n<input type='hidden' value='true' name='prevvisit' />";	$result .= "\n<input type='hidden' value='true' name='prevvisit' />";
$result .= "\n<input type='hidden' value='all' name='pschp' />";
$result .= "\n<input type='hidden' value='$symb' name='pssymb' />";	$result .= "\n<input type='hidden' value='$symb' name='pssymb' />";
$result .= "\n<input type='hidden' value='$paramlevel' name='parmlev' />";	$result .= "\n<input type='hidden' value='$paramlevel' name='parmlev' />";

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

Removed from v.1.105
changed lines
	Added in v.1.108