Opensource.Platon.SK CVS: scripts/cgi/cvsweb/lang/sk.pm - diff

   Vyššie na [Platon] / scripts / cgi / cvsweb / lang
Rozdiely pre scripts/cgi/cvsweb/lang/sk.pm medzi verziami 1.5 a 1.6


verzia 1.5, 2002/11/22 18:34:48
verzia 1.6, 2002/11/22 20:04:15



Riadok 1 




Riadok 1 




 
 


 # $Platon$
 # $Platon: scripts/cgi/cvsweb/lang/sk.pm,v 1.5 2002/11/22 18:34:48 rajo Exp $


 
 


 package lang::sk;
 package lang::sk;


 use strict;
 use strict;




Riadok 82  sub _($)




Riadok 82  sub _($)




     fatal("404 Not Found", _('Malformed query "%s"'), $ENV{QUERY_STRING});
     fatal("404 Not Found", _('Malformed query "%s"'), $ENV{QUERY_STRING});


     fatal("404 Not Found", _('%s is not (any longer) pertinent'), $where);
     fatal("404 Not Found", _('%s is not (any longer) pertinent'), $where);


           _('Unexpected output from cvs co: %s'), $cvsheader);
           _('Unexpected output from cvs co: %s'), $cvsheader);


         '' -> '',
   print _("File"), ": ", &clickablePath($where, 1);


         '' -> '',
   &download_link($fileurl, $revision, _("download"));


 );
     &download_link($fileurl, $revision, _("as text"), "text/plain");


 
     print _("Version"), ": <b>$revision</b><br>\n";


 
     print _("Tag"), ": <b>", $input{only_with_tag}, "</b><br>\n"


 
           _('Access forbidden.  This file is mentioned in @ForbiddenFiles'));


 
     fatal("404 Not Found", _('Malformed query "%s"'), $ENV{QUERY_STRING});


 
     fatal("400 Bad arguments", _('Diff format %s not understood'), $f);


 
           _('Failed to spawn GNU rlog on <em>"%s"</em>.  <p>Did you set the <b>$command_path</b> in your configuration file correctly ? (Currently "%s"'),


 
       fatal("500 Internal Error", _('Error parsing RCS output: %s'), $_);


 
       fatal("404 Tag not found", _('Tag %s not defined'),


 
       &download_link($fileurl, $_, _("download"), $mimetype);


 
       &download_link($fileurl, $_, _("as text"), "text/plain");


 
       &download_link($fileurl, $_, _("view"), "text/x-cvsweb-markup");


 
       print &link(_('annotate'),


 
         print '<b>[', _('selected'), ']</b>';


 
         print &link('[', _('select&nbsp;for&nbsp;diffs'), ']',


 
     print _("Revision"), " <b>$_</b>";


 
     print " <i>(", _("vendor branch"), ")</i>";


 
   print readableTime(time() - $date{$_}, 1), ' ', _('ago'), ')';


 
     printf "<br>", _("Branch"), ": <b>%s</b>\n",


 
     printf "<br>", _("CVS Tags"), ": <b>%s</b>\n",


 
     printf "<br>", _("Branch point for"), ": <b>%s</b>\n",


 
       print "<br>", _("Changes since"), " <b>$prev: $difflines{$_} ", _("lines"), "</b>";


 
     print "<br><b><i>", _("FILE REMOVED"), "</i></b>\n";


 
   my $title = sprintf _('Revision graph of %s'), htmlquote($pathname . $filename);


 
   html_header(_("CVS log for") . " $where");


 
   print &link(_('Request diff between arbitrary revisions'), '#diff');


 
     print ' / ', &graph_link('', 1, _('Display revisions graphically'));


 
     print _("Default branch"), ": ", ($revsym{$curbranch} || $curbranch);


 
     print _("No default branch");


 
     print _("Current tag"), ": $input{only_with_tag}<br>\n";


 
 


 
   print _("This form allows you to request diff's between any two\n" .


 
           "revisions of a file.  You may select a symbolic revision\n" .


 
           "name using the selection box or you may type in a numeric\n" .


 
                   "name using the type-in text box.\n");


 
 


 
   print "<label for=\"r1\" accesskey=\"1\">", _("Diffs between"), " </label>\n";


 
   print "<option value=\"text\" selected>", _("Use Text Field"), "</option>\n";


 
   print "<option value=\"text\" selected>", _("Use Text Field"), "</option>\n";


 
     "<td><input type=\"submit\" value=\"", _("  Get Diffs  "), "\" accesskey=\"G\"></td>\n";


 
   print "<label for=\"f\" accesskey=\"D\">", _("Preferred Diff type"), ":";


 
     print _("View only Branch"), ":</label></td>\n";


 
     print ">", _("Show all branches"), "</option>\n";


 
   print "<label for=\"logsort\" accesskey=\"L\">", _("Sort log by"), ":";


 
 


 
   print "<h3 style=\"text-align: center\">",


 
         _("Diff for %s between version %s and %s"), $where_nd, $rev1, $rev2, "</h3>\n",


 
     "<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\">\n",


 
     "<tr style=\"background-color: #ffffff\">\n",


 
     "<th style=\"text-align: center; vertical-align: top\" width=\"50%\">",


 
     _("version"), " $rev1";


 
 


 
   print "<br>", _("Tag"), ": $sym1\n" if ($sym1);


 
 


 
 


 
         _("version"), " $rev2";


 
   print "<br>", _("Tag"), ": $sym2\n" if ($sym1);


 
                 _("Line"), "&nbsp;$oldline</b>";


 
                 _("No viewable change"), " -</b></td>\n</tr>\n";


 
         _("Removed from v."), "$rev1</td>\n<td class=\"diff-empty\">&nbsp;</td>\n</tr>\n";


 
         _("changed lines"), "</td>\n</tr>\n";


 
         _("Added in v."), ".$rev2</td>\n</tr>\n";


 
   print "<input type=\"submit\" value=\"", _("Show"), "\">\n";


 
   printf '<b>', _('Return to %s CVS log'),


 
   print "<td align=\"right\">$diricon <b>", _("Up to "), &clickablePath($path, 1),


 
     return _("very little time");


 
 


 
 


 
   my %desc = (


 
               1        => _('second'),


 
               60       => _('minute'),


 
               3600     => _('hour'),


 
               86400    => _('day'),


 
               604800   => _('week'),


 
               2628000  => _('month'),


 
               31536000 => _('year')


 
              );


 
 


 
 


 
       "<td><label for=\"cvsroot\" accesskey=\"C\">", _("CVS Root"), ":</label></td>\n";


 
     print _("CVS Root"), ": <b>[$cvstree]</b>";


 
   print "<label for=\"mpath\" accesskey=\"M\">", _("Module path or alias"), ":</label>\n";


 
   print "<input type=\"submit\" value=\"", _("Go"), "\" accesskey=\"O\">";


 
   print "\n<p>\n", _("This CVSweb is mirrored in"), "\n";


 
     print join (', ', @tmp), _(' and ');


 
 


 
       print "<span style=\"font-size: smaller\">",\


 
                 _("Unable to find gzip binary in the <b>\$command_path</b> (%s) to compress output",


 
                 $command_path, "</span><br>";


 
 


 1;
 


 
 









Legend:


Odstranené z verzie1.5
 


zmenené riadky


 
Pridané vo verzii1.6


















Platon Group <platon@platon.sk> http://platon.sk/
  Vyššie na [Platon] / scripts / cgi / cvsweb / lang
-verzia 1.5, 2002/11/22 18:34:48
+verzia 1.6, 2002/11/22 20:04:15
 Riadok 1
 Riadok 1
 Riadok 1
- # $Platon$
+ # $Platon: scripts/cgi/cvsweb/lang/sk.pm,v 1.5 2002/11/22 18:34:48 rajo Exp $
  package lang::sk;
  use strict;
 Riadok 82  sub _($)
 Riadok 82  sub _($)
 Riadok 82  sub _($)
      fatal("404 Not Found", _('Malformed query "%s"'), $ENV{QUERY_STRING});
      fatal("404 Not Found", _('%s is not (any longer) pertinent'), $where);
            _('Unexpected output from cvs co: %s'), $cvsheader);
-         '' -> '',
+   print _("File"), ": ", &clickablePath($where, 1);
-         '' -> '',
+   &download_link($fileurl, $revision, _("download"));
- );
+     &download_link($fileurl, $revision, _("as text"), "text/plain");
+     print _("Version"), ": <b>$revision</b><br>\n";
+     print _("Tag"), ": <b>", $input{only_with_tag}, "</b><br>\n"
+           _('Access forbidden.  This file is mentioned in @ForbiddenFiles'));
+     fatal("404 Not Found", _('Malformed query "%s"'), $ENV{QUERY_STRING});
+     fatal("400 Bad arguments", _('Diff format %s not understood'), $f);
+           _('Failed to spawn GNU rlog on <em>"%s"</em>.  <p>Did you set the <b>$command_path</b> in your configuration file correctly ? (Currently "%s"'),
+       fatal("500 Internal Error", _('Error parsing RCS output: %s'), $_);
+       fatal("404 Tag not found", _('Tag %s not defined'),
+       &download_link($fileurl, $_, _("download"), $mimetype);
+       &download_link($fileurl, $_, _("as text"), "text/plain");
+       &download_link($fileurl, $_, _("view"), "text/x-cvsweb-markup");
+       print &link(_('annotate'),
+         print '<b>[', _('selected'), ']</b>';
+         print &link('[', _('select&nbsp;for&nbsp;diffs'), ']',
+     print _("Revision"), " <b>$_</b>";
+     print " <i>(", _("vendor branch"), ")</i>";
+   print readableTime(time() - $date{$_}, 1), ' ', _('ago'), ')';
+     printf "<br>", _("Branch"), ": <b>%s</b>\n",
+     printf "<br>", _("CVS Tags"), ": <b>%s</b>\n",
+     printf "<br>", _("Branch point for"), ": <b>%s</b>\n",
+       print "<br>", _("Changes since"), " <b>$prev: $difflines{$_} ", _("lines"), "</b>";
+     print "<br><b><i>", _("FILE REMOVED"), "</i></b>\n";
+   my $title = sprintf _('Revision graph of %s'), htmlquote($pathname . $filename);
+   html_header(_("CVS log for") . " $where");
+   print &link(_('Request diff between arbitrary revisions'), '#diff');
+     print ' / ', &graph_link('', 1, _('Display revisions graphically'));
+     print _("Default branch"), ": ", ($revsym{$curbranch} || $curbranch);
+     print _("No default branch");
+     print _("Current tag"), ": $input{only_with_tag}<br>\n";
+   print _("This form allows you to request diff's between any two\n" .
+           "revisions of a file.  You may select a symbolic revision\n" .
+           "name using the selection box or you may type in a numeric\n" .
+                   "name using the type-in text box.\n");
+   print "<label for=\"r1\" accesskey=\"1\">", _("Diffs between"), " </label>\n";
+   print "<option value=\"text\" selected>", _("Use Text Field"), "</option>\n";
+   print "<option value=\"text\" selected>", _("Use Text Field"), "</option>\n";
+     "<td><input type=\"submit\" value=\"", _("  Get Diffs  "), "\" accesskey=\"G\"></td>\n";
+   print "<label for=\"f\" accesskey=\"D\">", _("Preferred Diff type"), ":";
+     print _("View only Branch"), ":</label></td>\n";
+     print ">", _("Show all branches"), "</option>\n";
+   print "<label for=\"logsort\" accesskey=\"L\">", _("Sort log by"), ":";
+   print "<h3 style=\"text-align: center\">",
+         _("Diff for %s between version %s and %s"), $where_nd, $rev1, $rev2, "</h3>\n",
+     "<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\">\n",
+     "<tr style=\"background-color: #ffffff\">\n",
+     "<th style=\"text-align: center; vertical-align: top\" width=\"50%\">",
+     _("version"), " $rev1";
+   print "<br>", _("Tag"), ": $sym1\n" if ($sym1);
+         _("version"), " $rev2";
+   print "<br>", _("Tag"), ": $sym2\n" if ($sym1);
+                 _("Line"), "&nbsp;$oldline</b>";
+                 _("No viewable change"), " -</b></td>\n</tr>\n";
+         _("Removed from v."), "$rev1</td>\n<td class=\"diff-empty\">&nbsp;</td>\n</tr>\n";
+         _("changed lines"), "</td>\n</tr>\n";
+         _("Added in v."), ".$rev2</td>\n</tr>\n";
+   print "<input type=\"submit\" value=\"", _("Show"), "\">\n";
+   printf '<b>', _('Return to %s CVS log'),
+   print "<td align=\"right\">$diricon <b>", _("Up to "), &clickablePath($path, 1),
+     return _("very little time");
+   my %desc = (
+       => _('second'),
+      => _('minute'),
+    => _('hour'),
+   => _('day'),
+  => _('week'),
+               2628000  => _('month'),
+               31536000 => _('year')
+              );
+       "<td><label for=\"cvsroot\" accesskey=\"C\">", _("CVS Root"), ":</label></td>\n";
+     print _("CVS Root"), ": <b>[$cvstree]</b>";
+   print "<label for=\"mpath\" accesskey=\"M\">", _("Module path or alias"), ":</label>\n";
+   print "<input type=\"submit\" value=\"", _("Go"), "\" accesskey=\"O\">";
+   print "\n<p>\n", _("This CVSweb is mirrored in"), "\n";
+     print join (', ', @tmp), _(' and ');
+       print "<span style=\"font-size: smaller\">",\
+                 _("Unable to find gzip binary in the <b>\$command_path</b> (%s) to compress output",
+                 $command_path, "</span><br>";
-;
 Legend:


Odstranené z verzie1.5
 


zmenené riadky


 
Pridané vo verzii1.6
 Legend:


Odstranené z verzie1.5
 


zmenené riadky


 
Pridané vo verzii1.6
-Odstranené z verzie1.5
+Pridané vo verzii1.6


Copyright © 2002-2006 Platon Group Stránka používa redakčný systém Metafox	Na začiatok