Changeset 18520

Show
Ignore:
Timestamp:
16.02.2009 11:50:33 (11 years ago)
Author:
davidb
Message:

The variable $next_classify_num used to be global to the file. This was tied up and made a local variable, however some non-standard classifiers need to access this. Have made it a 'our' variable to keep things tidy, but still allow external access to its value from classifiers.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/classify.pm

    r18455 r18520  
    289289 
    290290 
     291our $next_classify_num = 1; 
     292 
    291293# output_classify_info outputs all the info needed for the classification 
    292294# to the database 
     
    302304 
    303305    # get each of the classifications 
    304     my $next_classify_num = 1; 
    305306    foreach my $classifier (@$classifiers) 
    306307    {