gestion 1.9.12

data/Views/Course/Modify.rb

@@ -0,0 +1,447 @@
+# Let's you add, modify and delete a course, as well as manage students.
+# It is written to work together with a Moodle-installation. Moodle-configuration
+# over LDAP is:
+# - First name: sn
+# - Name: givenName
+# - E-mail: mail
+# - Town: l
+# - Country: st
+# - Telephone1: mobile
+#
+# Configuration
+# town - the default town
+# country - the default country
+
+class CourseModify < View
+  include PrintButton
+
+  def layout
+    set_data_class :Courses
+    @update = true
+    @order = 10
+
+    gui_hboxg do
+      gui_vboxg :nogroup do
+        gui_hboxg :nogroup do
+          gui_vbox :nogroup do
+            show_block :name
+            show_arg :name, :ro => true
+            #show_arg :ctype, :all => true
+            show_block :calendar
+            show_block :teacher
+            #show_block :center
+            show_button :edit_name
+          end
+          gui_vboxg :nogroup do
+            show_block :content
+
+            show_print :print_presence
+            gui_vboxg do
+              gui_fields do
+                show_list :students, :width => 300, :flexheight => 1
+                show_button :bulk_add, :del_student, :edit_student,
+                            :transfer_student
+              end
+              show_print :print_student
+            end
+          end
+          gui_window :students_bulk do
+            show_text :names
+            show_button :bulk_students, :close
+          end
+          gui_window :ask_double do
+            show_str :double_name
+            show_entity_person :double_proposition, :single, :full_name,
+                               :width => 350, :maxheight => 250
+            show_button :accept, :create_new, :cancel
+          end
+          gui_window :missing_data do
+            show_html :missing
+            show_button :close
+          end
+          gui_window :printing do
+            show_html :msg_print
+            show_int_hidden :step
+            show_button :print_next, :close
+          end
+          gui_window :transfer do
+            show_entity_course :transfer_course, :drop, :name
+            show_button :do_transfer, :close
+          end
+          gui_window :win_edit_name do
+            show_entity_courseType :wen_ctype, :drop, :name
+            show_str :wen_name, :width => 200
+            show_list_drop :wen_overwrite, '%w( no yes )'
+            show_button :wen_save, :close
+          end
+        end
+        show_button :save
+      end
+    end
+  end
+
+  def rpc_button_save(session, data)
+    if course = Courses.match_by_name(data['name'])
+      # BUG: they're already saved, don't save it again
+      dputs(4) { "Found course #{course.inspect}" }
+      data.delete('students')
+      dputs(4) { "Setting data #{data}" }
+      course.data_set_hash(data)
+    else
+      dputs(5) { "Didn't find course #{data['name']}" }
+    end
+  end
+
+  def rpc_button_bulk_add(session, data)
+    if data['name']
+      reply(:window_show, 'students_bulk')
+    end
+  end
+
+  def update_students(course)
+    reply(:empty, :students) +
+        reply(:update, :students => course.list_students)
+  end
+
+  def rpc_button_del_student(session, data)
+    if course = Courses.match_by_name(data['name'])
+      data['students'].each { |s|
+        course.students.delete(s)
+      }
+      update_students(course)
+    else
+      dputs(0) { "Error: #{session.owner.inspect} managed to press button" }
+    end
+  end
+
+  def rpc_button_edit_student(session, data)
+    dputs(3) { "data is: #{data.inspect}" }
+    login = data['students'][0]
+    reply('parent',
+          reply(:init_values, [:PersonTabs, {:search => login, :persons => []}]) +
+              reply(:switch_tab, :PersonTabs)) +
+        reply(:switch_tab, :PersonModify)
+  end
+
+  def rpc_button_transfer_student(session, data)
+    return if data._students.length == 0
+
+    reply(:window_show, :transfer) +
+        reply(:empty, :transfer_course) +
+        reply(:update, :transfer_course => Courses.list_courses(session))
+  end
+
+  def rpc_button_do_transfer(session, data)
+    reply(:window_hide) +
+        if course = Courses.match_by_name(data._name)
+          data._students.each { |s|
+            course.transfer_student(s, data._transfer_course)
+          }
+          update_students(course)
+        end
+  end
+
+  def rpc_button_print_next(session, data)
+    rpc_button_print_student_steps(session, data)
+  end
+
+  def rpc_button_print_student_steps(session, data)
+    #dputs_func
+    ret = reply(:callback_button, :print_student_steps)
+    var = session.s_data[:print_student]
+    dputs(3) { "Doing with data #{var.inspect} step is #{var._step.inspect}" }
+    case var._step
+      when 1
+        dputs(3) { 'Showing prepare-window' }
+        ret += reply(:window_show, :printing) +
+            reply(:update, :msg_print => 'Preparing students: <br><br>' +
+                             var._students.each_slice(5).collect { |s| s.join(', ') }.join(',<br>')) +
+            reply(:hide, :print_next)
+      when 2
+        dputs(3) { "Printing pdfs for #{var._students.inspect}" }
+        files = var._students.collect { |s|
+          dputs(2) { "Printing for #{s}" }
+          Persons.match_by_login_name(s).print(:student)
+        }
+        var._pages = OpenPrint.pdf_nup_duplex(files, 'student_cards')
+        cmd = cmd_printer(session, :print_student)
+        dputs(3) { "Command is #{cmd} with pages #{var._pages.inspect}" }
+        if not cmd
+          ret = reply(:window_show, :printing) +
+              reply(:update, :msg_print => 'Click on one of the links:<ul>' +
+                               var._pages.collect { |r| "<li><a target='other' href=\"#{r}\">#{r}</a></li>" }.join('') +
+                               '</ul>')
+          var._step = 9
+        elsif var._pages.length > 0
+          ret = reply(:window_show, :printing) +
+              reply(:update, :msg_print => 'Impression de la page face en cours pour<ul>' +
+                               "<li>#{var._students.join('</li><li>')}</li></ul>" +
+                               "<br>Cliquez sur 'suivant' pour imprimer les pages arrières") +
+              reply(:unhide, :print_next)
+          cmd += " #{var._pages[0]}"
+          dputs(3) { "Printing-cmd is #{cmd.inspect}" }
+          System.run_str(cmd)
+        else
+          var._step = 9
+        end
+      when 3
+        cmd = cmd_printer(session, :print_student)
+        dputs(3) { "Command is #{cmd} with pages #{var._pages.inspect}" }
+        ret = reply(:window_show, :printing) +
+            reply(:update, :msg_print => 'Impression de la page face arrière en cours<ul>' +
+                             "<li>#{var._students.join('</li><li>')}</li></ul>") +
+            reply(:hide, :print_next)
+        cmd += " -o outputorder=reverse #{var._pages[1]}"
+        dputs(3) { "Printing-cmd is #{cmd.inspect}" }
+        System.run_bool(cmd)
+      when 4..10
+        dputs(3) { 'Hiding' }
+        ret = reply(:window_hide)
+      else
+        dputs(3) { "Oups - step is #{var._step.inspect}" }
+    end
+
+    var._step += 1
+    session.s_data[:print_student] = var
+    dputs(3) { "Ret is #{ret.inspect}" }
+    return ret
+  end
+
+  def rpc_button_print_student(session, data)
+    #dputs_func
+    rep = []
+    ret = rpc_print(session, :print_student, data)
+    dputs(3) { "#{data['students'].inspect}" }
+    students = if data['students'] and data['students'].length > 0
+                 data['students']
+               else
+                 Courses.match_by_name(data['name']).students
+               end
+    dputs(3) { "Students to print: #{students.inspect}" }
+    if students
+      students.each { |s|
+        student = Persons.match_by_login_name(s)
+        dputs(2) { "Printing student #{student.full_name}" }
+        student.lp_cmd = nil
+        rep.push student.login_name
+      }
+      session.s_data[:print_student] = {:step => 1, :students => rep}
+      return ret + rpc_button_print_student_steps(session, data)
+    end
+    ret
+  end
+
+  def rpc_button_print_presence(session, data)
+    ret = rpc_print(session, :print_presence, data)
+    lp_cmd = cmd_printer(session, :print_presence)
+    if data['name'] and data['name'].length > 0
+      course = Courses.match_by_name(data['name'])
+      case rep = course.print_presence(lp_cmd)
+        when true
+          ret + reply(:window_show, :printing) +
+              reply(:update, :msg_print => "Impression de la fiche de présence pour<br>#{data['name']} en cours") +
+              reply(:hide, :print_next)
+        when false
+          str = [[course.start, 'start-date'],
+                 [course.end, 'end-date'],
+                 [course.students.count > 0, 'students']].select { |t, s| !t }.
+              collect { |t, s| "<li>#{s}</li>" }.join('')
+
+          ret + reply(:window_show, :missing_data) +
+              reply(:update, :missing => 'One of the following is missing:<ul>' +
+                               "#{str}</ul>")
+        else
+          ret + reply(:window_show, :missing_data) +
+              reply(:update, :missing => "Click on the link: <a target='other' href=\"#{rep}\">PDF</a>")
+      end
+    end
+  end
+
+  # This will add a whole lot of students to the list, creating them and setting
+  # the permissions to "student" and setting a simple, 4-digit password
+  # As the creation of a student can take quite some time (10s of seconds),
+  # only one student is created, then the list updated, and a new request is
+  # automatically generated.
+  def rpc_button_bulk_students(session, data)
+    dputs(3) { data.inspect }
+    course = Courses.match_by_name(data['name'])
+    users = []
+    session.s_data[:perhaps_double] ||= []
+    if data['names'] and users = data['names'].split("\n")
+      prefix = ConfigBase.has_function?(:course_server) ?
+          "#{session.owner.login_name}_" : ''
+      name = users.shift
+      login_name = Persons.create_login_name(name)
+      if not (person = Persons.match_by_login_name(prefix + name))
+        if Persons.search_by_login_name("^#{prefix}#{login_name}[0-9]*$").length > 0
+          session.s_data[:perhaps_double].push name
+        else
+          person = Persons.create({:first_name => name,
+                                   :login_name_prefix => prefix,
+                                   :permissions => %w( student ), :town => @town, :country => @country})
+        end
+      end
+      #person.email = "#{person.login_name}@ndjair.net"
+      person and course.students_add person
+    end
+    if users.length > 0
+      reply(:update, {:names => users.join("\n")}) +
+          update_students(course) +
+          reply(:callback_button, :bulk_students)
+    else
+      update_students(course) +
+          reply(:update, {:names => ''}) +
+          reply(:window_hide) +
+          present_doubles(session, course)
+    end
+  end
+
+  def present_doubles(session, course)
+    doubles = session.s_data[:perhaps_double]
+    dputs(4) { "Doubles are #{doubles.inspect}" }
+    if doubles and doubles.length > 0
+      prefix = ConfigBase.has_function?(:course_server) ?
+          "#{session.owner.login_name}_" : ""
+      name = doubles.pop
+      login_name = Persons.create_login_name(name)
+      prop = Persons.search_by_login_name("^#{prefix}#{login_name}[0-9]*$").
+          collect { |p|
+        courses = Courses.matches_by_students(p.login_name).collect { |c| c.name }.
+            join('-')
+        [p.person_id, "#{p.full_name}:#{p.login_name}:#{courses}"]
+      }
+      dputs(4) { "Proposition is #{prop.inspect}" }
+      reply(:window_show, :ask_double) +
+          reply(:update, :double_name => name) +
+          reply(:empty, [:double_proposition]) +
+          reply(:update, :double_proposition => prop.concat([prop.first[0]]))
+    else
+      reply(:window_hide)
+    end +
+        update_students(course)
+  end
+
+  def rpc_button_accept(session, data)
+    course = Courses.match_by_name(data['name'])
+    student = data._double_proposition
+    dputs(5) { "Data is #{data.inspect} - #{course.students.inspect} " +
+        "- #{student.inspect}" }
+    if not course.students.index(student.login_name)
+      course.students_add student
+    end
+    present_doubles(session, course)
+  end
+
+  def rpc_button_create_new(session, data)
+    course = Courses.match_by_name(data['name'])
+    prefix = ConfigBase.has_function?(:course_server) ?
+        "#{session.owner.login_name}_" : ''
+    name = data['double_name']
+    course.students_add Persons.create({:first_name => name,
+                                        :login_name_prefix => prefix,
+                                        :permissions => %w( student ), :town => @town, :country => @country})
+    present_doubles(session, course)
+  end
+
+  def rpc_button_close(session, data)
+    reply(:window_hide)
+  end
+
+  def rpc_button_cancel(session, data)
+    reply(:window_hide)
+  end
+
+  def rpc_list_choice(session, name, args)
+    dputs(3) { "rpc_list_choice with #{name} - #{args.inspect}" }
+    if name == 'courses' and args['courses'].length > 0
+      course_id = args['courses'][0]
+      dputs(3) { "replying for course_id #{course_id}" }
+      course = Courses.match_by_course_id(course_id)
+      reply(:empty_nonlists, [:students]) +
+          update_form_data(course) +
+          reply(:update, {:courses => [course_id]})
+    end
+  end
+
+  def hide_if_center(session)
+    if session.owner.permissions.index('center')
+      %w( print_student duration dow hours
+      classroom ).collect { |e|
+        reply(:hide, e)
+      }.flatten
+    else
+      []
+    end
+  end
+
+  def rpc_update(session)
+    reply(:empty_nonlists, :students) +
+        super(session) +
+        reply_print(session) +
+        hide_if_center(session) +
+        reply_visible(session.owner.has_role('director'), :edit_name)
+  end
+
+  def update_layout(session)
+    resps = Persons.responsibles
+    if session.owner.permissions.index('center')
+      resps = Persons.responsibles_sort(
+          Persons.responsibles_raw.select { |p|
+            p.login_name =~ /^#{session.owner.login_name}_/
+          })
+    end
+
+    fields = %w( teacher assistant responsible )
+
+    super(session) +
+        reply(:empty_nonlists, fields) +
+        reply(:update, :assistant => [[0, '---']]) +
+        fields.collect { |p|
+          reply(:update, p => resps)
+        }.flatten
+  end
+
+  def rpc_update_hook(session, one, two)
+    update_layout(session)
+  end
+
+  def rpc_button_edit_name(session, data)
+    course = Courses.match_by_course_id(data._courses.first)
+    if course
+      log_msg :CourseModify, course
+      reply(:window_show, :win_edit_name) +
+          reply(:empty, :wen_ctype) +
+          reply(:update, :wen_ctype => CourseTypes.listp_name +
+                           [course.ctype.coursetype_id],
+                :wen_name => course.name)
+    end
+  end
+
+  def rpc_button_wen_save(session, data)
+    #dputs_func
+    course = Courses.match_by_course_id(data._courses.first)
+    if (c = Courses.match_by_name(data._wen_name)) &&
+        c != course
+      dputs(2) { "Trying to give same name (#{data._wen_name}) to two different courses" }
+      base = data._wen_name.sub(/-[0-9]{1,3}$/, '')
+      nbr = 2
+      while (c = Courses.match_by_name("#{base}-#{nbr}")) &&
+          c != course
+        nbr += 1
+      end
+      dputs(3) { "Found #{nbr} for #{base}" }
+      data._wen_name = "#{base}-#{nbr}"
+    end
+    data._wen_name.sub!(/#{course.ctype.name}_/, "#{data._wen_ctype.name}_")
+    dputs(3) { "data._wen_name is now #{data._wen_name}" }
+    course.ctype = data._wen_ctype
+    course.rename(data._wen_name)
+    if data._wen_overwrite.first == 'yes'
+      course.data_set_hash(data._wen_ctype.to_hash.except(:name), true)
+    end
+    reply(:window_hide) +
+        reply(:parent, reply(:empty_nonlists, [:courses]) +
+                         reply(:update, :courses => Entities.Courses.list_courses(session) +
+                                          data._courses))
+  end
+end

data/Views/Course/Print.rb

@@ -0,0 +1,94 @@
+# Prints the students of a course
+
+class CoursePrint < View
+  include PrintButton
+
+  def layout
+    @visible = true
+    @order = 100
+    @update = true
+
+    gui_vbox do
+      gui_vbox do
+        show_print :print_presence
+        show_print :print_exam_file
+      end
+      gui_window :missing_data do
+        show_html :missing
+        show_button :close
+      end
+      gui_window :printing do
+        show_html :msg_print
+        show_button :close
+      end
+    end
+  end
+
+  def rpc_update(session)
+    super(session) +
+        reply_print(session)
+  end
+
+  def rpc_list_choice_courses(session, args)
+    dputs(3) { "rpc_list_choice with #{name} - #{args.inspect}" }
+    if args._courses.length > 0
+      course_id = args._courses[0]
+      dputs(3) { "replying for course_id #{course_id}" }
+      course = Courses.match_by_course_id(course_id)
+      reply_visible(course.ctype.file_exam.to_s.length > 0, :print_exam_file)
+    end
+  end
+
+  def rpc_button_print_presence(session, data)
+    dputs(3) { 'printing' }
+    ret = rpc_print(session, :print_presence, data)
+    lp_cmd = cmd_printer(session, :print_presence)
+    course = Courses.match_by_course_id(data._courses[0])
+    if data._courses and data._courses.length > 0
+      case rep = course.print_presence(lp_cmd)
+        when true
+          ret + reply(:window_show, :printing) +
+              reply(:update, :msg_print => 'Impression - de la fiche de présence pour<br>' +
+                  "#{course.name} en cours")
+        when false
+          ret + reply(:window_show, :missing_data) +
+              reply(:update, :missing => 'One of the following is missing:<ul><li>date</li>' +
+                  '<li>students</li><li>teacher</li></ul>')
+        else
+          ret + reply(:window_show, :missing_data) +
+              reply(:update, :missing => "Click on the link: <a target='other' href=\"#{rep}\">" +
+                  'PDF</a>')
+      end
+    end
+  end
+
+  def rpc_button_print_exam_file(session, data)
+    dputs(3) { "printing with #{data._courses.inspect}" }
+    exa = 'print_exam_file'
+    ret = rpc_print(session, exa, data)
+    lp_cmd = cmd_printer(session, exa)
+    course = Courses.match_by_course_id(data._courses[0])
+    dputs(3){"lp_cmd is #{lp_cmd}"}
+    if data._courses && data._courses.length > 0
+      case rep = course.print_exam_file(lp_cmd)
+        when true
+          ret += reply(:window_show, :printing) +
+              reply(:update, :msg_print => "Impression de la fiche d'évaluation pour<br>"+
+                               "#{course.name} en cours")
+        when false
+          ret += reply(:window_show, :missing_data) +
+              reply(:update, :missing => 'One of the following is missing:<ul><li>date</li>'+
+                               '<li>students</li><li>teacher</li></ul>')
+        else
+          ret += reply(:window_show, :missing_data) +
+              reply(:update, :missing => "Click on the link: <a target='other' href=\"#{rep}\">"+
+                               'PDF</a>')
+      end
+    end
+    return ret
+  end
+
+  def rpc_button_close(session, data)
+    reply(:window_hide)
+  end
+end

data/Views/Course/Responsible.rb

@@ -0,0 +1,44 @@
+class CourseResponsible < View
+  include VTListPane
+
+  def layout
+    set_data_class :Persons
+    @update = true
+    @visible = false
+    @order = 100
+
+    gui_hbox do
+      gui_vbox :nogroup do
+        vtlp_list :persons, 'login_name', 'listp_responsible'
+        show_button :new, :delete, :save
+      end
+      gui_vbox :nogroup do
+        show_block :address
+      end
+    end
+  end
+  
+  def rpc_button_save( session, data )
+    field = vtlp_get_entity( data )
+    dputs( 2 ){ "Field is #{field.inspect}, setting data #{data.inspect}" }
+    selection = data[@vtlp_field][0]
+    if field
+      field.data_set_hash( data.to_sym )
+    else
+      if data["family_name"] or data["first_name"]
+        resp = Persons.create( data.to_sym.merge(
+            {:login_name_prefix => "#{session.owner.login_name}_"} ) )
+        resp.permissions = %w( internet teacher )
+        selection = resp.id
+      end
+    end
+    dputs(3){"vtlp_method is #{@vtlp_method} - selection is #{selection.inspect}"}
+    vtlp_update_list( session, selection )
+    #      [data[@vtlp_field][0], field.data_get(@vtlp_method)] )
+  end
+  
+  def rpc_update( session )
+    reply( :empty_nonlists, [:persons] ) +
+      reply( :update, :persons => Persons.listp_responsible( session ) )
+  end
+end

data/Views/Course/Stats.rb

@@ -0,0 +1,76 @@
+class CourseStats < View
+  def layout
+    set_data_class :Courses
+    @update = true
+    @order = 100
+    @functions_need = [:accounting]
+
+    #@visible = false
+
+    gui_vboxg do
+      gui_hboxg :nogroup do
+        gui_vbox :nogroup do
+          show_block :accounting
+        end
+        gui_vboxg :nogroup do
+          show_text :contacts, :flexheight => 1
+        end
+      end
+      show_block :account
+      show_arg :entries, :width => 500
+      show_button :save, :create_account
+    end
+  end
+
+  def rpc_button_save(session, data)
+    if course = Courses.match_by_course_id(data._courses.first)
+      dputs(3) { "Found course #{course.name} with data #{data.inspect}" }
+      data.delete('students')
+      course.data_set_hash(data)
+    end
+  end
+
+  def rpc_button_create_account(session, data)
+    if course = Courses.match_by_course_id(data._courses.first)
+      course.create_account
+      rpc_update_view(session) +
+          rpc_list_choice(session, 'courses', data)
+    end
+  end
+
+  def rpc_list_choice(session, name, args)
+    dputs(3) { "rpc_list_choice with #{name} - #{args.inspect}" }
+    if name == 'courses' and args['courses'].length > 0
+      course_id = args['courses'][0]
+      dputs(3) { "replying for course_id #{course_id}" }
+      course = Courses.match_by_course_id(course_id)
+      list = course.students.collect { |s| Persons.match_by_login_name(s) }.compact.
+          collect { |s| [s.phone.to_s, s.email.to_s] }.transpose
+      if list.length > 0
+        phones = list[0].select { |l| l.to_s.length > 0 }.
+            collect { |l| l.split('/').join("\n") }.join("\n")
+        emails = list[1].select { |l| l.to_s.length > 0 && !(l[1] =~ /@ndjair.net/) }.
+            join("\n")
+      else
+        phones = emails = ''
+      end
+      reply(:empty_nonlists) +
+          reply(:update, :entries => [0]) +
+          update_form_data(course) +
+          reply_visible(course.entries.class != Account, :create_account) +
+          reply(:update, :contacts => "Phones:\n#{phones}\n" +
+                           "Emails:\n#{emails}")
+    end
+  end
+
+  def rpc_update_view(session)
+    super(session) +
+        reply(:empty_nonlists, :entries) +
+        reply(:update, :entries =>
+                         [[0, 'None']].concat(AccountRoot.actual.listp_path))
+  end
+
+  def rpc_update(session)
+    reply(:update, :entries => [0])
+  end
+end