Changeset 18520 for gsdl

Timestamp:

2009-02-16T11:50:33+13:00 (15 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.

File:

• gsdl/trunk/perllib/classify.pm (modified) (2 diffs)

gsdl/trunk/perllib/classify.pm

@@ -289 +289 @@
 
 
+our $next_classify_num = 1;
+
 # output_classify_info outputs all the info needed for the classification
 # to the database
@@ -302 +304 @@
 
     # get each of the classifications
-    my $next_classify_num = 1;
     foreach my $classifier (@$classifiers)
     {