[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.594 and 1.600

version 1.594, 2007/10/22 22:16:38 version 1.600, 2007/10/30 00:09:09
Line 2948  sub get_previous_attempt { Line 2948  sub get_previous_attempt {
   $lasthash{$key}=$returnhash{$version.':'.$key};    $lasthash{$key}=$returnhash{$version.':'.$key};
         }          }
       }        }
       $prevattempts='<table border="0" width="100%"><tr><td bgcolor="#777777">';        $prevattempts=&start_data_table().&start_data_table_header_row();
       $prevattempts.='<table border="0" width="100%"><tr bgcolor="#e6ffff"><td>History</td>';        $prevattempts.='<th>'.&mt('History').'</th>';
       foreach my $key (sort(keys(%lasthash))) {        foreach my $key (sort(keys(%lasthash))) {
  my ($ign,@parts) = split(/\./,$key);   my ($ign,@parts) = split(/\./,$key);
  if ($#parts > 0) {   if ($#parts > 0) {
   my $data=$parts[-1];    my $data=$parts[-1];
   pop(@parts);    pop(@parts);
   $prevattempts.='<td>Part '.join('.',@parts).'<br />'.$data.'&nbsp;</td>';    $prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.'&nbsp;</th>';
  } else {   } else {
   if ($#parts == 0) {    if ($#parts == 0) {
     $prevattempts.='<th>'.$parts[0].'</th>';      $prevattempts.='<th>'.$parts[0].'</th>';
Line 2964  sub get_previous_attempt { Line 2964  sub get_previous_attempt {
   }    }
  }   }
       }        }
         $prevattempts.=&end_data_table_header_row();
       if ($getattempt eq '') {        if ($getattempt eq '') {
  for ($version=1;$version<=$returnhash{'version'};$version++) {   for ($version=1;$version<=$returnhash{'version'};$version++) {
   $prevattempts.='</tr><tr bgcolor="#ffffe6"><td>Transaction '.$version.'</td>';    $prevattempts.=&start_data_table_row().
         '<td>'.&mt('Transaction [_1]',$version).'</td>';
     foreach my $key (sort(keys(%lasthash))) {      foreach my $key (sort(keys(%lasthash))) {
  my $value = &format_previous_attempt_value($key,   my $value = &format_previous_attempt_value($key,
    $returnhash{$version.':'.$key});     $returnhash{$version.':'.$key});
  $prevattempts.='<td>'.$value.'&nbsp;</td>';      $prevattempts.='<td>'.$value.'&nbsp;</td>';   
     }      }
     $prevattempts.=&end_data_table_row();
  }   }
       }        }
       $prevattempts.='</tr><tr bgcolor="#ffffe6"><td>Current</td>';        $prevattempts.=&start_data_table_row().'<td>'.&mt('Current').'</td>';
       foreach my $key (sort(keys(%lasthash))) {        foreach my $key (sort(keys(%lasthash))) {
  my $value = &format_previous_attempt_value($key,$lasthash{$key});   my $value = &format_previous_attempt_value($key,$lasthash{$key});
  if ($key =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}   if ($key =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}
  $prevattempts.='<td>'.$value.'&nbsp;</td>';   $prevattempts.='<td>'.$value.'&nbsp;</td>';
       }        }
       $prevattempts.='</tr></table></td></tr></table>';        $prevattempts.= &end_data_table_row().&end_data_table();
     } else {      } else {
       $prevattempts='Nothing submitted - no attempts.';        $prevattempts=
     &start_data_table().&start_data_table_row().
     '<td>'.&mt('Nothing submitted - no attempts.').'</td>'.
     &end_data_table_row().&end_data_table();
     }      }
   } else {    } else {
     $prevattempts='No data.';      $prevattempts=
     &start_data_table().&start_data_table_row().
     '<td>'.&mt('No data.').'</td>'.
     &end_data_table_row().&end_data_table();
   }    }
 }  }
   
