![]() ![]() | ![]() |
version 1.1112, 2011/06/07 17:42:29 | version 1.1113, 2011/06/11 17:43:30 |
---|---|
Line 4812 sub tmpget { | Line 4812 sub tmpget { |
return %returnhash; | return %returnhash; |
} | } |
# ------------------------------------------------------------ tmpget interface | # ------------------------------------------------------------ tmpdel interface |
sub tmpdel { | sub tmpdel { |
my ($token,$server)=@_; | my ($token,$server)=@_; |
if (!defined($server)) { $server = $perlvar{'lonHostID'}; } | if (!defined($server)) { $server = $perlvar{'lonHostID'}; } |