Lines 6-16
sub get {
Link Here
|
6 |
my ( $page ) = @_; |
6 |
my ( $page ) = @_; |
7 |
my $base_url = 'http://'.C4::Context->preference("staffClientBaseURL")."/cgi-bin/koha/"; |
7 |
my $base_url = 'http://'.C4::Context->preference("staffClientBaseURL")."/cgi-bin/koha/"; |
8 |
my $paths = { |
8 |
my $paths = { |
9 |
'mainpage' => $base_url.'mainpage.pl?logout.x=1', |
9 |
'mainpage' => $base_url.'mainpage.pl?logout.x=1', |
10 |
'patron category list' => $base_url.'admin/categorie.pl', |
10 |
'patron category list' => $base_url.'admin/categorie.pl', |
11 |
'new patron category' => $base_url.'admin/categorie.pl?op=add_form', |
11 |
'new patron category' => $base_url.'admin/categorie.pl?op=add_form', |
12 |
'patron home' => $base_url.'members/members-home.pl', |
12 |
'patron home' => $base_url.'members/members-home.pl', |
13 |
'new patron' => $base_url.'members/memberentry.pl?op=add&category_type=A' |
13 |
'new patron' => $base_url.'members/memberentry.pl?op=add&category_type=A', |
|
|
14 |
'new biblio' => $base_url.'cataloguing/addbiblio.pl?frameworkcode=FA', |
14 |
}; |
15 |
}; |
15 |
die "Invalid path" unless exists $paths->{$page}; |
16 |
die "Invalid path" unless exists $paths->{$page}; |
16 |
return $paths->{$page}; |
17 |
return $paths->{$page}; |
17 |
- |
|
|