gestion 1.9.12

data/Views/Network/Share.rb

@@ -0,0 +1,167 @@
+class NetworkShare < View
+  include VTListPane
+
+  def layout
+    set_data_class :Shares
+
+    @order = 50
+    @update = true
+    @functions_need = [:share]
+
+    @samba = Entities.Statics.get(:NetworkSamba)
+    if @samba.data_str.class != Hash
+      dputs(4) { "Oups - samba is #{@samba.data_str.inspect}" }
+      @samba.data_str = {}
+    end
+
+    gui_vbox :nogroup do
+      gui_hbox do
+        gui_vbox :nogroup do
+          vtlp_list :shares, :name
+          show_button :new, :delete
+        end
+        gui_vbox :nogroup do
+          show_block :config, :width => 200
+          show_button :share_save, :change_path, :add_htaccess
+        end
+        gui_vbox :nogroup do
+          show_list_single :users, :width => 200
+          show_button :no_access, :read_write, :read_only
+        end
+      end
+      gui_hbox :nogroup do
+        gui_vbox :nogroup do
+          show_str :domain, :width => 200
+          show_str :hostname
+          show_button :samba_save
+        end
+        gui_vbox :nogroup do
+        end
+      end
+
+      gui_window :msg do
+        show_html :msg_txt
+        show_button :close
+      end
+    end
+  end
+
+  def users_update(session)
+    if session and (share_str = session.s_data[:share])
+      users = Persons.search_by_groups('share')
+      share = Shares.match_by_share_id(share_str)
+      dputs(3) { "Users is #{users.inspect} and share is #{share.inspect}" }
+      if users and share
+        dputs(3) { "Acl of #{share.name} is #{share.acl.inspect}" }
+        share.acl.collect { |k, v|
+          if user = Persons.match_by_login_name(k)
+            users.delete(user)
+            access = v == 'ro' ? 'read-only' : 'read-write'
+            name = user.full_name
+            name.to_s == 0 and name = user.login_name
+            [k, "#{name}: #{access}"]
+          else
+            nil
+          end
+        }.compact.sort { |a, b| a[1] <=> b[1] } +
+            users.collect { |u|
+              [u.login_name, u.full_name]
+            }.sort { |a, b| a[1] <=> b[1] }
+      else
+        return []
+      end
+    else
+      return []
+    end
+  end
+
+  alias_method :rpc_list_choice_old, :rpc_list_choice
+
+  def rpc_list_choice(session, name, *args)
+    dputs(3) { "rpc_list_choice with #{name} - #{args.inspect}" }
+    if name == @vtlp_field
+      session.s_data[:share] = args[0][name][0]
+      dputs(4) { "session.s_data is #{session.s_data.inspect}" }
+    end
+    rpc_list_choice_old(session, name, args[0])
+  end
+
+
+  def rpc_update(session)
+    dputs(4) { "Updating samba: #{users_update(session)}" }
+    show_users = reply(:hide, :users)
+    begin
+      if (share_id = session.s_data[:share]) and
+          (Shares.match_by_share_id(share_id).public == ['No'])
+        show_users = reply(:unhide, :users)
+      end
+    rescue NoMethodError
+    end
+    reply(:empty, [:users]) +
+        reply(:update,
+              :users => users_update(session)) +
+        %w( domain hostname ).collect { |d|
+          reply(:update, d => @samba.data_str[d])
+        }.flatten +
+        show_users
+  end
+
+  def rpc_button(session, name, data)
+    case name
+      when /no_access|read_write|read_only/
+        if (user = Persons.match_by_login_name(data['users'][0])) and
+            (share = Shares.match_by_share_id(data['shares'][0]))
+          case name
+            when /no_access/
+              share.acl.delete user.login_name
+            when /read_write/
+              share.acl[user.login_name] = 'rw'
+            when /read_only/
+              share.acl[user.login_name] = 'ro'
+          end
+          dputs(4) { "Share.acl is #{share.acl.inspect}" }
+          session.s_data[:share] = data['shares'][0]
+        else
+          return reply(:window_show, :msg) +
+              reply(:update, :msg_txt => 'First choose a share<br>' +
+                               'then a user')
+        end
+        rpc_update(session)
+      when /new/
+        rpc_button_new(session, data) +
+            reply(:hide, :users)
+      else
+        super(session, name, data)
+    end
+  end
+
+  def rpc_button_share_save(session, data)
+    ret = rpc_button_save(session, data) +
+        rpc_button_samba_save(session, data)
+  end
+
+  def rpc_button_close(session, data)
+    reply(:window_hide)
+  end
+
+  def rpc_button_samba_save(session, data)
+    %w( domain hostname ).each { |d|
+      dputs(4) { "Saving -#{d}- for -#{@samba.data_str.inspect}-" }
+      store = data[d] ? data[d] : d
+      @samba.data_str[d] = store
+    }
+    dputs(4) { "@samba is now -#{@samba.data_str.inspect}-" }
+
+    Shares.save_config(@samba.data_str['domain'])
+    return []
+  end
+
+  def rpc_button_add_htaccess(session, data)
+    share = Shares.find_by_share_id(data['shares'][0])
+    dputs(3) { "Working with #{share}" }
+
+    share.add_htaccess
+  end
+
+end
+  

