|
From: Chris W. <la...@us...> - 2001-10-26 21:09:07
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/conf
In directory usw-pr-cvs1:/tmp/cvs-serv7096/conf
Modified Files:
action.perl spops.perl
Log Message:
added data structure, startup data, lookup table action, object
definition and simple class method for keeping track of content types
Index: action.perl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/conf/action.perl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** action.perl 2001/10/24 23:04:17 1.4
--- action.perl 2001/10/26 21:09:05 1.5
***************
*** 6,9 ****
--- 6,19 ----
},
+ 'contenttype' => {
+ is_lookup => 'yes',
+ object_key => 'content_type',
+ order => 'mime_type',
+ field_list => [ 'mime_type', 'extensions', 'description' ],
+ label_list => [ 'MIME Type', 'Extensions', 'Description' ],
+ size_list => [ 12, 10, 20 ],
+ title => 'Content Types',
+ },
+
'editdocumentbox' => { redir => 'edit_document_box' },
'edit_document_box' => {
Index: spops.perl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/conf/spops.perl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** spops.perl 2001/10/24 23:04:19 1.4
--- spops.perl 2001/10/26 21:09:05 1.5
***************
*** 37,39 ****
--- 37,50 ----
object_name => 'Document',
},
+
+ 'content_type' => {
+ class => 'OpenInteract::ContentType',
+ isa => [ qw/ OpenInteract::SPOPS::DBI SPOPS::DBI::MySQL SPOPS::DBI / ],
+ field => [ qw/ mime_type extensions description / ],
+ id_field => 'content_type_id',
+ base_table => 'content_type',
+ name => 'mime_type',
+ object_name => 'Content Type',
+ display => { url => '/Lookups/' },
+ },
};
|