version 1.111, 2006/02/20 21:43:16
|
version 1.112, 2006/02/20 22:57:41
|
Line 375 sub webgrade_standard_info {
|
Line 375 sub webgrade_standard_info {
|
my ($version)=&get_version(); |
my ($version)=&get_version(); |
my (undef,undef,$udom,$uname) = &Apache::lonxml::whichuser(); |
my (undef,undef,$udom,$uname) = &Apache::lonxml::whichuser(); |
my $file_url = '/uploaded/'.$udom.'/'.$uname.'/portfolio/'; |
my $file_url = '/uploaded/'.$udom.'/'.$uname.'/portfolio/'; |
my $file_list="<ul>\n"; |
my $file_list="<ul class=\"handininfo\">\n"; |
foreach my $partial_file (split(',',$Apache::lonhomework::history{"resource.$version.0.bridgetask.portfiles"})) { |
foreach my $partial_file (split(',',$Apache::lonhomework::history{"resource.$version.0.bridgetask.portfiles"})) { |
my $file=$file_url.$partial_file; |
my $file=$file_url.$partial_file; |
$file=~s|/+|/|g; |
$file=~s|/+|/|g; |
Line 391 sub webgrade_standard_info {
|
Line 391 sub webgrade_standard_info {
|
); |
); |
|
|
my $result=<<INFO; |
my $result=<<INFO; |
<div class="handininfo"> |
|
<div class="maincontrols"> |
<div class="maincontrols"> |
<input type="submit" name="next" value="$lt{'done'}" /> |
<input type="submit" name="next" value="$lt{'done'}" /> |
<input type="submit" name="stop" value="$lt{'stop'}" /> |
<input type="submit" name="stop" value="$lt{'stop'}" /> |
</div> |
</div> |
$file_list |
$file_list |
</div> |
|
INFO |
INFO |
return $result; |
return $result; |
} |
} |
Line 1772 sub get_instance {
|
Line 1770 sub get_instance {
|
foreach my $id (@{$dimension{$instance.'.criterias'}}) { |
foreach my $id (@{$dimension{$instance.'.criterias'}}) { |
my $link='criteria_'.$instance.'_'.$id; |
my $link='criteria_'.$instance.'_'.$id; |
my $status=$Apache::lonhomework::history{"resource.$version.0.$dim.$instance.$id.status"}; |
my $status=$Apache::lonhomework::history{"resource.$version.0.$dim.$instance.$id.status"}; |
$result.='<div id="'.$link.'">'."\n". |
$result.='<div class="criteria" id="'.$link.'">'."\n". |
'<a name="'.$link.'" />'."\n". |
'<a name="'.$link.'" />'."\n". |
'<a name="next_'.$last_link.'" />'."\n". |
'<a name="next_'.$last_link.'" />'."\n". |
'<div class="criteriatext">'."\n"; |
'<div class="criteriatext">'."\n"; |
Line 1786 sub get_instance {
|
Line 1784 sub get_instance {
|
'<label class="pass"><input type="radio" name="HWVAL_'.$link.'" value="pass" '.($status eq 'pass' ? 'checked="checked"':'').' />'.&mt('Pass').'</label>'."\n". |
'<label class="pass"><input type="radio" name="HWVAL_'.$link.'" value="pass" '.($status eq 'pass' ? 'checked="checked"':'').' />'.&mt('Pass').'</label>'."\n". |
'<label class="review"><input type="radio" name="HWVAL_'.$link.'" value="review" '.($status eq 'review' ? 'checked="checked"':'').' />'.&mt('Review').'</label>'."\n". |
'<label class="review"><input type="radio" name="HWVAL_'.$link.'" value="review" '.($status eq 'review' ? 'checked="checked"':'').' />'.&mt('Review').'</label>'."\n". |
'</div>'."\n". |
'</div>'."\n". |
'<label class="comment">'.&mt('Additional Comment for Student').'</label>'."\n". |
'<label class="comment">'.&mt('Additional Comment for Student')."\n". |
'<textarea class="comment_area" name="HWVAL_comment_'.$link.'">'.&HTML::Entities::encode($Apache::lonhomework::history{"resource.$version.0.$dim.$instance.$id.comment"}).'</textarea>'."\n". |
'<textarea class="comment_area" name="HWVAL_comment_'.$link.'">'.&HTML::Entities::encode($Apache::lonhomework::history{"resource.$version.0.$dim.$instance.$id.comment"}).'</textarea>'."\n". |
'</label>'."\n". |
'</label>'."\n". |
'<ul class="navbuttons">'."\n". |
'<ul class="navbuttons">'."\n". |