Editing Dataset Manipulation, Triggers and Events (section)

=Adding New Datasets=

Adding new datasets is much the same as adding to an existing one other than the fact we need to define the dataset and the basic class wrappers.

  # Enable the event
  $c->{plugins}{"Event::ScanFile"}{params}{disable} = 0;
  
  # Define the dataset
  $c->{datasets}->{package_dataset} = {
       class => "EPrints::DataObj::PackageDataset",
       sqlname => "package_dataset",
       datestamp => "datestamp",       
       sql_counter => "datasetid",
  };
  
  # Add fields to the dataset
  $c->add_dataset_field( "package_dataset", { name=>"datasetid", type=>"counter", required=>1, can_clone=>0, sql_counter=>"datasetid" }, );
  $c->add_dataset_field( "package_dataset", { name=>"name", type=>"text", required=>0, }, );
  $c->add_dataset_field( "package_dataset", { name=>"count", type=>"int", required=>0, }, );
  
  # Define the class, this can either be done using a new file in the right place, or by using this override trick, open a '{' and then continue as it this is new file
  {
    package EPrints::DataObj::PackageDataset;
  
    our @ISA = qw( EPrints::DataObj );
    
    # The new method can simply return the constructor of the super class (Dataset)
    sub new
    {
        return shift->SUPER::new( @_ );
    }
  
    # This method is required to just return the dataset_id.
    sub get_dataset_id
    {
        my ($self) = @_;
        return "package_dataset";
    }
  
  }