root/tags/1_0-rc1/wp-admin/categories.php

<?php
require_once('admin.php');

$title = __('Categories');
$parent_file = 'edit.php';

$wpvarstoreset = array('action','cat');
for ($i=0; $i<count($wpvarstoreset); $i += 1) {
    $wpvar = $wpvarstoreset[$i];
    if (!isset($$wpvar)) {
        if (empty($_POST["$wpvar"])) {
            if (empty($_GET["$wpvar"])) {
                $$wpvar = '';
            } else {
                $$wpvar = $_GET["$wpvar"];
            }
        } else {
            $$wpvar = $_POST["$wpvar"];
        }
    }
}

switch($action) {

case 'addcat':

    check_admin_referer('add-category');

    if ( !current_user_can('manage_categories') )
        die (__('Cheatin&#8217; uh?'));

    wp_insert_category($_POST);

    wp_redirect('categories.php?message=1#addcat');
break;

case 'delete':
    $cat_ID = (int) $_GET['cat_ID'];
    check_admin_referer('delete-category_' .  $cat_ID);

    if ( !current_user_can('manage_categories') )
        die (__('Cheatin&#8217; uh?'));

    $cat_name = get_catname($cat_ID);

    // Don't delete the default cats.
    if ( $cat_ID == get_option('default_category') )
        die(sprintf(__("Can't delete the <strong>%s</strong> category: this is the default one"), $cat_name));

    if ( $cat_ID == get_option('default_link_category') )
        die(sprintf(__("Can't delete the <strong>%s</strong> category: this is the default one for bookmarks"), $cat_name));

    wp_delete_category($cat_ID);

    wp_redirect('categories.php?message=2');

break;

case 'edit':

    require_once ('admin-header.php');
    $cat_ID = (int) $_GET['cat_ID'];
    $category = get_category_to_edit($cat_ID);
    include('edit-category-form.php');

break;

case 'editedcat':
    $cat_ID = (int) $_POST['cat_ID'];
    check_admin_referer('update-category_' . $cat_ID);

    if ( !current_user_can('manage_categories') )
        die (__('Cheatin&#8217; uh?'));

    wp_update_category($_POST);

    wp_redirect('categories.php?message=3');
break;

default:

wp_enqueue_script( 'admin-categories' );
require_once ('admin-header.php');

$messages[1] = __('Category added.');
$messages[2] = __('Category deleted.');
$messages[3] = __('Category updated.');
?>

<?php if (isset($_GET['message'])) : ?>
<div id="message" class="updated fade"><p><?php echo $messages[$_GET['message']]; ?></p></div>
<?php endif; ?>

<div class="wrap">
<?php if ( current_user_can('manage_categories') ) : ?>
    <h2><?php printf(__('Categories (<a href="%s">add new</a>)'), '#addcat') ?> </h2>
<?php else : ?>
    <h2><?php _e('Categories') ?> </h2>
<?php endif; ?>
<table class="widefat">
    <thead>
    <tr>
        <th scope="col"><?php _e('ID') ?></th>
        <th scope="col" style="text-align: left"><?php _e('Name') ?></th>
        <th scope="col" style="text-align: left"><?php _e('Description') ?></th>
        <th scope="col" width="90"><?php _e('Posts') ?></th>
        <th scope="col" width="90"><?php _e('Bookmarks') ?></th>
        <th colspan="2"><?php _e('Action') ?></th>
    </tr>
    </thead>
    <tbody id="the-list">
<?php
cat_rows();
?>
    </tbody>
</table>

</div>

<?php if ( current_user_can('manage_categories') ) : ?>
<div class="wrap">
<p><?php printf(__('<strong>Note:</strong><br />Deleting a category does not delete the posts and bookmarks in that category.  Instead, posts in the deleted category are set to the category <strong>%s</strong> and bookmarks are set to <strong>%s</strong>.'), get_catname(get_option('default_category')), get_catname(get_option('default_link_category'))) ?></p>
<p><?php _e('<strong>Also Note:</strong><br />Categories will appear on your blog once you have posted something in them. Empty categories remain invisible.'); ?></p>
</div>

<?php include('edit-category-form.php'); ?>
<?php endif; ?>

<?php
break;
}

include('admin-footer.php');

?>