examples/creating_lists.rb lib/rpoint/interop/lists.rb @@ -27,8 +27,9 @@ module RPoint # accessors attr_reader :web - # alias webs interop + # alias interop classes Webs = RPoint::Interop::Webs + Lists = RPoint::Interop::Lists def initialize(*args) @@ -50,9 +51,9 @@ module RPoint ## # Creates a new subweb - def create_web(name, type, options = {}, &blk) + def create_web(name, template, options = {}, &blk) # create our new web - new_web = Webs.create_web(@web, name, type, options) + new_web = Webs.create_web(@web, name, template, options) new_web_context = WebContext.new(new_web) # if we have a block, execute it in the scope of the new context @@ -63,6 +64,15 @@ module RPoint new_web_context end + + ## + # Creates a new list + def create_list(name, template, options = {}, &blk) + puts "creating list named #{name}" + new_list = Lists.create_list(@web, name, template, options) + puts "done" + end + end end end \ No newline at end of file lib/rpoint/contexts/web_context.rb @@ -1,4 +1,5 @@ require 'rpoint/interop/helpers' require 'rpoint/interop/sites' require 'rpoint/interop/webs' +require 'rpoint/interop/lists' require 'rpoint/interop/admin' \ No newline at end of file lib/rpoint/interop.rb @@ -1,8 +1,67 @@ -module RPoint - module Types - module Lists - class CustomList; end - class DocumentLibrary; end - end - end +module RPoint + module Types + module Lists + + TEMPLATES = [ + ['AdminTasks' , 'Administrator Tasks' , 1200 ], + ['Agenda' , 'Agenda (Meeting)' , 201 ], + ['Announcements' , 'Announcements' , 104 ], + ['Categories' , 'Categories (Blog)' , 303 ], + ['Comments' , 'Comments (Blog)' , 302 ], + ['Contacts' , 'Contacts' , 105 ], + ['CustomGrid' , 'Custom grid for a list' , 120 ], + ['DataConnectionLibrary', 'Data connection library for sharing information about external data connections', 130], + ['DataSources' , 'Data sources for a site' , 110 ], + ['Decision' , 'Decisions (Meeting)' , 204 ], + ['DiscussionBoard' , 'Discussion board' , 108 ], + ['DocumentLibrary' , 'Document library' , 101 ], + ['Events' , 'Calendar' , 106 ], + ['GanttTasks' , 'Project Tasks' , 150 ], + ['GenericList' , 'Custom list' , 100 ], + ['HomePageLibrary' , 'Workspace Pages (Meeting)' , 212 ], + ['IssueTracking' , 'Issue tracking' , 1100 ], + ['Links' , 'Links' , 103 ], + ['ListTemplateCatalog' , 'List Template gallery' , 114 ], + ['MasterPageCatalog' , 'Master Page gallery' , 116 ], + ['MeetingObjective' , 'Objectives (Meeting)' , 207 ], + ['Meetings' , 'Meeting Series (Meeting)' , 200 ], + ['MeetingUser' , 'Attendees (Meeting)' , 202 ], + ['NoCodeWorkflows' , 'No Code Workflows' , 117 ], + ['PictureLibrary' , 'Picture library' , 109 ], + ['Posts' , 'Posts (Blog)' , 301 ], + ['Survey' , 'Survey' , 102 ], + ['Tasks' , 'Tasks' , 107 ], + ['TextBox' , 'Text Box (Meeting)' , 210 ], + ['ThingsToBring' , 'Things To Bring (Meeting)' , 211 ], + ['UserInformation' , 'User Information' , 112 ], + ['WebPageLibrary' , 'Wiki Page Library' , 119 ], + ['WebPartCatalog' , 'Web Part gallery' , 113 ], + ['WebTemplateCatalog' , 'Site template gallery' , 111 ], + ['WorkflowHistory' , 'Workflow History' , 140 ], + ['WorkflowProcess' , 'Custom Workflow Process' , 118 ], + ['XMLForm' , 'XML Form library' , 115 ] + ] + + TEMPLATES.each do |template| + class_eval <<-END + class #{template[0]} + def self.id + #{template[2]} + end + + def self.description + '#{template[1]}' + end + end + END + + end + + end + end +end + +# create easy references to types +RPoint::Types::Lists::TEMPLATES.each do |template| + eval "#{template[0]} = RPoint::Types::Lists::#{template[0]}" end \ No newline at end of file lib/rpoint/types/lists.rb 6cacd209f961ddbc740115cdce368ebf98ad5475 Glen Cooper glen@glenc.net http://github.com/glenc/rpoint/commit/458e7cec409bcfa954617c54014f44315b1c2760 458e7cec409bcfa954617c54014f44315b1c2760 2008-08-10T21:42:10-07:00 2008-08-10T21:42:10-07:00 Added ability to creat lists 8bf6098718d36b37fb3fba21aea09f18a96d4c7d Glen Cooper glen@glenc.net