[system] / trunk / pg / macros / PG.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/PG.pl

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

Revision 4886 Revision 4887
368 my $number=shift; 368 my $number=shift;
369 $vecnum = 0; 369 $vecnum = 0;
370 my $row = shift; 370 my $row = shift;
371 my $col = shift; 371 my $col = shift;
372# my $label = "ArRaY"."$number"."["."$vecnum".","."$row".","."$col"."]"; 372# my $label = "ArRaY"."$number"."["."$vecnum".","."$row".","."$col"."]";
373 my $label = "ArRaY"."$number"."__"."$vecnum".":"."$row".":"."$col"."__"; 373 my $label = eval(q!$main::QUIZ_PREFIX."ArRaY"."$number"."__"."$vecnum".":"."$row".":"."$col"."__"!);
374 push(@PG_UNLABELED_ANSWERS,$label); 374 push(@PG_UNLABELED_ANSWERS,$label);
375 $label; 375 $label;
376} 376}
377 377
378sub NEW_ANS_ARRAY_NAME_EXTENSION { # this keeps track of the answers which are entered implicitly, 378sub NEW_ANS_ARRAY_NAME_EXTENSION { # this keeps track of the answers which are entered implicitly,
386 } 386 }
387 #FIXME change made to conform to HTML 4.01 standards. "Name" attributes can only contain 387 #FIXME change made to conform to HTML 4.01 standards. "Name" attributes can only contain
388 # alphanumeric characters, _ : and . 388 # alphanumeric characters, _ : and .
389 # Also need to make corresponding changes in PGmorematrixmacros. grep for ArRaY. 389 # Also need to make corresponding changes in PGmorematrixmacros. grep for ArRaY.
390 #my $label = "ArRaY"."$number"."["."$vecnum".","."$row".","."$col"."]"; 390 #my $label = "ArRaY"."$number"."["."$vecnum".","."$row".","."$col"."]";
391 my $label = "ArRaY"."$number"."__"."$vecnum".":"."$row".":"."$col"."__"; 391 my $label = eval(q!$main::QUIZ_PREFIX."ArRaY"."$number"."__"."$vecnum".":"."$row".":"."$col"."__"!);
392 eval(q!push(@main::KEPT_EXTRA_ANSWERS, $label)!);#put the labels into the hash to be caught later for recording purposes 392 eval(q!push(@main::KEPT_EXTRA_ANSWERS, $label)!);#put the labels into the hash to be caught later for recording purposes
393 $label; 393 $label;
394} 394}
395 395
396 396

Legend:
Removed from v.4886  
changed lines
  Added in v.4887

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9