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

Diff for /loncom/interface/loncommon.pm between versions 1.1169 and 1.1171

version 1.1169, 2013/12/30 01:56:41 version 1.1171, 2014/01/21 14:38:51
Line 3846  sub get_previous_attempt { Line 3846  sub get_previous_attempt {
                         if (($data eq 'award') || ($data eq 'awarddetail')) {                          if (($data eq 'award') || ($data eq 'awarddetail')) {
                             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>'.&HTML::Entities::encode($value, '"<>&').'&nbsp;</td>';
                         } else {                          } else {
                             $prevattempts.='<td>&nbsp;</td>';                              $prevattempts.='<td>&nbsp;</td>';
                         }                          }
Line 3854  sub get_previous_attempt { Line 3854  sub get_previous_attempt {
                         if ($key =~ /\./) {                          if ($key =~ /\./) {
                             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>'.&HTML::Entities::encode($value, '"<>&').'&nbsp;</td>';
                         } else {                          } else {
                             $prevattempts.='<td>&nbsp;</td>';                              $prevattempts.='<td>&nbsp;</td>';
                         }                          }
Line 3865  sub get_previous_attempt { Line 3865  sub get_previous_attempt {
                     next if ($key =~ /\.foilorder$/);                      next if ($key =~ /\.foilorder$/);
     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>'.&HTML::Entities::encode($value, '"<>&').'&nbsp;</td>';
         }          }
             }              }
     $prevattempts.=&end_data_table_row();      $prevattempts.=&end_data_table_row();
Line 3890  sub get_previous_attempt { Line 3890  sub get_previous_attempt {
                       if ($key =~/$regexp$/ && (defined &$gradesub)) {                        if ($key =~/$regexp$/ && (defined &$gradesub)) {
                           $value = &$gradesub($value);                            $value = &$gradesub($value);
                       }                        }
                       $prevattempts.='<td>'.$value.'&nbsp;</td>';                        $prevattempts.='<td>'. &HTML::Entities::encode($value, '"<>&').'&nbsp;</td>';
                   } else {                    } else {
                       $prevattempts.='<td>&nbsp;</td>';                        $prevattempts.='<td>&nbsp;</td>';
                   }                    }
Line 3899  sub get_previous_attempt { Line 3899  sub get_previous_attempt {
                   if ($key =~/$regexp$/ && (defined &$gradesub)) {                    if ($key =~/$regexp$/ && (defined &$gradesub)) {
                       $value = &$gradesub($value);                        $value = &$gradesub($value);
                   }                    }
                   $prevattempts.='<td>'.$value.'&nbsp;</td>';                    $prevattempts.='<td>'.&HTML::Entities::encode($value, '"<>&').'&nbsp;</td>';
               }                }
           } else {            } else {
       my $value = &format_previous_attempt_value($key,$lasthash{$key});        my $value = &format_previous_attempt_value($key,$lasthash{$key});
       if ($key =~/$regexp$/ && (defined &$gradesub)) {        if ($key =~/$regexp$/ && (defined &$gradesub)) {
                   $value = &$gradesub($value);                    $value = &$gradesub($value);
               }                }
       $prevattempts.='<td>'.$value.'&nbsp;</td>';        $prevattempts.='<td>'.&HTML::Entities::encode($value, '"<>&').'&nbsp;</td>';
           }            }
       }        }
       $prevattempts.= &end_data_table_row().&end_data_table();        $prevattempts.= &end_data_table_row().&end_data_table();
Line 14006  sub construct_course { Line 14006  sub construct_course {
                    'categories',                     'categories',
                    'internal.uniquecode'],                     'internal.uniquecode'],
                    $$crsudom,$$crsunum);                     $$crsudom,$$crsunum);
           if ($args->{'textbook'}) {
               $cenv{'internal.textbook'} = $args->{'textbook'};
           }
     }      }
   
 #  #
Removed from v.1.1169  
changed lines
  Added in v.1.1171

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