[system] / trunk / pg / lib / PGcore.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/PGcore.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 6404 Revision 6817
177 showHintLimit => 0, 177 showHintLimit => 0,
178 solutionExists => 0, 178 solutionExists => 0,
179 WARNING_messages => [], 179 WARNING_messages => [],
180 DEBUG_messages => [], 180 DEBUG_messages => [],
181 recordSubmittedAnswers => 1, 181 recordSubmittedAnswers => 1,
182 refreshCAchedImages => 0, 182 refreshCachedImages => 0,
183# ANSWER_ENTRY_ORDER => [], # may not be needed if we ue Tie:IxHash 183# ANSWER_ENTRY_ORDER => [], # may not be needed if we ue Tie:IxHash
184 comment => '', # implement as array? 184 comment => '', # implement as array?
185 185
186 186
187 187
456 my $ans_label = shift; # name of the PGanswer group holding this array 456 my $ans_label = shift; # name of the PGanswer group holding this array
457 my $row_num = shift; 457 my $row_num = shift;
458 my $col_num = shift; 458 my $col_num = shift;
459 my %options = @_; 459 my %options = @_;
460 my $vec_num = (defined $options{vec_num})?$options{vec_num}: 0 ; 460 my $vec_num = (defined $options{vec_num})?$options{vec_num}: 0 ;
461 $self->{QUIZ_PREFIX}.$ans_label.'__'.$vec_num.':'.$row_num.':'.$col_num.'__'; 461 $self->{QUIZ_PREFIX}.$ans_label.'__'.$vec_num.'-'.$row_num.'-'.$col_num.'__';
462} 462}
463sub new_answer_name { # bit of a legacy item 463sub new_answer_name { # bit of a legacy item
464 &new_label; 464 &new_label;
465} 465}
466 466

Legend:
Removed from v.6404  
changed lines
  Added in v.6817

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9