version 1.47, 2006/07/28 20:01:26
|
version 1.48, 2006/07/31 18:39:15
|
Line 431 sub hidden {
|
Line 431 sub hidden {
|
my ($sel,$title,$filelink) = @_; |
my ($sel,$title,$filelink) = @_; |
my $string = '<input type="hidden" name="title'.$sel.'" value="'.$title. |
my $string = '<input type="hidden" name="title'.$sel.'" value="'.$title. |
'" />'; |
'" />'; |
$filelink=~s/^\/ext\//http\:\/\//; |
$filelink=~s|^/ext/|http://|; |
$string .= '<input type="hidden" name="filelink'.$sel.'" value="'. |
$string .= '<input type="hidden" name="filelink'.$sel.'" value="'. |
$filelink.'" />'; |
$filelink.'" />'; |
return $string; |
return $string; |