<?php // $Id$
      // For most people, just lists the course categories
      // Allows the admin to create, delete and rename course categories

    require_once("../config.php");
    require_once("lib.php");

    $categoryedit = optional_param('categoryedit', -1,PARAM_BOOL);
    $delete   = optional_param('delete',0,PARAM_INT);
    $hide     = optional_param('hide',0,PARAM_INT);
    $show     = optional_param('show',0,PARAM_INT);
    $move     = optional_param('move',0,PARAM_INT);
    $moveto   = optional_param('moveto',-1,PARAM_INT);
    $moveup   = optional_param('moveup',0,PARAM_INT);
    $movedown = optional_param('movedown',0,PARAM_INT);

    if ($CFG->forcelogin) {
        require_login();
    }

    if (!$site = get_site()) {
        print_error('siteisnotdefined', 'debug');
    }

    $systemcontext = get_context_instance(CONTEXT_SYSTEM);

    if (update_category_button()) {
        if ($categoryedit !== -1) {
            $USER->categoryediting = $categoryedit;
        }
        $adminediting = !empty($USER->categoryediting);
    } else {
        $adminediting = false;
    }

    $stradministration = get_string('administration');
    $strcategories = get_string('categories');
    $strcategory = get_string('category');
    $strcourses = get_string('courses');
    $stredit = get_string('edit');
    $strdelete = get_string('delete');
    $straction = get_string('action');


/// Unless it's an editing admin, just print the regular listing of courses/categories
    if (!$adminediting) {

    /// Print form for creating new categories
        $countcategories = $DB->count_records('course_categories');

        if ($countcategories > 1 || ($countcategories == 1 && $DB->count_records('course') > 200)) {
            $strcourses = get_string('courses');
            $strcategories = get_string('categories');

            $navlinks = array();
            $navlinks[] = array('name'=>$strcategories,'link'=>'','type'=>'misc');
            $navigation = build_navigation($navlinks);
            print_header("$site->shortname: $strcategories", $strcourses, $navigation, '', '', true, update_category_button());
            print_heading($strcategories);
            echo skip_main_destination();
            print_box_start('categorybox');
            print_whole_category_list();
            print_box_end();
            print_course_search();
        } else {
            $strfulllistofcourses = get_string('fulllistofcourses');
            print_header("$site->shortname: $strfulllistofcourses", $strfulllistofcourses,
                    build_navigation(array(array('name'=>$strfulllistofcourses, 'link'=>'','type'=>'misc'))),
                         '', '', true, update_category_button());
            echo skip_main_destination();
            print_box_start('courseboxes');
            print_courses(0);
            print_box_end();
        }

        echo '<div class="buttons">';
        if (has_capability('moodle/course:create', $systemcontext)) {
        /// Print link to create a new course
        /// Get the 1st available category
            $options = array('category' => $CFG->defaultrequestcategory);
            print_single_button('edit.php', $options, get_string('addnewcourse'), 'get');
        }
        print_course_request_buttons($systemcontext);
        echo '</div>';
        print_footer();
        exit;
    }
/// Everything else is editing on mode.

/// Delete a category.
    if (!empty($delete) and confirm_sesskey()) {
        if (!$deletecat = $DB->get_record('course_categories', array('id'=>$delete))) {
            print_error('invalidcategoryid');
        }
        $context = get_context_instance(CONTEXT_COURSECAT, $delete);
        require_capability('moodle/category:manage', $context);
        require_capability('moodle/category:manage', get_category_or_system_context($deletecat->parent));

        $heading = get_string('deletecategory', '', format_string($deletecat->name));
        require_once('delete_category_form.php');
        $mform = new delete_category_form(null, $deletecat);
        $mform->set_data(array('delete'=>$delete));

        if ($mform->is_cancelled()) {
            redirect('index.php');

        } else if (!$data= $mform->get_data()) {
            require_once($CFG->libdir . '/questionlib.php');
            print_category_edit_header();
            print_heading($heading);
            $mform->display();
            admin_externalpage_print_footer();
            exit();
        }

        print_category_edit_header();
        print_heading($heading);

        if ($data->fulldelete) {
            category_delete_full($deletecat, true);
        } else {
            category_delete_move($deletecat, $data->newparent, true);
        }

        // If we deleted $CFG->defaultrequestcategory, make it point somewhere else.
        if ($delete == $CFG->defaultrequestcategory) {
            set_config('defaultrequestcategory', $DB->get_field('course_categories', 'MIN(id)', array('parent'=>0)));
        }

        print_continue('index.php');

        admin_externalpage_print_footer();
        die;
    }

/// Print headings
    print_category_edit_header();
    print_heading($strcategories);

