| 32 |
|
# print out informational |
| 33 |
|
my $title=$userquery->title(); |
| 34 |
|
if ( $title ne "" ) { |
| 35 |
< |
print "-"x80; |
| 35 |
> |
print "-"x50; |
| 36 |
|
print "\n"; |
| 37 |
|
print $title."\n"; |
| 38 |
< |
print "-"x80; |
| 38 |
> |
print "-"x50; |
| 39 |
|
print "\n"; |
| 40 |
|
} |
| 41 |
|
print $userquery->intro(); |
| 54 |
|
my $query=shift; |
| 55 |
|
|
| 56 |
|
# -- informational for each query |
| 57 |
< |
print "+"x80; |
| 57 |
> |
print "+"x30; |
| 58 |
|
print $userquery->querymessage($query)."\n"; |
| 59 |
|
|
| 60 |
|
# -- ship off to the correct routine based on type |
| 121 |
|
last; |
| 122 |
|
} |
| 123 |
|
# Deal with alternative value |
| 124 |
< |
if ( $menuchoice == $num ) { |
| 125 |
< |
$rv=$self->basic($prompt); |
| 126 |
< |
} |
| 127 |
< |
elsif ( !defined $menuchoice ) { |
| 124 |
> |
if ( !defined $menuchoice ) { |
| 125 |
|
print "Cancelled\n"; |
| 126 |
|
$rv=undef; |
| 127 |
|
} |
| 128 |
+ |
elsif ( $menuchoice == $num ) { |
| 129 |
+ |
$rv=$self->basic($prompt); |
| 130 |
+ |
} |
| 131 |
|
else { |
| 132 |
|
$rv=$options[$menuchoice-1]; |
| 133 |
|
print( $rv." selected\n"); |
