root/devel/mod/file/lib/select_folder.php

<?php

function viewfolder($folderid, $userid, $level, $selected = -1) {
            
    $prefix = "";
    for ($i = 0; $i < $level; $i++) {
        $prefix .= "&gt;";
    }
    $fileprefix = $prefix . "&gt;";
    
    $folders = get_records_select('file_folders',"files_owner = ? AND parent = ?",array($userid,$folderid));
    if ($folderid == -1) {
        $body = "<option value=\"-1\" ";
        if ($selected == -1) {
            $body .= "selected = \"selected\"";
        }
        $body .= ">Root</option>";
    } else {
        $current_folder = get_record('file_folders','files_owner',$userid,'ident',$folderid);
        $name = (stripslashes($current_folder->name));
        $ident = $current_folder->ident;
        if ($ident == $selected) {
            $selectstring = "selected=\"selected\"";
        } else {
            $selectstring = "";
        }
        $body = <<< END
            <option value="{$ident}" {$selectstring} >{$prefix} {$name} </option>
END;
    }            
    if (!empty($folders)) {
        foreach($folders as $folder) {
            $body .= viewfolder($folder->ident, $userid, $level + 1,$selected);
        }
    }
    return $body;
}

$selectname = $parameter[0];
$userid = $parameter[1];
$folder = $parameter[2];
        
$run_result .= "<select name=\"$selectname\">";
$run_result .= viewfolder(-1, $userid, 0, $folder);
$run_result .= "</select>";
        
?>