/// Create a default category if necessary
    if (!$categories = get_categories()) {    /// No category yet!
        // Try and make one
        $tempcat = new object();
        $tempcat->name = get_string('miscellaneous');
        if (!$tempcat->id = $DB->insert_record('course_categories', $tempcat)) {
            print_error('cannotsetupcategory');
        }
        $tempcat->context = get_context_instance(CONTEXT_COURSECAT, $tempcat->id);
        mark_context_dirty('/'.SYSCONTEXTID);
    }

/// Move a category to a new parent if required
    if (!empty($move) and ($moveto >= 0) and confirm_sesskey()) {
        if ($cattomove = $DB->get_record('course_categories', array('id'=>$move))) {
            require_capability('moodle/category:manage', get_category_or_system_context($cattomove->parent));
            if ($cattomove->parent != $moveto) {
                $newparent = $DB->get_record('course_categories', array('id'=>$moveto));
                require_capability('moodle/category:manage', get_category_or_system_context($moveto));
                if (!move_category($cattomove, $newparent)) {
                    print_error('cannotupdatecategory', '', '', format_string($cattomove->name));
                }
            }
        }
    }

/// Hide or show a category
    if ((!empty($hide) or !empty($show)) and confirm_sesskey()) {
        if (!empty($hide)) {
            $tempcat = $DB->get_record('course_categories', array('id'=>$hide));
            $visible = 0;
        } else {
            $tempcat = $DB->get_record('course_categories', array('id'=>$show));
            $visible = 1;
        }
        require_capability('moodle/category:manage', get_category_or_system_context($tempcat->parent));
        if ($tempcat) {
            if (!$DB->set_field('course_categories', 'visible', $visible, array('id'=>$tempcat->id))) {
                print_error('cannotupdatecategory', '', '', format_string($tempcat->name));
            }
            if (!$DB->set_field('course', 'visible', $visible, array('category' => $tempcat->id))) {
                print_error('cannotshowhidecoursesincategory', '', '', format_string($tempcat->name));
            }
        }
    }

/// Move a category up or down
    if ((!empty($moveup) or !empty($movedown)) and confirm_sesskey()) {
        fix_course_sortorder();
        $swapcategory = NULL;

        if (!empty($moveup)) {
            require_capability('moodle/category:manage', get_context_instance(CONTEXT_COURSECAT, $moveup));
            if ($movecategory = $DB->get_record('course_categories', array('id'=>$moveup))) {
                if ($swapcategory = $DB->get_records_select('course_categories', "sortorder<? AND parent=?", array($movecategory->sortorder, $movecategory->parent), 'sortorder ASC', '*', 0, 1)) {
                    $swapcategory = reset($swapcategory);
                }
            }
        } else {
            require_capability('moodle/category:manage', get_context_instance(CONTEXT_COURSECAT, $movedown));
            if ($movecategory = $DB->get_record('course_categories', array('id'=>$movedown))) {
                if ($swapcategory = $DB->get_records_select('course_categories', "sortorder>? AND parent=?", array($movecategory->sortorder, $movecategory->parent), 'sortorder ASC', '*', 0, 1)) {
                    $swapcategory = reset($swapcategory);
                }
            }
        }
        if ($swapcategory and $movecategory) {
            $DB->set_field('course_categories', 'sortorder', $swapcategory->sortorder, array('id'=>$movecategory->id));
            $DB->set_field('course_categories', 'sortorder', $movecategory->sortorder, array('id'=>$swapcategory->id));
        }

        // finally reorder courses
        fix_course_sortorder();
    }

/// Print out the categories with all the knobs
    $strcategories = get_string('categories');
    $strcourses = get_string('courses');
    $strmovecategoryto = get_string('movecategoryto');
    $stredit = get_string('edit');

    $displaylist = array();
    $parentlist = array();

    $displaylist[0] = get_string('top');
    make_categories_list($displaylist, $parentlist);

    echo '<table class="generalbox editcourse boxaligncenter"><tr class="header">';
    echo '<th class="header" scope="col">'.$strcategories.'</th>';
    echo '<th class="header" scope="col">'.$strcourses.'</th>';
    echo '<th class="header" scope="col">'.$stredit.'</th>';
    echo '<th class="header" scope="col">'.$strmovecategoryto.'</th>';
    echo '</tr>';

    print_category_edit(NULL, $displaylist, $parentlist);
    echo '</table>';

    echo '<div class="buttons">';
    if (has_capability('moodle/course:create', $systemcontext)) {
        // print create course link to first category
        $options = array();
        $options = array('category' => $CFG->defaultrequestcategory);
        print_single_button('edit.php', $options, get_string('addnewcourse'), 'get');
    }

    // Print button for creating new categories
    if (has_capability('moodle/category:manage', $systemcontext)) {
        $options = array();
        $options['parent'] = 0;
        print_single_button('editcategory.php', $options, get_string('addnewcategory'), 'get');
    }

    print_course_request_buttons($systemcontext);
    echo '</div>';

    admin_externalpage_print_footer();

