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

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

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

Revision 1764 Revision 1765
24 24
25sub displaySelectModeLine_string 25sub displaySelectModeLine_string
26 # called from probSet.pl 26 # called from probSet.pl
27 # displays the option line for selecting display modes 27 # displays the option line for selecting display modes
28{ 28{
29 my ($displayMode) =@_ ;
30 $displayMode = $Global::htmlModeDefault unless(defined($displayMode));
29 # If the system is set up with only one display mode, there is 31 # If the system is set up with only one display mode, there is
30 # no need to display a choice - use the default 32 # no need to display a choice - use the default
31 if(scalar(@{$Global::available_mode_list})<2) { 33 if(scalar(@{$Global::available_mode_list})<2) {
32 return('<input type="hidden" name="Mode" value="'. 34 return('<input type="hidden" name="Mode" value="'.
33 $Global::htmldisplayModeDefault .'">'); 35 $displayMode .'">');
34 } 36 }
35 my ($displayMode) =@_ ;
36 my $out = "Display Mode: <BR>"; 37 my $out = "Display Mode: <BR>";
37 38
38# A list of the available modes. 39# A list of the available modes.
39 my $mode_list = $Global::available_mode_list; ## ref to a list of available modes 40 my $mode_list = $Global::available_mode_list; ## ref to a list of available modes
40 ## The format is [internal symbol, external name] 41 ## The format is [internal symbol, external name]
53 my $j; 54 my $j;
54 for $j (0..(scalar(@{$mode_list})-1)) { 55 for $j (0..(scalar(@{$mode_list})-1)) {
55 push @{$mode_list->[$j]},''; 56 push @{$mode_list->[$j]},'';
56 } 57 }
57 58
58 if (! defined($displayMode) ) {$displayMode = $Global::htmldisplayModeDefault;} 59 if (! defined($displayMode) ) {$displayMode = $Global::htmlModeDefault;}
59 60
60 61
61 my $found = 0; 62 my $found = 0;
62# Search through all modes to match for displayMode 63# Search through all modes to match for displayMode
63# If we don't find one, found=0 will trigger warn message below 64# If we don't find one, found=0 will trigger warn message below

Legend:
Removed from v.1764  
changed lines
  Added in v.1765

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9