Changeset 6809

Timestamp:

2004-02-17T09:36:51+13:00 (20 years ago)

Author:

mdewsnip

Message:

Additions for the GsdlCollageApplet: a classifier that displays a collage of the images in a collection. By Katrina Edgar (kde2).

File:

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

trunk/gsdl/perllib/classify.pm

@@ -39 +39 @@
 
 $next_classify_num = 1;
+$collage = 0;
 
 sub load_classifiers {
@@ -176 +177 @@
         
         if (defined ($tempinfo->{'classifyOID'})) {
+        # the third one is where we want to cut if it's a collage
+        if (defined ($tempinfo->{'Title'}) && $tempinfo->{'Title'} eq "Collage") {
+            $collage = 1;
+        }
         $contains_text .= $tempinfo->{'classifyOID'};
         &print_classify_info ($handle, $tempinfo, $tempinfo->{'classifyOID'},
                       $allclassifications);
+        $collage = 0;
         } elsif (defined ($tempinfo->{'OID'})) {
         $contains_text .= $tempinfo->{'OID'};
@@ -185 +191 @@
         # note: we don't want to print the contents of the books
         } else {
-        $contains_text .= "\".$next_subOID";
+        if (! $collage) { $contains_text .= "\".$next_subOID"; }
+        else { push (@{$tempinfo->{'childtype'}}, ""); $containstext = "";}
         &print_classify_info ($handle, $tempinfo, "$OID.$next_subOID",
                       $allclassifications);