function print_category_edit($category, $displaylist, $parentslist, $depth=-1, $up=false, $down=false) {
/// Recursive function to print all the categories ready for editing

    global $CFG, $USER;

    static $str = NULL;

    if (is_null($str)) {
        $str = new stdClass;
        $str->edit     = get_string('edit');
        $str->delete   = get_string('delete');
        $str->moveup   = get_string('moveup');
        $str->movedown = get_string('movedown');
        $str->edit     = get_string('editthiscategory');
        $str->hide     = get_string('hide');
        $str->show     = get_string('show');
        $str->spacer = '<img src="'.$CFG->wwwroot.'/pix/spacer.gif" class="iconsmall" alt="" /> ';
    }

    if (!empty($category)) {

        if (!isset($category->context)) {
            $category->context = get_context_instance(CONTEXT_COURSECAT, $category->id);
        }

        echo '<tr><td align="left" class="name">';
        for ($i=0; $i<$depth;$i++) {
            echo '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
        }
        $linkcss = $category->visible ? '' : ' class="dimmed" ';
        echo '<a '.$linkcss.' title="'.$str->edit.'" '.
             ' href="category.php?id='.$category->id.'&amp;categoryedit=on&amp;sesskey='.sesskey().'">'.
             format_string($category->name).'</a>';
        echo '</td>';

        echo '<td class="count">'.$category->coursecount.'</td>';

        echo '<td class="icons">';    /// Print little icons

        if (has_capability('moodle/category:manage', $category->context)) {
            echo '<a title="'.$str->edit.'" href="editcategory.php?id='.$category->id.'"><img'.
                 ' src="'.$CFG->pixpath.'/t/edit.gif" class="iconsmall" alt="'.$str->edit.'" /></a> ';

            echo '<a title="'.$str->delete.'" href="index.php?delete='.$category->id.'&amp;sesskey='.sesskey().'"><img'.
                 ' src="'.$CFG->pixpath.'/t/delete.gif" class="iconsmall" alt="'.$str->delete.'" /></a> ';

            if (!empty($category->visible)) {
                echo '<a title="'.$str->hide.'" href="index.php?hide='.$category->id.'&amp;sesskey='.sesskey().'"><img'.
                     ' src="'.$CFG->pixpath.'/t/hide.gif" class="iconsmall" alt="'.$str->hide.'" /></a> ';
            } else {
                echo '<a title="'.$str->show.'" href="index.php?show='.$category->id.'&amp;sesskey='.sesskey().'"><img'.
                     ' src="'.$CFG->pixpath.'/t/show.gif" class="iconsmall" alt="'.$str->show.'" /></a> ';
            }

            if ($up) {
                echo '<a title="'.$str->moveup.'" href="index.php?moveup='.$category->id.'&amp;sesskey='.sesskey().'"><img'.
                     ' src="'.$CFG->pixpath.'/t/up.gif" class="iconsmall" alt="'.$str->moveup.'" /></a> ';
            } else {
                echo $str->spacer;
            }
            if ($down) {
                echo '<a title="'.$str->movedown.'" href="index.php?movedown='.$category->id.'&amp;sesskey='.sesskey().'"><img'.
                     ' src="'.$CFG->pixpath.'/t/down.gif" class="iconsmall" alt="'.$str->movedown.'" /></a> ';
            } else {
                echo $str->spacer;
            }
        }
        echo '</td>';

        echo '<td align="left">';
        if (has_capability('moodle/category:manage', $category->context)) {
            $tempdisplaylist = $displaylist;
            unset($tempdisplaylist[$category->id]);
            foreach ($parentslist as $key => $parents) {
                if (in_array($category->id, $parents)) {
                    unset($tempdisplaylist[$key]);
                }
            }
            popup_form ("index.php?move=$category->id&amp;sesskey=".sesskey()."&amp;moveto=", $tempdisplaylist, "moveform$category->id", $category->parent, '', '', '', false);
        }
        echo '</td>';
        echo '</tr>';
    } else {
        $category->id = '0';
    }

    if ($categories = get_categories($category->id)) {   // Print all the children recursively
        $countcats = count($categories);
        $count = 0;
        $first = true;
        $last = false;
        foreach ($categories as $cat) {
            $count++;
            if ($count == $countcats) {
                $last = true;
            }
            $up = $first ? false : true;
            $down = $last ? false : true;
            $first = false;

            print_category_edit($cat, $displaylist, $parentslist, $depth+1, $up, $down);
        }
    }
}

function print_category_edit_header() {
    global $CFG;
    global $SITE;

    require_once($CFG->libdir.'/adminlib.php');
    admin_externalpage_setup('coursemgmt', update_category_button());
    admin_externalpage_print_header();
}
?>