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

Diff for /loncom/publisher/lonpublisher.pm between versions 1.168 and 1.171

version 1.168, 2004/05/21 20:01:15 version 1.171, 2004/06/11 02:27:27
Line 1259  END Line 1259  END
     $intr_scrout.=&textfield('Custom Distribution File','customdistributionfile',      $intr_scrout.=&textfield('Custom Distribution File','customdistributionfile',
  $metadatafields{'customdistributionfile'}).   $metadatafields{'customdistributionfile'}).
     $copyright_help;      $copyright_help;
       $intr_scrout.=&selectbox('Source Distribution','sourceavail',
       $defaultoption,
       \&Apache::loncommon::source_copyrightdescription,
       (&Apache::loncommon::source_copyrightids));
    $intr_scrout.=&textfield('Source Custom Distribution File','sourcerights',
    $metadatafields{'sourcerights'});
     my $uctitle=&mt('Obsolete');      my $uctitle=&mt('Obsolete');
             $intr_scrout.=              $intr_scrout.=
  "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".   "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
Line 1362  sub phasetwo { Line 1368  sub phasetwo {
     $metadatafields{'highestgradelevel'}=$ENV{'form.highestgradelevel'};      $metadatafields{'highestgradelevel'}=$ENV{'form.highestgradelevel'};
     $metadatafields{'customdistributionfile'}=      $metadatafields{'customdistributionfile'}=
                                  $ENV{'form.customdistributionfile'};                                   $ENV{'form.customdistributionfile'};
       $metadatafields{'sourceavail'}=$ENV{'form.sourceavail'};
     $metadatafields{'obsolete'}=$ENV{'form.obsolete'};      $metadatafields{'obsolete'}=$ENV{'form.obsolete'};
     $metadatafields{'obsoletereplacement'}=      $metadatafields{'obsoletereplacement'}=
                         $ENV{'form.obsoletereplacement'};                          $ENV{'form.obsoletereplacement'};
Line 1378  sub phasetwo { Line 1385  sub phasetwo {
             $allkeywords .= ','.$ENV{'form.keywords'};              $allkeywords .= ','.$ENV{'form.keywords'};
         }          }
     }      }
     $allkeywords=~s/[\;\,]/\,/;  
     $allkeywords=~s/[\"\']//g;      $allkeywords=~s/[\"\']//g;
       $allkeywords=~s/\s*[\;\,]\s*/\,/g;
     $allkeywords=~s/\s+/ /g;      $allkeywords=~s/\s+/ /g;
     $allkeywords=~s/^[ \,]//;      $allkeywords=~s/^[ \,]//;
     $allkeywords=~s/[ \,]$//;      $allkeywords=~s/[ \,]$//;
Removed from v.1.168  
changed lines
  Added in v.1.171

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