Line 3160  sub pprmlink { Line 3169  sub pprmlink {
     if (!$symb) { $symb=&Apache::lonnet::symbread(); }      if (!$symb) { $symb=&Apache::lonnet::symbread(); }
     $symb=&escape($symb);      $symb=&escape($symb);
     if ($target) { $target="target=\"$target\""; }      if ($target) { $target="target=\"$target\""; }
     return '<a href="/adm/parmset?&command=set&'.      return '<a href="/adm/parmset?command=set&amp;'.
  'symb='.$symb.'&uname='.$uname.   'symb='.$symb.'&amp;uname='.$uname.
  '&udom='.$udom.'" '.$target.'>'.$text.'</a>';   '&amp;udom='.$udom.'" '.$target.'>'.$text.'</a>';
 }  }
 ##############################################  ##############################################
   
Line 4803  table.LC_descriptive_input td.LC_descrip Line 4812  table.LC_descriptive_input td.LC_descrip
   text-align: right;    text-align: right;
   font-weight: bold;    font-weight: bold;
 }  }
 table.LC_feedback_link {  div.LC_feedback_link {
     background: $feedback_link_bg;    background: white;
     width: 100%;  
 }  }
 span.LC_feedback_link {  span.LC_feedback_link {
     background: $feedback_link_bg;    background: $feedback_link_bg;
     font-size: larger;    font-size: larger;
   }
   span.LC_message_link {
     background: $feedback_link_bg;
     font-size: larger;
     position: absolute;
     right: 1em;
 }  }
   
 table.LC_prior_tries {  table.LC_prior_tries {
Line 4986  span.LC_role_level { Line 5002  span.LC_role_level {
 div.LC_left_float {  div.LC_left_float {
   float: left;    float: left;
   padding-right: 5%;    padding-right: 5%;
   padding:bottom: 4px;    padding-bottom: 4px;
 }  }
   
 div.LC_clear_float_header {  div.LC_clear_float_header {
   padding:bottom: 2px;    padding-bottom: 2px;
 }  }
   
 div.LC_clear_float_footer {  div.LC_clear_float_footer {
   padding:top: 10px;    padding-top: 10px;
   clear: both;    clear: both;
 }  }
   
   
   div.LC_grade_show_user {
     margin-top: 20px;
     border: 1px solid black;
   }
   div.LC_grade_user_name {
     background: #DDDDEE;
     border-bottom: 1px solid black;
     font: bold large $sans;
   }
   div.LC_grade_show_user_odd_row div.LC_grade_user_name {
     background: #DDEEDD;
   }
   
   div.LC_grade_show_problem,
   div.LC_grade_submissions,
   div.LC_grade_message_center,
   div.LC_grade_info_links,
   div.LC_grade_assign {
     margin: 5px;
     width: 99%;
     background: #FFFFFF;
   }
   div.LC_grade_show_problem_header,
   div.LC_grade_submissions_header,
   div.LC_grade_message_center_header,
   div.LC_grade_assign_header {
     font: bold large $sans;
   }
   div.LC_grade_show_problem_problem,
   div.LC_grade_submissions_body,
   div.LC_grade_message_center_body,
   div.LC_grade_assign_body {
     border: 1px solid black;
     width: 99%;
     background: #FFFFFF;
   }
   span.LC_grade_check_note {
     font: normal medium $sans;
     display: inline;
     position: absolute;
     right: 1em;
   }
   
   
   div.LC_edit_problem_header {
     font: normal medium $sans;
   }
   div.LC_edit_problem_header,
   div.LC_edit_problem_header div {
     margin-top: 5px;
   }
   div.LC_edit_problem_header_title {
     font: larger medium $sans;
     background: $tabbg;
   }
   hr.LC_edit_problem_divide {
     color: $tabbg;
     background-color: $tabbg;
     height: 3px;
     border: 0px;
   }
 END  END
 }  }
   
Removed from v.1.594  
changed lines
  Added in v.1.600

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