[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 6505 Revision 6817
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.6505  
changed lines
  Added in v.6817

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9