--- loncom/interface/lonindexer.pm	2004/05/18 15:53:58	1.108
+++ loncom/interface/lonindexer.pm	2004/06/12 01:08:11	1.109
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.108 2004/05/18 15:53:58 albertel Exp $
+# $Id: lonindexer.pm,v 1.109 2004/06/12 01:08:11 taceyjo1 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -52,6 +52,7 @@ use Apache::Constants qw(:common);
 use Apache::lonmeta;
 use Apache::File;
 use Apache::lonlocal;
+use Apache::lonsource();
 use GDBM_File;
 
 # ---------------------------------------- variables used throughout the module
@@ -406,7 +407,7 @@ $r->print(&Apache::loncommon::bodytag('B
 	
 # ---------------------------------- get state of file attributes to be showing
 	if ($ENV{'form.attrs'}) {
-	    for (my $i=0; $i<=9; $i++) {
+	    for (my $i=0; $i<=10; $i++) {
 		delete $hash{'display_attrs_'.$i};
 		if ($ENV{'form.attr'.$i} == 1) {
 		    $attrchk[$i] = 'checked';
@@ -414,7 +415,7 @@ $r->print(&Apache::loncommon::bodytag('B
 		}
 	    }
 	} else {
-	    for (my $i=0; $i<=9; $i++) {
+	    for (my $i=0; $i<=10; $i++) {
 		$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1;
 	    }
 	}
@@ -431,6 +432,7 @@ $r->print(&Apache::loncommon::bodytag('B
 					   'au' => 'Author',
 					   'kw' => 'Keywords',
 					   'ln' => 'Language',
+					   'sa' => 'Source Available',
 					   'sr' => 'Show resource',
 					   'av' => 'All versions',
 					   'ud' => 'Update Display'
@@ -446,6 +448,7 @@ $r->print(&Apache::loncommon::bodytag('B
 <td><input type="checkbox" name="attr2" value="1" $attrchk[2] onClick="this.form.submit();" /> $lt{'la'}</td>
 <td><input type="checkbox" name="attr3" value="1" $attrchk[3] onClick="this.form.submit();" /> $lt{'lm'}</td>
 <td><input type="checkbox" name="attr8" value="1" $attrchk[8] onClick="this.form.submit();" /> $lt{'st'}</td>
+<td><input type="checkbox" name="attr10" value="1" $attrchk[10] onClick="this.form.submit();" /> $lt{'sa'}</td>
 </tr><tr>
 <td><input type="checkbox" name="attr4" value="1" $attrchk[4] onClick="this.form.submit();" /> $lt{'au'}</td>
 <td><input type="checkbox" name="attr5" value="1" $attrchk[5] onClick="this.form.submit();" /> $lt{'kw'}</td>
@@ -511,6 +514,8 @@ END
 	$r->print("<td><b>".&mt("Usage Statistics")." <br />(".
 		  &mt("Courses/Network Hits").")</b></td>\n")
 	    if ($hash{'display_attrs_8'} == 1);
+	$r->print("<td><b>".&mt("Source Available")."</b></td>\n")
+	    if ($hash{'display_attrs_10'} == 1);
 	$r->print('</tr>');
 
 # ----------------- read in what directories have previously been set to "open"
@@ -749,12 +754,11 @@ sub display_line {
 
     my $tabtag='</td>';
     my $i=0;
-    while ($i<=8) {
+    while ($i<=11) {
 	$tabtag=join('',$tabtag,"<td>&nbsp;</td>")
 	    if $hash{'display_attrs_'.$i} == 1;
 	$i++;
     }
-	
     my $valign = ($hash{'display_attrs_7'} == 1 ? 'top' : 'bottom');
 
 # display uplink arrow
@@ -960,6 +964,8 @@ sub display_line {
 	    $r->print('<td> '.($keywords eq '' ? '&nbsp;' : $keywords).
 		      " </td>\n");
 	}
+#'
+
 	if ($hash{'display_attrs_6'} == 1) {
 	    my $lang = &Apache::lonnet::metadata($filelink,'language');
 	    $lang = &Apache::loncommon::languagedescription($lang);
@@ -1002,7 +1008,17 @@ sub display_line {
 	    $r->print('<td align=center> '.($stat eq '' ? '&nbsp;' : $stat).
 		      ' </td>'."\n");
 	}
-
+	if ($hash{'display_attrs_10'} == 1) {
+	    my $source = &Apache::lonnet::metadata($filelink,'sourceavail');
+		 if($source eq 'open') {
+		 my $sourcelink = &Apache::lonsource::make_link($filelink);
+		  $r->print('<td>'."<a href=\"javascript:openWindow('".$sourcelink.
+		   "', 'previewsource', '700', '700', 'no', 'yes','yes')\";".
+		   " TARGET=_self>Yes</a> "."</td>\n");
+		 } else { #A cuddled else. :P
+		   $r->print('<td>'."</td>\n");
+		 }
+	}
 	$r->print("</tr>\n");
     }
 
@@ -1079,6 +1095,9 @@ sub display_line {
 	if ($hash{'display_attrs_8'} == 1) {
 	   $r->print('<td>&nbsp;</td>');
 	}
+	if ($hash{'display_attrs_10'} == 1) {
+	   $r->print('<td>&nbsp;</td>');
+	}
 	$r->print('</form></tr>');
     }