Changeset 240 for trunk


Ignore:
Timestamp:
1999-04-21T16:01:55+12:00 (25 years ago)
Author:
sjboddie
Message:

minor changes to all the classifiers to work with new browseaction

Location:
trunk/gsdl/perllib/classify
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/classify/AZClassify.pm

    r231 r240  
    7171
    7272    # write out top level entry
    73     $self->output_entry ($handle, $self->{'OID'}, "$self->{'metaname'} Classification", \@contents);
     73    $self->output_entry ($handle, $self->{'OID'}, $self->{'metaname'}, \@contents, "List");
    7474
    7575    # write out the entries for each sub-classification
    … …  
    7979
    8080    # write out top level entry
    81     $self->output_entry ($handle, $self->{'OID'}, "$self->{'metaname'} Classification", \@classlist);
     81    $self->output_entry ($handle, $self->{'OID'}, $self->{'metaname'}, \@classlist, "List");
    8282    }
    8383}
    … …  
    184184sub output_entry {
    185185    my $self = shift (@_);
    186     my ($handle, $OID, $title, $contentsref) = @_;
     186    my ($handle, $OID, $title, $contentsref, $classifytype) = @_;
    187187   
    188188    print $handle "[$OID]\n";
    189189    print $handle "<doctype>classify\n";
    190     print $handle "<hastext>0\n";
    191     print $handle "<title>$title\n";
     190    print $handle "<hastxt>0\n";
     191    print $handle "<Title>$title\n";
     192    print $handle "<classifytype>$classifytype\n" if defined $classifytype;
    192193    if (scalar @$contentsref) {
    193194    print $handle "<contains>", join (";", @$contentsref), "\n";

  • trunk/gsdl/perllib/classify/Hierarchy.pm

    r231 r240  
    109109    # top level of classification
    110110    map { $_ = "\".$_"; } sort numerically @$topcontents;
    111     $self->output_entry ($handle, $self->{'OID'}, "$self->{'metaname'} Classification",
    112              $topcontents);
     111    $self->output_entry ($handle, $self->{'OID'}, $self->{'metaname'},
     112             $topcontents, "Hierarchy");
    113113}
    114114
    115115sub output_entry {
    116116    my $self = shift (@_);
    117     my ($handle, $OID, $title, $contentsref) = @_;
     117    my ($handle, $OID, $title, $contentsref, $classifytype) = @_;
    118118   
    119119    print $handle "[$OID]\n";
    120120    print $handle "<doctype>classify\n";
    121     print $handle "<hastext>0\n";
    122     print $handle "<title>$title\n";
     121    print $handle "<hastxt>0\n";
     122    print $handle "<Title>$title\n";
     123    print $handle "<classifytype>$classifytype\n" if defined $classifytype;
    123124    if (scalar @$contentsref) {
    124125    print $handle "<contains>", join (";", @$contentsref), "\n";

  • trunk/gsdl/perllib/classify/list.pm

    r214 r240  
    4545    print $handle "<doctype>classify\n";
    4646    print $handle "<hastxt>0\n";
    47     print $handle "<title>Document Listing\n";
     47    print $handle "<classifytype>List\n";
     48    print $handle "<Title>Document Listing\n";
    4849    if (scalar (@{$self->{'list'}}) > 0) {
    4950    print $handle "<contains>", join (";", @{$self->{'list'}}), "\n";
Note: See TracChangeset for help on using the changeset viewer.