[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[banghart]

banghart		Mon Dec  6 13:08:40 2004 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  	Including () after Perl internals.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.573 loncom/lonnet/perl/lonnet.pm:1.574
--- loncom/lonnet/perl/lonnet.pm:1.573	Sat Dec  4 13:35:27 2004
+++ loncom/lonnet/perl/lonnet.pm	Mon Dec  6 13:08:39 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.573 2004/12/04 18:35:27 banghart Exp $
+# $Id: lonnet.pm,v 1.574 2004/12/06 18:08:39 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3824,35 +3824,44 @@
     foreach (@files) {
         &logthis("current dir file $_");
     }
-    open OUT, '>'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename;
+    open (OUT, '>'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename);
     foreach my $file (@files) {
-        print OUT $ENV{'form.currentpath'}.$file."\n";
+        print (OUT $ENV{'form.currentpath'}.$file."\n");
     }
     foreach my $file (@other_files) {
-        print OUT $file."\n";
+        print (OUT $file."\n");
     }
-    close OUT;
+    close (OUT);
     return 'ok';
 }
 
+sub clear_selected_files {
+    my ($user) = @_;
+    my $filename = $user."savedfiles";
+    open (OUT, '>'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename);
+    print (OUT undef);
+    close (OUT);
+    return ("ok");    
+}
+
 sub files_in_path {
     my ($user, $path) = @_;
     my $filename = $user."savedfiles";
     my %return_files;
-    open IN, '<'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename;
+    open (IN, '<'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename);
     while (my $line_in = <IN>) {
-        chomp $line_in;
-        my @paths_and_file = split m!/!, $line_in;
-        my $file_part = pop @paths_and_file;
-        my $path_part = join '/', @paths_and_file;
+        chomp ($line_in);
+        my @paths_and_file = split (m!/!, $line_in);
+        my $file_part = pop (@paths_and_file);
+        my $path_part = join ('/', @paths_and_file);
         $path_part.='/';
         my $path_and_file = $path_part.$file_part;
         if ($path_part eq $path) {
             $return_files{$file_part}= 'selected';
         }
     }
-    close IN;
-    return \%return_files;
+    close (IN);
+    return (\%return_files);
 }
 
 # called in portfolio select mode, to show files selected NOT in current directory
@@ -3861,21 +3870,21 @@
     my $filename = $user."savedfiles";
     my @return_files;
     my $path_part;
-    open IN, '<'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename;
+    open (IN, '<'.$Apache::lonnet::perlvar{'lonDaemons'}.'/tmp/'.$filename);
     while (<IN>) {
         #ok, I know it's clunky, but I want it to work
         my @paths_and_file = split m!/!, $_;
-        my $file_part = pop @paths_and_file;
-        chomp $file_part;
-        my $path_part = join '/', @paths_and_file;
+        my $file_part = pop (@paths_and_file);
+        chomp ($file_part);
+        my $path_part = join ('/', @paths_and_file);
         $path_part .= '/';
         my $path_and_file = $path_part.$file_part;
         if ($path_part ne $path) {
-            push @return_files, ($path_and_file);
+            push (@return_files, ($path_and_file));
         }
     }
-    close OUT;
-    return @return_files;
+    close (OUT);
+    return (@return_files);
 }
 
 #--------------------------------------------------------------Get Marked as Read Only