version 1.107, 2005/07/07 04:19:20
|
version 1.109, 2005/07/08 17:32:06
|
Line 3336 sub render {
|
Line 3336 sub render {
|
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 3399 sub render {
|
Line 3402 sub render {
|
} else { |
} else { |
# FIXME: This is probably wasteful! Store the name! |
# FIXME: This is probably wasteful! Store the name! |
my $classlist = Apache::loncoursedata::get_classlist(); |
my $classlist = Apache::loncoursedata::get_classlist(); |
my $username = $vars->{USER_NAME}; |
my ($uname,$udom)=split(':',$vars->{USER_NAME}); |
# Chop off everything after the last colon (section) |
|
my ($uname,$udom)=split(':',$username); |
|
my $name = $classlist->{$uname.':'.$udom}->[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}; |
|
$result .= "<input type='hidden' name='uname' value='". |
$result .= "<input type='hidden' name='uname' value='". |
HTML::Entities::encode($uname,"'<>&\"") . "' />\n"; |
HTML::Entities::encode($uname,"'<>&\"") . "' />\n"; |
$result .= "<input type='hidden' name='udom' value='". |
$result .= "<input type='hidden' name='udom' value='". |
Line 3422 sub render {
|
Line 3422 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' />"; |
|
|