[BACK]Return to lonpublisher.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpublisher.pm between versions 1.8 and 1.9

version 1.8, 2000/12/01 12:08:01 version 1.9, 2000/12/01 16:17:46
Line 18  use Apache::lonhomework; Line 18  use Apache::lonhomework;
   
 my %addid;  my %addid;
 my %nokey;  my %nokey;
   my %language;
 my %metadatafields;  my %metadatafields;
 my %metadatakeys;  my %metadatakeys;
   
Line 79  sub textfield { Line 79  sub textfield {
            '<input type=text size=80 value="'.$value.'">';             '<input type=text size=80 value="'.$value.'">';
 }  }
   
   sub selectbox {
       my ($title,$value,%options)=@_;
   }
   
 sub publish {  sub publish {
   
     my ($source,$target,$style)=@_;      my ($source,$target,$style)=@_;
Line 351  sub publish { Line 355  sub publish {
   
         }                   }         
                   
 # DEGUG  
    
  $scrout.=$keywordout;   $scrout.=$keywordout;
   
           $scrout.=&textfield('Notes',$metadatafields{'notes'});
   
           $scrout.=
                '<p><b>Abstract:</b><br><textarea cols=80 rows=5 name=abstract>'.
                 $metadatafields{'abstract'}.'</textarea>';
   
           $scrout.=&selectbox('Language',$metadatafields{'language'},%language);
      
    $scrout.=&textfield('Publisher/Owner',$metadatafields{'owner'});
   
     }      }
     return $scrout.      return $scrout.
       '<p><input type="submit" value="Finalize Publication"></form>';        '<p><input type="submit" value="Finalize Publication"></form>';
Line 432  sub handler { Line 445  sub handler {
           $nokey{$word}=1;            $nokey{$word}=1;
       } <$fh>;        } <$fh>;
   }    }
   
     %language=();
   
     {
        my $fh=Apache::File->new($r->dir_config('lonTabDir').'/language.tab');
         map {
             $_=~/(\w+)\s+([\w\s]+)/;
             $language{$1}=$2;
         } <$fh>;
     }
 # ----------------------------------------------------------- Start page output  # ----------------------------------------------------------- Start page output
   
   $r->content_type('text/html');    $r->content_type('text/html');
Removed from v.1.8  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>