data/Views/Network/Tables.rb

@@ -0,0 +1,28 @@
+class NetworkTables < View
+  def layout
+    set_data_class :ConfigBases
+    #@visible = false
+    @order = 100
+    @update = true
+    @functions_need = [:network]
+
+    gui_vbox do
+      show_block :captive
+      show_arg :prerouting, :width => 300
+      show_button :save_costs
+    end
+  end
+
+  def rpc_button_save_costs(session, data)
+    ConfigBase.data_set_hash(data)
+    ConfigBase.send_config
+  end
+
+  def update(session)
+    ConfigBase.to_hash
+  end
+
+  def rpc_update(session)
+    super
+  end
+end

data/Views/Network/Tabs.rb

@@ -0,0 +1,6 @@
+class NetworkTabs < View
+  def layout
+    @order = 55
+    @functions_need = [:network]
+  end
+end

data/Views/Person/Admin.rb

@@ -0,0 +1,99 @@
+# Allows to add, modify and delete persons
+
+class PersonAdmin < View
+  def layout
+    set_data_class :Persons
+    @update = true
+    @order = 30
+
+    gui_vboxg do
+      gui_group do
+        gui_hboxg :nogroup do
+          gui_hboxg :nogroup do
+            gui_fields do
+              show_str_ro :login_name
+              show_str_ro :person_id
+              show_block :admin
+              show_arg :permissions, :flexheight => 1
+            end
+          end
+          gui_vbox :nogroup do
+            gui_vbox :nogroup do
+              show_field :groups
+            end
+          end
+        end
+        show_button :save
+      end
+
+      gui_window :win_error do
+        show_html :err_html
+        show_entity_person :centers, :drop, :full_name, :width => 200
+        show_button :chose
+      end
+    end
+  end
+
+  def rpc_button_save(session, data)
+    dputs(3) { "#{data.inspect}" }
+    person = Persons.match_by_person_id(data._person_id)
+    rep = reply(:empty_nonlists)
+    if person
+      log_msg :persons, "#{session.owner.login_name} saves #{data.inspect}"
+      Persons.save_data(data)
+      person.update_accounts
+      if (centers = Persons.search_by_permissions(:center)).count > 1 &&
+          !ConfigBase.has_function?(:course_server)
+        centers_name = centers.collect { |p| p.listp_full_name }
+        rep += reply(:window_show, :win_error) +
+            reply(:update, :err_html => "<p>There can't be more than one center<br>" +
+                             'in the database. Please chose one') +
+            reply(:empty, :centers) +
+            reply(:update, :centers => centers_name)
+      end
+      rep += update_form_data(person)
+    end
+    rep + rpc_update(session)
+  end
+
+  def rpc_button_chose(session, data)
+    Persons.search_by_permissions(:center).each { |p|
+      dputs(2) { "Comparing #{p} with #{data._centers}" }
+      if p != data._centers
+        p.permissions -= ['center']
+      end
+    }
+    person = Persons.match_by_person_id(data._person_id)
+    reply(:window_hide) +
+        reply(:empty_nonlists) +
+        update_form_data(person)
+  end
+
+  def rpc_find(session, field, data)
+    rep = Persons.find(field, data)
+    if not rep
+      rep = {"#{field}" => data}
+    end
+    update_layout(session) +
+        reply(:update, rep) + rpc_update(session)
+  end
+
+  def rpc_list_choice(session, name, data)
+    if name == 'persons'
+      dputs(2) { "Got data: #{data.inspect}" }
+      if p = Persons.match_by_login_name(data['persons'].flatten[0])
+        #reply( :empty_nonlists, [:internet_none] ) +
+        reply(:empty_nonlists, [:permissions, :groups]) +
+            reply(:update, :permissions => Permission.list.sort) +
+            reply(:update, :groups => eval(Persons.get_value(:groups).list)) +
+            reply(:update, p)
+      end
+    end
+  end
+
+  def update(session)
+    if ConfigBase.has_function? :accounting
+      {:your_account_total_due => session.owner.account_total_due}
+    end
+  end
+end

