question/contextmove.php

   1 <?php // $Id$
   2 /**
   3  * Allows someone with appropriate permissions to move a category and associated
   4  * files to another context.
   5  *
   6  * @author Jamie Pratt
   7  * @license http://www.gnu.org/copyleft/gpl.html GNU Public License
   8  * @package questionbank
   9  */
  10
  11     require_once("../config.php");
  12     require_once($CFG->dirroot."/question/editlib.php");
  13     require_once($CFG->dirroot."/question/contextmove_form.php");
  14
  15     list($thispageurl, $contexts, $cmid, $cm, $module, $pagevars) = question_edit_setup('categories');
  16
  17     // get values from form for actions on this page
  18     $toparent = required_param('toparent', PARAM_SEQUENCE);
  19     $cattomove = required_param('cattomove', PARAM_INT);
  20     $totop = optional_param('totop', 0, PARAM_INT); // optional param moves category to top of peers. Default is
  21         //to add it to the bottom.
  22
  23
  24
  25     $onerrorurl = $CFG->wwwroot.'/question/category.php?'.$thispageurl->get_query_string();
  26     list($toparent, $contextto) = explode(',', $toparent);
  27     if (!empty($toparent)){//not top level category, make it a child of $toparent
  28         if (!$toparent = get_record('question_categories', 'id', $toparent)){
  29             error('Invalid category id for parent!', $onerrorurl);
  30         }
  31         $contextto = $toparent->contextid;
  32     } else {
  33         $toparent = new object();
  34         $toparent->id = 0;
  35         $toparent->contextid = $contextto;
  36     }
  37     if (!$cattomove = get_record('question_categories', 'id', $cattomove)){
  38         error('Invalid category id to move!', $onerrorurl);
  39     }
  40     if ($cattomove->contextid == $contextto){
  41         error("You shouldn't have got here if you're not moving a category to another context.", $onerrorurl);
  42     }
  43     $cattomove->categorylist = question_categorylist($cattomove->id);
  44
  45     $thispageurl->params(array('cattomove'=>$cattomove->id,
  46                                   'toparent'=>"{$toparent->id},{$toparent->contextid}",
  47                                   'totop'=>$totop));
  48
  49     $contextfrom = get_context_instance_by_id($cattomove->contextid);
  50     $contextto = get_context_instance_by_id($contextto);
  51     $contexttostring = print_context_name($contextto);
  52
  53     require_capability('moodle/question:managecategory', $contextfrom);
  54     require_capability('moodle/question:managecategory', $contextto);
  55
  56
  57     $fromcoursefilesid = get_filesdir_from_context($contextfrom);//siteid or courseid
  58     $tocoursefilesid = get_filesdir_from_context($contextto);//siteid or courseid
  59     if ($fromcoursefilesid != $tocoursefilesid){
  60         $questions = get_records_select('question', "category IN ({$cattomove->categorylist})");
  61         $urls = array();
  62         if ($questions){
  63             foreach ($questions as $id => $question){
  64                 $QTYPES[$questions[$id]->qtype]->get_question_options($questions[$id]);
  65                 $urls = array_merge_recursive($urls, $QTYPES[$questions[$id]->qtype]->find_file_links($questions[$id], $fromcoursefilesid));
  66             }
  67         }
  68         ksort($urls);
  69     } else {
  70         $urls = array();
  71     }
  72     $brokenurls = array();
  73     foreach (array_keys($urls) as $url){
  74         if (!file_exists($CFG->dataroot."/$fromcoursefilesid/".$url)){
  75             $brokenurls[] = $url;
  76         }
  77     }
  78     if ($fromcoursefilesid == SITEID){
  79         $fromareaname = get_string('filesareasite', 'question');
  80     } else {
  81         $fromareaname = get_string('filesareacourse', 'question');
  82     }
  83     if ($tocoursefilesid == SITEID){
  84         $toareaname = get_string('filesareasite', 'question');
  85     } else {
  86         $toareaname = get_string('filesareacourse', 'question');
  87     }
  88     $contextmoveform = new question_context_move_form($thispageurl,
  89                             compact('urls', 'fromareaname', 'toareaname', 'brokenurls',
  90                                     'fromcoursefilesid', 'tocoursefilesid'));
  91     if ($contextmoveform->is_cancelled()){
  92         $thispageurl->remove_params('cattomove', 'toparent', 'totop');
  93         redirect($CFG->wwwroot."/question/category.php?".$thispageurl->get_query_string());
  94     }elseif ($moveformdata = $contextmoveform->get_data()) {
  95         if (isset($moveformdata->urls) && is_array($moveformdata->urls)){
  96             check_dir_exists($CFG->dataroot."/$tocoursefilesid/", true);
  97             $flipurls = array_keys($urls);
  98             foreach ($moveformdata->urls as $key => $urlaction){
  99                 $source = $CFG->dataroot."/$fromcoursefilesid/".$flipurls[$key];
 100                 $destination = $flipurls[$key];
 101                 if (($urlaction != QUESTION_FILEDONOTHING) && ($urlaction != QUESTION_FILEMOVELINKSONLY)){
 102                     // Ensure the target folder exists.
 103                     check_dir_exists(dirname($CFG->dataroot."/$tocoursefilesid/".$destination), true);
 104
 105                     // Then make sure the destination file name does not exist. If it does, change the name to be unique.
 106                     while (file_exists($CFG->dataroot."/$tocoursefilesid/".$destination)){
 107                         $matches = array();
 108                         //check for '_'. copyno after filename, before extension.
 109                         if (preg_match('!\_([0-9]+)(\.[^\.\\/]+)?$!', $destination, $matches)){
 110                             $copyno = $matches[1]+1;
 111                         } else {
 112                             $copyno = 1;
 113                         }
 114                         //replace old copy no with incremented one.
 115                         $destination = preg_replace('!(\_[0-9]+)?(\.[^\.\\/]+)?$!', '_'.$copyno.'\\2', $destination, 1);
 116                     }
 117                 }
 118                 switch ($urlaction){
 119                     case QUESTION_FILECOPY :
 120                         if (!copy($source, $CFG->dataroot."/$tocoursefilesid/".$destination)){
 121                             print_error('errorfilecannotbecopied', 'question', $onerrorurl, $source);
 122                         }
 123                         break;
 124                     case QUESTION_FILEMOVE :
 125                         if (!rename($source, $CFG->dataroot."/$tocoursefilesid/".$destination)){
 126                             print_error('errorfilecannotbemoved', 'question', $onerrorurl, $source);
 127                         }
 128                         break;
 129                     case QUESTION_FILEDONOTHING :
 130                     case QUESTION_FILEMOVELINKSONLY :
 131                         break;
 132                     default :
 133                         error('Invalid action selected!', $onerrorurl);
 134                 }
 135                 switch ($urlaction){
 136                     //now search and replace urls in questions.
 137                     case QUESTION_FILECOPY :
 138                     case QUESTION_FILEMOVE :
 139                     case QUESTION_FILEMOVELINKSONLY :
 140                         $url = $flipurls[$key];
 141                         $questionids = array_unique($urls[$url]);
 142                         foreach ($questionids as $questionid){
 143                             $question = $questions[$questionid];
 144                             $QTYPES[$question->qtype]->replace_file_links($question, $fromcoursefilesid, $tocoursefilesid, $url, $destination);
 145                         }
 146                         break;
 147                     case  QUESTION_FILEDONOTHING :
 148                     default :
 149                         break;
 150                 }
 151
 152
 153             }
 154         }
 155
 156         //adjust sortorder before we make the cat a peer of it's new peers
 157         $peers = get_records_select_menu('question_categories',
 158                 "contextid = {$toparent->contextid} AND parent = {$toparent->id}",
 159                 'sortorder ASC', 'id, 1');
 160         $peers = array_keys($peers);
 161         if ($totop){
 162            array_unshift($peers, $cattomove->id);
 163         } else {
 164            $peers[] = $cattomove->id;
 165         }
 166         $sortorder = 0;
 167         foreach ($peers as $peer) {
 168             if (! set_field('question_categories', "sortorder", $sortorder, "id", $peer)) {
 169                 print_error('listupdatefail', '', $onerrorurl);
 170             }
 171             $sortorder++;
 172         }
 173         //now move category
 174         $cat = new object();
 175         $cat->id = $cattomove->id;
 176         $cat->parent = $toparent->id;
 177         //set context of category we are moving and all children also!
 178         if (!execute_sql("UPDATE {$CFG->prefix}question_categories SET contextid = {$contextto->id} WHERE id IN ({$cattomove->categorylist})", false)){
 179             error("Could not move the category '$newname' to ".$contexttostring, $onerrorurl);
 180         }
 181         //finally set the new parent id
 182         if (!update_record("question_categories", $cat)) {
 183             error("Could not update the category '$updatename'", $onerrorurl);
 184         }
 185         $thispageurl->remove_params('cattomove', 'toparent', 'totop');
 186         redirect($CFG->wwwroot."/question/category.php?".$thispageurl->get_query_string(array('cat'=>"{$cattomove->id},{$contextto->id}")));
 187     }
 188
 189     $streditingcategories = get_string('editcategories', 'quiz');
 190     $crumbs = array();
 191     if ($cm!==null) {
 192         // Page header
 193         $strupdatemodule = has_capability('moodle/course:manageactivities', $contexts->lowest())
 194             ? update_module_button($cm->id, $COURSE->id, get_string('modulename', $cm->modname))
 195             : "";
 196         $crumbs[] = array('name' => get_string('modulenameplural', $cm->modname),
 197                             'link' => "$CFG->wwwroot/mod/{$cm->modname}/index.php?id=$COURSE->id",
 198                             'type' => 'activity');
 199         $crumbs[] = array('name' => format_string($module->name),
 200                             'link' => "$CFG->wwwroot/mod/{$cm->modname}/view.php?id={$cm->id}",
 201                             'type' => 'title');
 202     } else {
 203         // Print basic page layout.
 204         $strupdatemodule = '';
 205     }
 206
 207
 208     $crumbs[] = array('name' => $streditingcategories, 'link' => $thispageurl->out(), 'type' => 'title');
 209     $crumbs[] = array('name' => get_string('movingcategory', 'question'), 'link' => '', 'type' => 'title');
 210
 211     $navigation = build_navigation($crumbs);
 212     print_header_simple($streditingcategories, '', $navigation, "", "", true, $strupdatemodule);
 213
 214     // print tabs
 215     if ($cm!==null) {
 216         $currenttab = 'edit';
 217         $mode = 'categories';
 218         ${$cm->modname} = $module;
 219         include($CFG->dirroot."/mod/{$cm->modname}/tabs.php");
 220     } else {
 221         $currenttab = 'categories';
 222         $context = $contexts->lowest();
 223         include('tabs.php');
 224     }
 225     //parameter for get_string
 226     $cattomove->contextto = $contexttostring;
 227     if (count($urls)){
 228         $defaults = array();
 229         for ($default_key = 0; $default_key < count($urls); $default_key++){
 230             $defaults['urls'][$default_key] = QUESTION_FILECOPY;
 231         }
 232         $contextmoveform->set_data($defaults);
 233         //some parameters for get_string
 234         $cattomove->urlcount = count($urls);
 235         $cattomove->toareaname = $toareaname;
 236         $cattomove->fromareaname = $fromareaname;
 237
 238         print_box(get_string('movingcategoryandfiles', 'question', $cattomove), 'boxwidthnarrow boxaligncenter generalbox');
 239     } else {
 240         print_box(get_string('movingcategorynofiles', 'question', $cattomove), 'boxwidthnarrow boxaligncenter generalbox');
 241     }
 242     $contextmoveform->display();
 243     print_footer($COURSE);
 244 ?>