function genpack($set)
{
$pack = array();
$card = 0;
$ndx = -1;
$list = setList($set);
drShuffle($list);
while ($card < 1) {
$ndx++;
if ($list[$ndx]["isw"] == 1 && $list[$ndx]["name"] != "") {
$pack[$card] = $list[$ndx]["name"];
$card++;
}
}
while ($card < 2) {
$ndx++;
if ($list[$ndx]["isg"] == 1 && $list[$ndx]["name"] != "") {
$pack[$card] = $list[$ndx]["name"];
$card++;
}
}
while ($card < 3) {
$ndx++;
if ($list[$ndx]["isu"] == 1 && $list[$ndx]["name"] != "") {
$pack[$card] = $list[$ndx]["name"];
$card++;
}
}
while ($card < 4) {
$ndx++;
if ($list[$ndx]["isr"] == 1 && $list[$ndx]["name"] != "") {
$pack[$card] = $list[$ndx]["name"];
$card++;
}
}
while ($card < 5) {
$ndx++;
if ($list[$ndx]["isb"] == 1 && $list[$ndx]["name"] != "") {
$pack[$card] = $list[$ndx]["name"];
$card++;
}
}
while ($card < 11) {
if ($list[$ndx]["name"] != "") {
$ndx++;
$pack[$card] = $list[$ndx]["name"];
$card++;
}
}
return $pack;
}
echo "<script> alert('" . $writer->getError() . "'); window.history.go(-1); </script>\n";
exit;
}
mosRedirect("index2.php?option=com_chordbase&task=writerList");
break;
case "removeWriter":
remove($cid, "writers", "writer_id", "writerList");
break;
case "publishWriter":
publish($cid, 1, "writers", "writerList", "published", "writer_id");
break;
case "unpublishWriter":
publish($cid, 0, "writers", "writerList", "published", "writer_id");
break;
case "setList":
setList();
break;
case "newSet":
HTML_chordbase::cb_header("Sets");
$set = new cbSet($database, "#__cb_");
$set->published = 1;
$set->form("index2.php?option=com_chordbase&task=saveSet");
break;
case "editSet":
HTML_chordbase::cb_header("Set Editor");
$set = new cbSet($database, "#__cb_");
$set->load($set_id);
$set->form("index2.php?option=com_chordbase&task=saveSet");
break;
case "saveSet":
$set = new cbSet($database, "#__cb_");
