<?php

// This file is part of Moodle - http://moodle.org/
//
// Moodle is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Moodle is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

require_once($CFG->dirroot.'/grade/export/lib.php');

class grade_export_xls extends grade_export {

    var $plugin = 'xls';

    /**
     * To be implemented by child classes
     */
    function print_grades() {
        global $CFG;
        require_once($CFG->dirroot.'/lib/excellib.class.php');

        $export_tracking = $this->track_exports();

        $strgrades = get_string('grades');

    /// Calculate file name
        $downloadfilename = clean_filename("{$this->course->shortname} $strgrades.xls");
    /// Creating a workbook
        $workbook = new MoodleExcelWorkbook("-");
    /// Sending HTTP headers
        $workbook->send($downloadfilename);
    /// Adding the worksheet
        $myxls =& $workbook->add_worksheet($strgrades);

    /// Print names of all the fields
// (Shirai020): ファイルへの出力時にユーザ名を表示し，姓名の順で名前を出力するための改造 (2008/08/07)
// (Shirai020): ここからコメントアウト
//      $myxls->write_string(0,0,get_string("firstname"));
//      $myxls->write_string(0,1,get_string("lastname"));
//      $myxls->write_string(0,2,get_string("idnumber"));
// (Shirai020): ここから追加
        if (fullname_order() == 'LF') {
            $myxls->write_string(0,0,get_string("lastname"));
            $myxls->write_string(0,1,get_string("firstname"));
        } else {
            $myxls->write_string(0,0,get_string("firstname"));
            $myxls->write_string(0,1,get_string("lastname"));
        }
        if (fs_function_enable('FS_DISABLE_GRADE_ID2USERNAME')) {
            $myxls->write_string(0,2,get_string("username"));
        } else {
            $myxls->write_string(0,2,get_string("idnumber"));
        }
// (Shirai020): ここまで追加
        $myxls->write_string(0,3,get_string("institution"));
        $myxls->write_string(0,4,get_string("department"));
        $myxls->write_string(0,5,get_string("email"));
        $pos=6;
        foreach ($this->columns as $grade_item) {
            $myxls->write_string(0, $pos++, $this->format_column_name($grade_item));

            /// add a column_feedback column
            if ($this->export_feedback) {
                $myxls->write_string(0, $pos++, $this->format_column_name($grade_item, true));
            }
        }

    /// Print all the lines of data.
        $i = 0;
        $geub = new grade_export_update_buffer();
        $gui = new graded_users_iterator($this->course, $this->columns, $this->groupid);
        $gui->init();
        while ($userdata = $gui->next_user()) {
            $i++;
            $user = $userdata->user;

// (Shirai020): ファイルへの出力時にユーザ名を表示し，姓名の順で名前を出力するための改造 (2008/08/07)
// (Shirai020): ここからコメントアウト
//          $myxls->write_string($i,0,$user->firstname);
//          $myxls->write_string($i,1,$user->lastname);
//          $myxls->write_string($i,2,$user->idnumber);
// (Shirai020): ここから追加
            if (fullname_order() == 'LF') {
                $myxls->write_string($i,0,$user->lastname);
                $myxls->write_string($i,1,$user->firstname);
            } else {
                $myxls->write_string($i,0,$user->firstname);
                $myxls->write_string($i,1,$user->lastname);
            }
            if (fs_function_enable('FS_DISABLE_GRADE_ID2USERNAME')) {
                $myxls->write_string($i,2,$user->username);
            } else {
                $myxls->write_string($i,2,$user->idnumber);
            }
// (Shirai020): ここまで追加
            $myxls->write_string($i,3,$user->institution);
            $myxls->write_string($i,4,$user->department);
            $myxls->write_string($i,5,$user->email);
            $j=6;
            foreach ($userdata->grades as $itemid => $grade) {
                if ($export_tracking) {
                    $status = $geub->track($grade);
                }

                $gradestr = $this->format_grade($grade);
                if (is_numeric($gradestr)) {
                    $myxls->write_number($i,$j++,$gradestr);
                }
                else {
                    $myxls->write_string($i,$j++,$gradestr);
                }

                // writing feedback if requested
                if ($this->export_feedback) {
                    $myxls->write_string($i, $j++, $this->format_feedback($userdata->feedbacks[$itemid]));
                }
            }
        }
        $gui->close();
        $geub->close();

    /// Close the workbook
        $workbook->close();

        exit;
    }
}

?>