data/Views/Person/Center.rb

@@ -0,0 +1,48 @@
+# Some special, restricted administration-things for a center-director
+
+class PersonCenter < View
+  def layout
+    set_data_class :Persons
+    @update = true
+    @order = 40
+    @functions_need = [:course_server]
+
+    gui_vbox do
+      gui_hbox :nogroup do
+        show_str_ro :login_name
+        show_str_ro :person_id
+        show_field :role_diploma
+        show_list :permissions, "%w( teacher center_director )"
+        show_button :save
+      end
+    end
+  end
+  
+  def reply_person( p )
+    reply( :empty_nonlists, [:permissions] ) +
+      reply( :update, :permissions => %w( teacher center_director ) ) +
+      reply( :update, :login_name => p.login_name, :person_id => p.person_id,
+      :role_diploma => p.role_diploma, 
+      :permissions => p.permissions & %w( teacher center_director ) )
+  end
+
+  def rpc_button_save( session, data )
+    person = Persons.match_by_person_id( data['person_id'] )
+    if person
+      log_msg :persons, "#{session.owner.login_name} saves #{data.inspect}"
+      person.role_diploma = data._role_diploma
+      person.permissions = person.permissions - %w( teacher center_director ) +
+        data._permissions
+      reply_person( person )
+    end
+  end
+
+  def rpc_list_choice( session, name, data )
+    if name == "persons"
+      dputs( 2 ){ "Got data: #{data.inspect}" }
+      if p = Persons.match_by_login_name( data['persons'].flatten[0])
+        reply_person( p )
+      end
+    end
+  end
+end

data/Views/Person/Course.rb

@@ -0,0 +1,72 @@
+# Allows to add, modify and delete persons
+
+class PersonCourse < View
+  def layout
+    set_data_class :Persons
+    @update = true
+    @order = 45
+    @functions_need = [:courses]
+
+    gui_vbox do
+      show_str_ro :first_name
+      show_str_ro :family_name
+      show_list_single :courses, :maxheight => 150
+      show_button :add, :delete
+      
+      gui_window :new_course do
+        show_list_single :courses_available, 'Entities.Courses.list_courses',
+          :maxheight => 150
+        show_button :add_course, :close
+      end
+    end
+  end
+  
+  def rpc_update( session )
+    reply( :empty_nonlists, [:courses] )
+  end
+  
+  def rpc_list_choice( session, name, args )
+    dputs( 3 ){ "args is #{args.inspect}" }
+    ret = reply( :empty_nonlists, [:courses] )
+    if name == "persons" and args['persons']
+      p = Entities.Persons.match_by_login_name( args['persons'].flatten[0] )
+      if p
+        ret += reply( :update, :courses => Entities.Courses.list_courses_for_person( p ) ) +
+          update_form_data( p )
+      end
+    end
+    ret
+  end
+
+  def rpc_button_add( session, args )
+    if args['persons'].flatten.length > 0
+      reply( :empty, [ :courses_available ] ) +
+        reply( :update, :courses_available => 
+          ( Entities.Courses.list_courses - 
+            Entities.Courses.list_courses_for_person( args['persons'].flatten[0] ) ) ) +
+        reply( :window_show, :new_course )
+    end
+  end
+  
+  def rpc_button_delete( session, args )
+    if ca = args['courses'] and ca.length > 0
+      c = Entities.Courses.match_by_id( ca[0] )
+      c.students.delete( args['persons'].flatten[0] )
+    end
+    rpc_list_choice( session, 'persons', args )    
+  end
+  
+  def rpc_button_add_course( session, args )
+    if ca = args['courses_available'] and ca.length > 0
+      c = Entities.Courses.match_by_id( ca[0] )
+      c.students_add args['persons'].flatten[0]
+    end
+    reply( :window_hide ) +
+      rpc_list_choice( session, 'persons', args )
+  end
+  
+  def rpc_button_close( session, args )
+    reply( :window_hide )
+  end
+
+end

data/Views/Person/Modify.rb

