version 1.37, 2009/02/16 13:52:04
|
version 1.38, 2009/04/04 21:46:02
|
Line 102 ENDSCRIPT
|
Line 102 ENDSCRIPT
|
'<h1>'.$url.'</h1>'); |
'<h1>'.$url.'</h1>'); |
# ------------------ This is trying to select. Provide buttons and tie %selhash |
# ------------------ This is trying to select. Provide buttons and tie %selhash |
if ($env{'form.forceselect'}) { $r->print(<<ENDSELECT); |
if ($env{'form.forceselect'}) { $r->print(<<ENDSELECT); |
<form name=fileattr><input type=hidden name=acts value=''> |
<form name="fileattr"><input type="hidden" name="acts" value="" /> |
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
<input type="button" name="close" value="CLOSE" onClick="self.close()" /> |
<input type="button" name="groupimport" value='GROUP IMPORT' |
<input type="button" name="groupimport" value="GROUP IMPORT" |
onClick="javascript:select_group()"> |
onClick="javascript:select_group()" /> |
</form> |
</form> |
ENDSELECT |
ENDSELECT |
my $diropendb = |
my $diropendb = |
Line 151 ENDSELECT
|
Line 151 ENDSELECT
|
if ($successtied) { |
if ($successtied) { |
my $checked=''; |
my $checked=''; |
if ($selhash{'store_'.$url}) { |
if ($selhash{'store_'.$url}) { |
$checked=" checked"; |
$checked=' checked="checked"'; |
} |
} |
$selhash{"pre_${idx}_link"}=$url; |
$selhash{"pre_${idx}_link"}=$url; |
$selhash{"pre_${idx}_title"}=$title; |
$selhash{"pre_${idx}_title"}=$title; |