\n";
print " $text{'edit_name'} | \n";
print " | \n";
print " | \n";
if ($profile->{'type'} == 1) {
# Single ISO options
print " $text{'edit_iso'} | \n";
printf " %s | \n",
$profile->{'iso'}, &file_chooser_button("iso");
print " \n";
print " $text{'edit_isosize'} | \n";
printf " %s\n",
$profile->{'isosize'} ? 'checked' : '', $text{'yes'};
printf " %s | \n",
$profile->{'isosize'} ? '' : 'checked', $text{'no'};
}
elsif ($profile->{'type'} == 2) {
# Multi-directory options
print " $text{'edit_dirs'} | \n";
print "\n";
print " | $text{'edit_rock'} | \n";
printf " %s\n",
$profile->{'rock'} == 2 ? 'checked' : '', $text{'edit_rock2'};
printf " %s\n",
$profile->{'rock'} == 1 ? 'checked' : '', $text{'yes'};
printf " %s | \n",
$profile->{'rock'} == 0 ? 'checked' : '', $text{'no'};
print " $text{'edit_joliet'} | \n";
printf " %s\n",
$profile->{'joliet'} ? 'checked' : '', $text{'yes'};
printf " %s | \n",
$profile->{'joliet'} ? '' : 'checked', $text{'no'};
print "$text{'edit_long'} | \n";
printf " %s\n",
$profile->{'long'} ? 'checked' : '', $text{'yes'};
printf " %s | \n",
$profile->{'long'} ? '' : 'checked', $text{'no'};
print " $text{'edit_netatalk'} | \n";
printf " %s\n",
$profile->{'netatalk'} ? 'checked' : '', $text{'yes'};
printf " %s | \n",
$profile->{'netatalk'} ? '' : 'checked', $text{'no'};
print "$text{'edit_cap'} | \n";
printf " %s\n",
$profile->{'cap'} ? 'checked' : '', $text{'yes'};
printf " %s | \n",
$profile->{'cap'} ? '' : 'checked', $text{'no'};
print " $text{'edit_trans'} | \n";
printf " %s\n",
$profile->{'trans'} ? 'checked' : '', $text{'yes'};
printf " %s | \n",
$profile->{'trans'} ? '' : 'checked', $text{'no'};
print "$text{'edit_volid'} | \n";
printf " | \n",
$profile->{'volid'};
}
elsif ($profile->{'type'} == 3) {
# MP3 files or directories of them
print " $text{'edit_mp3s'} | \n";
print "\n";
for($i=0; $profile->{"source_".($i-4)} || $i < 4; $i++) {
printf " %s \n",
$i, $profile->{"source_$i"},
&file_chooser_button("source_$i");
}
print " | \n";
}
elsif ($profile->{'type'} == 4) {
# Duplicating a CD
print " $text{'edit_sdev'} | \n";
print "\n";
printf " | \n",
$found ? "" : $profile->{'sdev'};
print " $text{'edit_srcdrv'} | \n";
print " | \n";
print " $text{'edit_dstdrv'} | \n";
print " | \n";
print " $text{'edit_fly'} | \n";
printf " %s\n",
$profile->{'fly'} ? "checked" : "", $text{'edit_fly1'};
printf " %s | \n",
$profile->{'fly'} ? "" : "checked", $text{'edit_fly0'};
}
print " |