--- loncom/interface/lonhelper.pm	2003/05/05 18:05:21	1.19
+++ loncom/interface/lonhelper.pm	2003/05/07 19:24:07	1.23
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.19 2003/05/05 18:05:21 bowersj2 Exp $
+# $Id: lonhelper.pm,v 1.23 2003/05/07 19:24:07 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1835,6 +1835,10 @@ sub render {
 
     my $filterFunc = $self->{FILTER_FUNC};
     my $buttons = '';
+    my $type = 'radio';
+    if ($self->{'multichoice'}) {
+        $type = 'checkbox';
+    }
 
     if ($self->{'multichoice'}) {
         $result = <<SCRIPT;
@@ -1847,14 +1851,30 @@ sub render {
             }
         }
     }
+
+    function checkallclass(value, className) {
+        for (i=0; i<document.forms.helpform.elements.length; i++) {
+            ele = document.forms.helpform.elements[i];
+            if (ele.type == "$type" && ele.onclick) {
+                document.forms.helpform.elements[i].checked=value;
+            }
+        }
+    }
 </script>
 SCRIPT
         $buttons = <<BUTTONS;
 <br /> &nbsp;
 <input type="button" onclick="checkall(true, '$var')" value="Select All Files" />
 <input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" />
+BUTTONS
+
+        if ($helper->{VARS}->{'construction'}) {
+            $buttons .= <<BUTTONS;
+<input type="button" onclick="checkallclass(true, 'Published')" value="Select All Published" />
+<input type="button" onclick="checkallclass(false, 'Published')" value="Unselect All Published" />
 <br /> &nbsp;
 BUTTONS
+       }
     }
 
     # Get the list of files in this directory.
@@ -1876,15 +1896,11 @@ BUTTONS
         $result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';
     }
 
-    $result .= '<table border="0" cellpadding="1" cellspacing="1">';
+    $result .= '<table border="0" cellpadding="2" cellspacing="0">';
 
     # Keeps track if there are no choices, prints appropriate error
     # if there are none. 
     my $choices = 0;
-    my $type = 'radio';
-    if ($self->{'multichoice'}) {
-        $type = 'checkbox';
-    }
     # Print each legitimate file choice.
     for my $file (@fileList) {
         $file = (split(/&/, $file))[0];
@@ -1893,14 +1909,36 @@ BUTTONS
         }
         my $fileName = $subdir .'/'. $file;
         if (&$filterFunc($file)) {
-            $result .= '<tr><td align="right">' .
-                "<input type='$type' name='" . $var
+            (my $status, my $color) = @{fileState($subdir, $file)};
+
+            # Netscape 4 is stupid and there's nowhere to put the
+            # information on the input tag that the file is Published,
+            # Unpublished, etc. In *real* browsers we can just say
+            # "class='Published'" and check the className attribute of
+            # the input tag, but Netscape 4 is too stupid to understand
+            # that attribute, and un-comprehended attributes are not
+            # reflected into the object model. So instead, what I do 
+            # is either have or don't have an "onclick" handler that 
+            # does nothing, give Published files the onclick handler, and
+            # have the checker scripts check for that. Stupid and clumsy,
+            # and only gives us binary "yes/no" information (at least I
+            # couldn't figure out how to reach into the event handler's
+            # actual code to retreive a value), but it works well enough
+            # here.
+        
+            my $onclick = '';
+            if ($status eq 'Published' && $helper->{VARS}->{'construction'}) {
+                $onclick = 'onclick="a=1" ';
+            }
+            $result .= '<tr><td align="right"' . " bgcolor='$color'>" .
+                "<input $onclick type='$type' name='" . $var
             . ".forminput' value='" . HTML::Entities::encode($fileName) .
                 "'";
             if (!$self->{'multichoice'} && $choices == 0) {
                 $result .= ' checked';
             }
-            $result .= "/></td><td>" . $file . "</td></tr>\n";
+            $result .= "/></td><td bgcolor='$color'>" . $file .
+                 "</td><td bgcolor='$color'>$status</td></tr>\n";
             $choices++;
         }
     }
@@ -1916,6 +1954,37 @@ BUTTONS
     return $result;
 }
 
+# Determine the state of the file: Published, unpublished, modified.
+# Return the color it should be in and a label as a two-element array
+# reference.
+# Logic lifted from lonpubdir.pm, even though I don't know that it's still
+# the most right thing to do.
+
+sub fileState {
+    my $constructionSpaceDir = shift;
+    my $file = shift;
+    
+    my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};
+    my $subdirpart = $constructionSpaceDir;
+    $subdirpart =~ s/^\/home\/$ENV{'user.name'}\/public_html//;
+    my $resdir = $docroot . '/res/' . $ENV{'user.domain'} . '/' . $ENV{'user.name'} .
+        $subdirpart;
+
+    my @constructionSpaceFileStat = stat($constructionSpaceDir . '/' . $file);
+    my @resourceSpaceFileStat = stat($resdir . '/' . $file);
+    if (!@resourceSpaceFileStat) {
+        return ['Unpublished', '#FFCCCC'];
+    }
+
+    my $constructionSpaceFileModified = $constructionSpaceFileStat[9];
+    my $resourceSpaceFileModified = $resourceSpaceFileStat[9];
+    
+    if ($constructionSpaceFileModified > $resourceSpaceFileModified) {
+        return ['Modified', '#FFFFCC'];
+    }
+    return ['Published', '#CCFFCC'];
+}
+
 sub postprocess {
     my $self = shift;
     my $result = $ENV{'form.' . $self->{'variable'} . '.forminput'};