[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.73, Sat Apr 16 22:01:39 2005 UTC revision 1.74, Tue Apr 26 14:28:41 2005 UTC
# Line 5  Line 5 
5    
6  use Subsystem;  use Subsystem;
7    
8    use URI::Escape;
9  use HTML;  use HTML;
10  use strict;  use strict;
11  use tree_utilities;  use tree_utilities;
# Line 1727  Line 1728 
1728          my($publish_checkbox);          my($publish_checkbox);
1729          ($ssa,$curator) = @$_;          ($ssa,$curator) = @$_;
1730    
1731            my $esc_ssa = uri_escape($ssa);
1732    
1733          my($url,$link);          my($url,$link);
1734          if ((-d "$FIG_Config::data/Subsystems/$ssa/Backup") && ($curator eq $cgi->param('user')))          if ((-d "$FIG_Config::data/Subsystems/$ssa/Backup") && ($curator eq $cgi->param('user')))
1735          {          {
1736              $url = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$ssa&request=reset";              $url = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$esc_ssa&request=reset";
1737              $link = "<a href=$url>reset</a>";              $link = "<a href=$url>reset</a>";
1738          }          }
1739          else          else
# Line 1740  Line 1743 
1743    
1744          if (($fig->is_exchangable_subsystem($ssa)) && ($curator eq $cgi->param('user')))          if (($fig->is_exchangable_subsystem($ssa)) && ($curator eq $cgi->param('user')))
1745          {          {
1746              $url1  = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$ssa&request=make_unexchangable";              $url1  = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$esc_ssa&request=make_unexchangable";
1747              $link1 = "Exchangable<br><a href=$url1>Make not exchangable</a>";              $link1 = "Exchangable<br><a href=$url1>Make not exchangable</a>";
1748          }          }
1749          elsif ($curator eq $cgi->param('user'))          elsif ($curator eq $cgi->param('user'))
1750          {          {
1751              $url1  = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$ssa&request=make_exchangable";              $url1  = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$esc_ssa&request=make_exchangable";
1752              $link1 = "Not exchangable<br><a href=$url1>Make exchangable</a>";              $link1 = "Not exchangable<br><a href=$url1>Make exchangable</a>";
1753          }          }
1754          else          else
# Line 1819  Line 1822 
1822    
1823      my $can_alter = $fig->subsystem_curator($ssa) eq $user;      my $can_alter = $fig->subsystem_curator($ssa) eq $user;
1824    
1825      my $url = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$ssa&request=show_ssa&can_alter=$can_alter";      my $esc_ssa = uri_escape($ssa);
1826        my $url = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$esc_ssa&request=show_ssa&can_alter=$can_alter";
1827      return "<a href=$url target=$target>$name</a>";      return "<a href=$url target=$target>$name</a>";
1828  }  }
1829    

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3