@@ -0,0 +1,153 @@
+# Allows to add, modify and delete persons
+
+class PersonModify < View
+  include PrintButton
+
+  def layout
+    set_data_class :Persons
+    @update = true
+    @order = 10
+
+    gui_hbox do
+      gui_vbox do
+        gui_fields do
+          show_str_ro :login_name, :width => 150
+          show_str_ro :person_id
+          show_block :address
+        end
+        gui_hbox :nogroup do
+          show_button :save, :print
+        end
+      end
+
+      gui_vbox :nogroup do
+        show_str :new_password
+        show_str_ro :password_plain
+        show_html :not_allowed
+        show_button :change_password
+      end
+
+      gui_window :printing do
+        show_html :msg_print
+        show_button :next_page, :close
+      end
+
+      gui_window :print_choice do
+        show_print :print_student
+        show_print :print_library
+        show_print :print_responsible
+        show_button :close
+      end
+    end
+  end
+
+  def rpc_button(session, name, data)
+    dputs(3) { "Pressed button #{name} with #{data.inspect}" }
+    person = Persons.match_by_person_id(data['person_id'])
+
+    rep = []
+    owner = session.owner
+    if person
+      case name
+        when 'change_password'
+          if owner.has_all_rights_of(person) ||
+              (owner.permissions.index(:center) &&
+                  person.login_name =~ /^#{owner.login_name}_/)
+            person.password = data['new_password']
+            rep = reply(:empty, [:new_password]) +
+                reply(:update, :password_plain => person.password_plain)
+          end
+        when 'save'
+          log_msg :persons, "#{session.owner.login_name} saves #{data.inspect}"
+          rep = reply(:update, Persons.save_data(data))
+        when 'print_student', 'print_library', 'print_responsible'
+          rep = reply(:window_hide) +
+              rpc_print(session, name, data)
+          files = ''
+          case name
+            when 'print_student'
+              person.lp_cmd = nil
+              files = OpenPrint.pdf_nup_duplex(person.print, 'student_cards')
+            when 'print_library'
+              files = ActivityPayments.active_for(person).first.print
+            when 'print_responsible'
+              person.lp_cmd = nil
+              files = person.print(:responsible)
+          end
+          if lpr = cmd_printer(session, name)
+            rep += reply(:window_show, :printing) +
+                reply(:unhide, :next_page) +
+                reply(:update, :msg_print => 'Printing front page')
+            System.run_bool("#{lpr} #{files[0]}")
+            session.s_data._person_page = files
+          else
+            rep += reply(:window_show, :printing) +
+                reply(:update, :msg_print => 'Click to download:<ul>' +
+                                 files.to_a.collect { |file|
+                                   "<li><a target='other' href=\"#{file}\">#{file}</a></li>" }.join +
+                                 '</ul>') +
+                reply(:hide, :next_page)
+          end
+        when 'next_page'
+          System.run_bool("#{cmd_printer(session, :print_student)} #{session.s_data._person_page[1]}")
+          rep += reply(:update, :msg_print => 'Printing back page') +
+              reply(:hide, :next_page)
+        when 'close'
+          rep += reply(:window_hide)
+        when 'print'
+          rep += reply(:window_show, :print_choice) +
+              reply_visible(ActivityPayments.active_for(person).size > 0, :print_library) +
+              reply_visible(person.is_responsible?, :print_responsible)
+      end
+    end
+
+    rep + rpc_update(session)
+  end
+
+  def rpc_find(session, field, data)
+    rep = Persons.find(field, data)
+    if not rep
+      rep = {"#{field}" => data}
+    end
+    update_layout(session) +
+        reply(:update, rep) + rpc_update(session)
+  end
+
+  def rpc_list_choice(session, name, data)
+    if name == 'persons'
+      dputs(3) { "Got data: #{data.inspect}" }
+      if data['persons'][0] and
+          p = Persons.match_by_login_name(data._persons.flatten[0])
+        can_change = p.show_password?(session.owner) ||
+            session.owner.has_permission?(:director)
+        change_pwd =
+            reply_one_two(can_change,
+                          %i(new_password password_plain change_password), :not_allowed) +
+                reply_visible(p.show_password?(session.owner), :password_plain) +
+                reply(:update, :not_allowed => "<b>Vous n'avez pas le droit<br>" +
+                                 'de changer ce mot de passe</b>')
+        dputs(4) { "change_pwd is #{change_pwd.inspect}" }
+        reply(:empty_nonlists) + reply(:update, p) +
+            reply(:update, update(session)) +
+            reply(:focus, :credit_add) + reply_print(session) + change_pwd
+      end
+    end
+  end
+
+  def update(session)
+    if person = session.owner
+      if ConfigBase.has_function? :accounting
+        {:your_account_total_due => person.account_total_due}
+      end
+    end
+  end
+
+  def rpc_update(session)
+    super(session) +
+        reply(:parent, reply(:focus, :search)) +
+        reply_print(session) +
+        (session.owner.permissions.index('center') ?
+            reply(:hide, :print_student) : [])
+  end
+
+end