| 47 |
|
# set our cache area - and ask user if not |
| 48 |
|
$self->{defaultcache}=$self->inputvalue('cache'); |
| 49 |
|
while ( ! defined $self->{defaultcache} ) { |
| 50 |
< |
$self->asksingleinputvalue( "cache", |
| 50 |
> |
$self->{UserQuery}->setquery( "basic", "cache"); |
| 51 |
> |
$self->{UserQuery}->askuser( |
| 52 |
|
"No cache directory Has Been Specified - Please enter a". |
| 53 |
|
"suitable directory to use as a cache"); |
| 54 |
< |
$self->{defaultcache}=$self->inputvalue('cache'); |
| 54 |
> |
$self->setcache($self->{UserQuery}->getparam("cache")); |
| 55 |
|
} |
| 56 |
|
|
| 57 |
|
# Determine the UserInterface |
| 65 |
|
return $self; |
| 66 |
|
} |
| 67 |
|
|
| 68 |
+ |
sub setcache { |
| 69 |
+ |
my $self=shift; |
| 70 |
+ |
my $cache=shift; |
| 71 |
+ |
|
| 72 |
+ |
$self->{defaultcache}=$cache; |
| 73 |
+ |
} |
| 74 |
+ |
|
| 75 |
|
sub newdoc { |
| 76 |
|
my $self=shift; |
| 77 |
|
my $filename=shift; |
