|
version 1.383, 2006/11/03 20:04:08
|
version 1.384, 2006/12/12 18:15:53
|
|
Line 1513 sub gradeBox {
|
Line 1513 sub gradeBox {
|
| $result.='<select name="GD_SEL'.$counter.'_'.$partid.'" '. |
$result.='<select name="GD_SEL'.$counter.'_'.$partid.'" '. |
| 'onChange="javascript:clearRadBox(this.form,\''.$counter.'_'.$partid.'\')" >'."\n"; |
'onChange="javascript:clearRadBox(this.form,\''.$counter.'_'.$partid.'\')" >'."\n"; |
| if ($$record{'resource.'.$partid.'.solved'} eq 'excused') { |
if ($$record{'resource.'.$partid.'.solved'} eq 'excused') { |
| $result.='<option> </option>'. |
$result.='<option></option>'. |
| '<option selected="on">excused</option>'; |
'<option selected="on">excused</option>'; |
| } else { |
} else { |
| $result.='<option selected="on"> </option>'. |
$result.='<option selected="on"></option>'. |
| '<option>excused</option>'; |
'<option>excused</option>'; |
| } |
} |
| $result.='<option>reset status</option></select>'."\n"; |
$result.='<option>reset status</option></select>'."\n"; |
|
Line 1758 KEYWORDS
|
Line 1758 KEYWORDS
|
| # Load the other essays for similarity check |
# Load the other essays for similarity check |
| # |
# |
| my (undef,undef,$essayurl) = &Apache::lonnet::decode_symb($symb); |
my (undef,undef,$essayurl) = &Apache::lonnet::decode_symb($symb); |
| my ($adom,$aname,$apath)=($essayurl=~/^(\w+)\/(\w+)\/(.*)$/); |
my ($adom,$aname,$apath)=($essayurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\/(.*)$/); |
| $apath=&escape($apath); |
$apath=&escape($apath); |
| $apath=~s/\W/\_/gs; |
$apath=~s/\W/\_/gs; |
| %oldessays=&Apache::lonnet::dump('nohist_essay_'.$apath,$adom,$aname); |
%oldessays=&Apache::lonnet::dump('nohist_essay_'.$apath,$adom,$aname); |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework