version 1.148, 2002/01/09 09:50:59
|
version 1.149, 2002/01/17 17:42:34
|
Line 1055 ENDFOOTER
|
Line 1055 ENDFOOTER
|
return $result; |
return $result; |
} |
} |
|
|
sub editbutton { |
|
my ($result) = @_; |
|
my $button=(<<EDITBUTTON); |
|
<form method="post"> |
|
<input type="submit" name="showmode" value="Edit" /> |
|
</form> |
|
EDITBUTTON |
|
$result=~s/(\<\/body\>)/$button/is; |
|
return $result; |
|
} |
|
|
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
Line 1126 ENDNOTFOUND
|
Line 1115 ENDNOTFOUND
|
if ($ENV{'form.showmode'} eq 'Edit') { |
if ($ENV{'form.showmode'} eq 'Edit') { |
$result='<html><body bgcolor="#FFFFFF"></body></html>'; |
$result='<html><body bgcolor="#FFFFFF"></body></html>'; |
$result=&inserteditinfo($result,$filecontents); |
$result=&inserteditinfo($result,$filecontents); |
} else { |
|
$result = &editbutton($result); |
|
} |
} |
} |
} |
|
|